Selasa, 14 November 2017

Tips Koneksi Database Menggunakan Model Universal Data Link (UDL) dan Visual Basic .NET

Salimware , , Tidak ada komentar:
A. Membuat dan Menguji koneksi dengan file UDL
Banyak cara yang bisa dilakukan untuk menghubungkan database dengan bahasa pemrograman berbasis desktop apakah menggunakan Visual Basic 6.0/.Net, C#, J# dan lain - lain. Salah satu teknik yang bisa digunakan yaitu dengan memanfaatkan model Universal Data Link (UDL). UDL merupakan sebuah file yang berfungsi untuk membuat dan memverifikasi rangkaian koneksi Data ActiveX Object(ADO) dengan sumber data OLE DB. Dan koneksi yang dibangun terbatas pada driver OLE DB yang termasuk didalammya database SQL Server, Oracle, Access dan Foxpro. Pada artikel ini saya hanya menunjukkan cara koneksi ke database Access dengan file UDL. Berikut langkah - langkahnya :
1. Buat sebuah file UDL dengan cara klik kanan desktop kemudian pilih New -> Text Document.
2. Klik kanan pada file Text Document tadi lalu klik rename. Ganti nama beserta ekstensi file menjadi link.udl sehingga bentuk ikonnya menjadi seperti ini
3. Klik dua kali pada file link.udl akan muncul jendela konfigurasi seperti ini
4. Pilih Microsoft Jet 4.0 OLE DB Provider lalu klik next.
5. Klik tombol browse database dan arahkan letak database anda. Kemudian klik tombol Test Connection, jika muncul pesan Test connection succeeded. berarti koneksi ke database berhasil.
6. Selanjutnya buat sebuah projek dengan Visual Basic.Net dengan nama KoneksiUDL.
7. Desain sebuah Form menjadi seperti ini
8. Klik dua kali pada tombol Test Koneksi kemudian ketikkan lising berikut
Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTest.Click
Try
   Dim udlConn As New OleDb.OleDbConnection
   udlConn.ConnectionString = "File Name=" & Application.StartupPath & "\link.udl;"
   udlConn.Open()
   MsgBox("Koneksi Berhasil...!", MsgBoxStyle.Information, "Perhatian")
Catch ex As Exception
   MsgBox("Ups...Ada kesalahan : " & ex.Message, MsgBoxStyle.Information, "Perhatian")
End Try
End Sub
9. Jalankan projek anda dan klik tombol Test Koneksi. Jika tidak ada kesalahan pada langkah - langkah diatas maka akan muncul pesan seperti berikut :

B. Memanggil dan Menampilkan Data pada DataGridView dengan File UDL
Setelah berhasil membuat dan menguji koneksi dengan file UDL, selanjutnya saya akan coba menampilkan data dari database yang telah terkoneksi dengan file UDL tadi. Desain form sebelumnya dengan menambahkan 1 objek tombol dan 1 objek DataGridView sehingga menjadi seperti dibawah ini
Klik dua kali pada tombol Tampil Data kemudian ketikkan listing berikut 
Private Sub btnTampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTampil.Click
Try
   Dim udlConn As New OleDb.OleDbConnection
   udlConn.ConnectionString = "File Name=" & Application.StartupPath & "\link.udl;"
   udlConn.Open()

   Dim adp As New OleDb.OleDbDataAdapter("SELECT * FROM Orders", udlConn)
   Dim dt As New DataTable
   adp.Fill(dt)
   Me.dgUDL.DataSource = dt
Catch ex As Exception
   MsgBox("Ups...Ada kesalahan : " & ex.Message, MsgBoxStyle.Information, "Perhatian")
End Try
End Sub
Jalankan kembali projek anda lalu klik tombol Tampil Data dan hasilnya seperti dibawah ini
Demikian tutorial tentang membuat dan menguji koneksi ke database menggunakan file UDL. Selamat mencoba dan semoga bermanfaat.
, ,

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)