Belajar ADO

Disini kita mengunakan Library ADO,mungkin banyak buku atau beberapa source code yang saya temukan masih banyak mengunakan MSADODC, nah sekarang kita mengunakan library, ok sekarang langkahnya bagaimana :

1. Buka VB, setelah jendela VB,pilih standard exe

2. Setelah jendela VB Terbuka, langkah berikutnya, pilih project lalu pilih references setelah jendela references terbuka, lalu pilih Microsoft ActiveX Data Object 2.1 Library setelah itu tekan tombol ok.

3. Lalu Buat Tombol diganti tulisan menjadi cek koneksi,lalu klik kanan pilih view code, ketik perintah sebagai berikut :

Option Explicit

Dim db As New ADODB.Connection

Private Sub Command1_Click()
    With db
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & ".\Database\Data.mdb"
        .Open
        MsgBox "Koneksi Berhasil"
    End With
End Sub
 

Trik Agar Koneksi ini nanti dibuat menjadi global tidak perlu buat koneksi lewat antar form,maka dianjurkan melalui modul aja.