Membuat Koneksi/Modul di VB 6.0 untuk Koneksi DB MySQL

Membuat Koneksi/Modul di VB 6.0 untuk Koneksi DB MySQL

Terbit pada 2016-10-13, 18:29:00 WIB. Oleh : Fuad Nur Hasan, Dibaca : 320 kali

Membuat Koneksi/Modul di VB 6.0 untuk Koneksi DB MySQL - Kini Saya akan kembali membagi ilmu kepada sobat" semua. Membuat koneksi dengan modul di visual basic agar bisa dibuka di berbagai driver tentunya tidak asing lagi bagi para programer...
Yahhh.... hal pertama kali yang harus di persiapkan adalah mysql connector 3.51 atau 5.1 bebas... sobat nyaman dengan yang mana.... Dan tentunya software my SQL seperti Apache2triad atau juga Xampp....

Okey langsung saja... pertama kali buka VB 6 kalian SOb.... kemudian tambahkan modul baru...
Caranya mudah... Klik menu Project kemudian Add Module...

Setelah sobat menambahkan modull langkah selanjutnya adalah mengkoneksikan dengan database dengan mysql connector yang sudah kita instal... caranya yaitu :
- klik menu project
- pilih references
- kemudian cari "Microsoft ActiveX Data Objects 2.5 atau 2.6
- OK

nah begitulah cara untuk koneksinya...
dan ini saya berikan koding dan rekaman jalannya program untuk sobat jadikan latihan....

Listing Modul :
Public KON As New ADODB.Connection
Public rsbrg As ADODB.Recordset
Public rsuser As ADODB.Recordset
Public rsdetail As ADODB.Recordset
Public rsdetailm As ADODB.Recordset
Public rstrans As ADODB.Recordset
Public rstransm As ADODB.Recordset
Public rssup As ADODB.Recordset
Public rspel As ADODB.Recordset
Public rstemp As ADODB.Recordset
Public rstempm As ADODB.Recordset

Sub koneksi()
'MEMBUKA OBJEK
Set KON = New ADODB.Connection
Set rsbrg = New ADODB.Recordset
Set rsuser = New ADODB.Recordset
Set rsdetail = New ADODB.Recordset
Set rsdetailm = New ADODB.Recordset
Set rstrans = New ADODB.Recordset
Set rstransm = New ADODB.Recordset
Set rssup = New ADODB.Recordset
Set rspel = New ADODB.Recordset
Set rstemp = New ADODB.Recordset
Set rstempm = New ADODB.Recordset
KON.ConnectionString = "driver=mysql odbc 5.1 driver;server=localhost;uid=root;pwd=password;db=elektronik1;"
KON.Open
End Sub



Bagikan Artikel :


Baca Juga :