Membuat Koneksi Database Kasir Dengan Module

Ini yaitu BAB 4 dalam menciptakan Aplikasi Kasir Dengan Visual Basic 6.0. Bab ini yaitu lanjutan pembelajaran pada potongan sebelumnya. Jika anda gres bergabung, maka silahkan ikuti potongan sebelumnya semoga 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 potongan diatas, silahkan ikuti langkah dibawah ini :
Buka Project anda seblumnya :

Silahkan Klik Control Panel
Cari ODBC lalu anda KLIK
Klik Add

Pilih MySQL ODBC 3.51 Driver lalu klik Finish

Masukan data menyerupai gambar diatas, lalu 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 menciptakan 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

Share this post