Membuat Koneksi Database Kasir Dengan Module

Ini adalah BAB 4 dalam membuat Aplikasi Kasir Dengan Visual Basic 6.0. Bab ini adalah lanjutan pembelajaran pada bab sebelumnya. Jika anda baru bergabung, maka silahkan ikuti bab sebelumnya agar anda tidak tersesat.

BAB Sebelumnya :
BAB 1 : Membuat Project Aplikasi Kasir
BAB 2 : Membuat Form Menu Utama Aplikasi Kasir
BAB 3 : Membuat Database dan Tabel Kasir

Jika anda sudah mengikuti bab diatas, silahkan ikuti langkah dibawah ini :
Buka Project anda seblumnya :

Silahkan Klik Control Panel
Cari ODBC kemudian anda KLIK
Klik Add

Pilih MySQL ODBC 3.51 Driver kemudian klik Finish

Masukan data seperti gambar diatas, kemudian Klik OK

Kembali ke VB 6.0
Klik Project - Add Module

Klik Open
Kemudian masukan koding dibawah pada Module1

 
Public koneksi As New ADODB.Connection
Public RSKasir As ADODB.Recordset
Public RSPelanggan As ADODB.Recordset
Public RSBarang As ADODB.Recordset
Public Sub BukaDB()
Set koneksi = New ADODB.Connection
Set RSKasir = New ADODB.Recordset
Set RSPelanggan = New ADODB.Recordset
Set RSBarang = New ADODB.Recordset
koneksi.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=KonekDBKasir"
End Sub  

Klik Save dan OK
Dengan langkah datas, anda telah sukses membuat Koneksi database Access dengan Module

<<Tahap Sebelumnya

Tahap Selanjutnya>>

Silahkan KLIK DISINI untuk melihat Video Tutorial BAB diatas
Silahkan KLIK DISINI untuk mendownload Project diatas

Tweet