Cara koneksi database access menggunakan Module

vbphotoshop.blogspot.com

Assalamu'alaikum Wr Wb.

Masih di blog saya vbphotoshop.blogspot.com, kali ini saya akan membahas sesuatu yang tidak kalah penting untuk membuat suatu program aplikasi menggunakan vb6, yaitu cara pengkoneksian database menggunakan Module di vb6. oke sob, langsung saja ikuti tuttorialnya.!

1. Buka vb6  nya!, kalo belum punya download Disini

2. Pilih standard EXE aja sob.

3. Untuk menambah Module. Klik menu project lalu add Module.

4. Di Module1 masukan kode berikut.

Cara pertama

Public koneksi As New ADODB.Connection
Public RSbaru As ADODB.Recordset

Public Sub BukaDB()
Set koneksi = New ADODB.Connection
Set RSbaru = New ADODB.Recordset
koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data source=" & App.Path & "\mahasiswa.mdb"
End Sub

Cara kedua (lebih lengkap)

Public dbase As Database
Public brg As Recordset, trs As Recordset
Public beli As Recordset, det As Recordset

---

Public Sub koneksi()
Set dbase = OpenDatabase(App.Path & "/data/penjualan.mdb")
Set brg = dbase.OpenRecordset("Tbbarang")
Set trs = dbase.OpenRecordset("Tbjual")
Set beli = dbase.OpenRecordset("tbbeli")
Set det = dbase.OpenRecordset("tbdetbeli")
End Sub

Keterangan:

"Tulisan dengan hurup warna kuning adalah penamaan variable, warna abu-abu adalah nama tabel dalam database, warna hijau adalah nama database."

Mungkin hanya itu tutorial dari saya kali ini, jika ada kekurangan atau pertanyaan. Silahkan isi kolom komentar!. Terimakasih