Koneksi ke database dalam VB



Option Explicit
Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset, rs_detail As New ADODB.Recordset
Dim rs_master As New ADODB.Recordset
Dim urut As String, urut2 As String, urut3 As String, first As Boolean


Set cn = New ADODB.Connection
    cn.Provider = "microsoft.jet.oledb.4.0"
    cn.CursorLocation = adUseClient
    cn.Open App.Path & "\masterbarang.mdb"

    Set rs = New ADODB.Recordset
    rs.Open "select * from databarang order by kode asc", cn, adOpenDynamic, adLockOptimistic


Perbedaan ADO dan DAO

Kontrol Data DAO pada Visual Basic 6.0, pada dasarnya dirancang untuk mesin database Jet 3.51, yaitu Microsoft Access 97 file format. Namun sekarang ini database Microsoft Access telah ditingkatkan dengan dikeluarkannya Microsoft Access 2000, XP dan 2003 dengan mesin database Jet 4.0. Kontrol Data tersebut tidak mampu menangani hubungan koneksi dengan database mesin Jet 4.0 atau pun jenis lainnya. Pesan kesalahan yang akan tampil jika kita menggunakan Kontrol Data dengan pengaturan pada windows property record source dengan database bermesin Jet 4.0, terlihat seperti berikut:

“Unrecognized database format C:\DATA\Biblio2000.mdb”

Pesan kesalahan di atas muncul karena adanya perbedaan pada mesin database yang digunakan. Microsoft Access 97 dibuat dengan menggunakan mesin database, yaitu Jet.3.51/3.6. sedangkan Microsoft Access 2000, XP dan 2003 menggunakan mesin database Jet 4.0. Kemampuan yang dimiliki DAO, yaitu control Data standart pada Visual Basic hanya untuk mengakses mesin database dengan Jet 3.51/3.6 bukan Jet 4.0

Jadi perbedaannya:
- Mesin database Jet 4.0 hanya bisa digunakan pada Microsoft Access 2000,XP dan 2003 file
format dengan menggunakan control data ADO (activex data object)
- Mesin database jet 3.51/3.6 hanya bisa digunakan pada Microsoft Access 97 file format dengan
menggunakan control data DAO (data access object)