Koneksi Visual Basic 6 ke Database Access .mdb menggunakan ADODB

Kemarin sudah tutorial koneksi ke database MySQL, sekarang koneksi ke database access. Siapa tau masih dibutuhkan.

Oke to the point :

Buatlah database di access

Buat table dengan nama tabel Siswa

Dengan pengaturan field sebagai berikut :

NIS	Nama_Siswa	Jenis_Kelamin	Alamat
1	Arik Subagia	Laki-laki	Jalan Hang Tuah
2	Krisna Suryana	Laki-laki	jalan Drupadi
3	Angelina Jolie	Perempuan	Jalan menuju amerika

Kemudian Siapkan 1 form dan 1 datagrid

Dan copikan coding dibawah ini

'----------------------------------------------------------------------------

Dim Koneksi As New ADODB.Connection

Dim Tabel As New ADODB.Recordset

Sub BukaKoneksi()

Set Koneksi = New ADODB.Connection

Koneksi.CursorLocation = adUseServer

Koneksi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database1.mdb;Persist Security Info=False"

Koneksi.Open

End Sub

Sub TutupKoneksi()

DG.Visible = False

Tabel.Close

Koneksi.Close

Set Tabel = Nothing

Set Koneksi = Nothing

End Sub

Private Sub Form_Load()

BukaKoneksi

Set Tabel = New ADODB.Recordset

Tabel.CursorLocation = adUseClient

Tabel.Open "select * from Siswa;", Koneksi, adOpenDynamic, adLockOptimistic

Set DG.DataSource = Tabel

DG.Visible = True

End Sub

Private Sub Form_Unload(Cancel As Integer)

TutupKoneksi

End Sub

'----------------------------------------------------------------------------

Klik gambar untuk memperbesar

Sekarang coba jalankan project tersebut dan, Jika berhasil maka tabel akan menampilkan seluruh data Siswa. selamat mencoba.

Untuk memudahkan proses belajar Anda, Ane sudah siapkan file tersebut.

Silahkan download DISINI