Article Online

Mungkin bagi anda yang sudah lama terjun di dunia pemrograman tidak asing lagi dengan aplikasi yang terhubung dengan database, tapi beberapa dari anda mungkin masih bingung. Atau mungkin anda sedang belajar koneksi database secara otodidak dan masih bingung fungsi dari script yang telah diketikkan. Saya pun dulu pernah mengalaminnya, karena saya sendiri belajar koneksi database dengan visual basic 6.0 secara otodidak. Hampir 10 jam saya otak atik mempraktekkan apa yang di jelaskan dibeberapa blog, tapi sayang beberap rata blog tidak menerangkan secara detail fungsi dari script tersebut. 

       Koneksi Database Access dengan Visual Basic 6.0 yang saya ketahui ada 3 macam cara koneksinya, yang pertama menggunkan Data Environtment atau biasa saya menyebutnya DE, kedua ADO dengan Object atau Adodc dan yang terakhir adalah ADO tanpa Object atau Adodb. Pada pembahasan kita kali ini, yang akan kita bahas adalah ADO tanpa Object atau Adodb dan mungkin untuk 2 lainnya akan kita bahas pada postingan yang akan datang. Adodb mempunyai ciri khas yang saya sukai yaitu full syntak artinya kita harus mengetikkan semuannya script tidak seperti Data Environtment yang tinggal klik ini dan klik itu. Oke langsung kita praktekkan:

• Pertama siapkan terlebih dahulu databasenya
• Buatlah databesa Acces dengan nama dbMahasiswa.mdb ,kita memakai ekstensi 2003
•  pembuatan database bisa download ebook nya disini 
• kemudian kita buka program Microsoft Visual Basic 6.0
• Pilih Standar EXE dan klik Tombol Open.
• klik Project pada MenuBar kemudian pilih Refrences
• Setelah itu akan muncul dialog
• Cari Microsoft ActiveX Data Object 2.8 Library, kemudian centang dan pilih OK.

  ActiveX Data Object 2.8 Library sendiri merupakan sebuah library yang berisi file-file yang digunakan untuk koneksi database.

Setelah semuanya telah selesai sekarang waktunya untuk menuliskan script di jendela kode pada visual basic 6.0.

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Activate()
If cn.State = adStateOpen Then
    cn.Close
End If
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=" & App.Path & "\dbMahasiswa.mdb"
    MsgBox "Koneksi Berhasil"
End Sub

• Kemudain Save program ini dalam satu folder dimana database dbMahasiswa tadi kita buat.
• Koneksi database selesai tinggal kita jalankan
• Penjelasan Script: 
• Dim cn As New ADODB.Connection 

membuat variabel/object  cn yang diinisialisai/isinya merefrensikan pada adodb.connection yang berfungsi untuk koneksi. 

• Dim rs As New ADODB.Recordset

membuat variabel rs yang akan digunakan untuk memanggil record pada database

•   If cn.State = adStateOpen Then
      cn.Close
  End If

 Artinya Jika koneksi dalam keadaan terbuka maka koneksi di tutup

•   cn.Open

Fungsinya untuk membuka koneksi

• Provider=Microsoft.Jet.OLEDB.4.0

Merupakan driver untuk koneksi access ke visual basic 6.0, seperti halnya jika kita install pc atau laptop kita pasti akan install juga driver seperti driver untuk sound,dll.

• Data Source

Menunjukkan lokasi dimana database disimpan

• App.Path

menunjukkan file yang dicari berada dalam satu folder

•  dbMahasiswa.mdb

merupakan nama database yang tadi telah kita buat

• MsgBox "Koneksi Berhasil"

merupakan sebuah messeger Box yang digunakan hanya untuk mengetahui apakah script diatasnya dijalankan.

Sebenarnya banyak cara untuk koneksi ke database, salah satunya adalah dengan via ODBC (Open Database Connectivity) yang menurut saya paling mudah (berdasarkan pengalaman sendiri). Adapun tahapannya adalah sebagai berikut :

1.Harus mempunyai ODBC, jika belum punya harus download dulu, cari saja di  google, contoh keyword nya : ODBC sqlserver atau ODBC mysql atau ODBC sqlite atau ODBC firebird atau ODBC oracle atau yang lainnya.

2.Untuk mengetahui ODBC apa saja yang terinstal di kompuer kita, bisa di cek di control panel --> Administrative Tools --> Data Sources (ODBC)

Dim ConStr As String
'Contoh Koneksi Ke SQLServer 2008
ConStr= "DRIVER=SQL Server Native Client 10.0;SERVER=djie_server\sql2008;UID=sa;PWD=123;DATABASE=djie_db"

'Contoh Koneksi Ke MySQL Server
ConStr= "DRIVER=MySQL ODBC 5.1 Driver;SERVER=djie_server;UID=root;PWD=123;DATABASE=djie_db"

 'Contoh Koneksi Ke SQLite 3
ConStr= "DRIVER=SQLite3 ODBC Driver;DATABASE=C:\djie_db.db3"

Jika kita ingin melakukan koneksi tanpa user dan password (Windows Authentication) maka cukup tambahkan  "Trusted_Connection=yes"

Untuk VB.6 Codingnya Adalah : 
Dim djie_con As New ADODB.Connection
With djie_con
    .CursorLocation = adUseClient
    .Open ConSrt
    MsgBox "Connection OK", vbInformation, "Message"
End With

Untuk VB.NET Codingnya Adalah : 
        Dim djie_con As New Odbc.OdbcConnection
        With djie_con
            .ConnectionString = ConStr
            .Open()
            MessageBox.Show("Connection OK", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End With