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
Membuat Koneksi Database Dengan Module Aplikasi Pembelian
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

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

4 comments:

  1. ada yang salah itu mas di kode modulenya

    ReplyDelete
    Replies
    1. Dear Hendra,
      Maksudnya gimana mas? saya rasa sudah benar. Bisa dikoreksi dimana salahnya?

      Delete
  2. Kok punyaku ga ada mysql odbc drivernya.

    ReplyDelete
    Replies
    1. Dear Ricky,
      Sudah saya informasikan di Tahap 1, yaitu harus install driver dulu ya.. sudah saya sedikian di web ini softwarenya
      Salam
      JNM

      Delete