Membuat Aplikasi Kasir Dengan Visual Basic 6.0. Bag.4
Di Tulis : Oemah Belajar |
Visual Basic
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 PanelCari ODBC kemudian anda KLIKKlik Add
Pilih MySQL ODBC 3.51 Driver kemudian klik Finish
Masukan data seperti gambar diatas, kemudian Klik OKKembali ke VB 6.0Klik Project - Add Module
Klik OpenKemudian 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