Pemrograman berbasis database yang terpenting adalah mengetahui cara koneksi ke database tersebut, dalam
catatan saya kali ini saya akan membahas koneksi database acces dengan visual basic 06 dengan perantara ADO (Active Data Object) yang tentunya anda harus mengaktivkanya lewat menu Reference"Microsoft Active Data Object"
sekarang saatnya menulis codenya
Public cn As ADODB.Connection -> CN adalah nama samaran/variable untuk nama database.
Private Sub Form_Load()
On Error GoTo s
Set cn = New ADODB.Connection
cn.Provider = “microsoft.jet.oledb.4.0″
cn.Open App.Path & “/namadatabase.mdb”
cn.CursorLocation = adUseClient
MsgBox “koneksi berhasil”, vbInformation, “koneksi ke microsoft access”
s = MsgBox(“koneksi gagal mungkin kesalahan pada nama database”, vbCritical, “koneksi ke microsoft access”)
End Sub
On Error GoTo s
Set cn = New ADODB.Connection
cn.Provider = “microsoft.jet.oledb.4.0″
cn.Open App.Path & “/namadatabase.mdb”
cn.CursorLocation = adUseClient
MsgBox “koneksi berhasil”, vbInformation, “koneksi ke microsoft access”
s = MsgBox(“koneksi gagal mungkin kesalahan pada nama database”, vbCritical, “koneksi ke microsoft access”)
End Sub
Kode yang terpenting dalam koneksi ini adalah:
Public cn As ADODB.Connection
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Provider = “microsoft.jet.oledb.4.0″
cn.Open App.Path & “/namadatabase.mdb”
cn.CursorLocation = adUseClient
End Sub
Set cn = New ADODB.Connection
cn.Provider = “microsoft.jet.oledb.4.0″
cn.Open App.Path & “/namadatabase.mdb”
cn.CursorLocation = adUseClient
End Sub
Cara diatas menggunakan auto(langsung ditulis di jendela kode)
sedikit penjelasan file databasenya "namadatabase.mdb" harus satu directory dengan applikasinya karena menggunakan App.Path.
sekian kritiknya saya tunggu jika ada yang salah.......
