Setting koneksi Mysql di Vb 6 dengan ADODB

Sebelumnya saya sudah pernah membuat tutorial koneksi vb 6 menggunakan adodb untuk database acces dan sqlserver sekarang kita akan membuat koneksi untuk database Mysql.

yang dibutuhkan yaitu :

1. Xampp
2. Mysql connector (disini)
3. 1 form
4. 1 module

Silahkan install Xampp terlebih dahulu (saya rasa sudah tau semua utk instal Xampp)
kemudian install Mysql connectornya (tinggal next saja)

silahkan buat database dbbiodata dan tabel tbbiodata di Mysql atau bisa di download disini  (anda tinggal mengimport saja)

Kita buat dahulu connector untuk menghubungkan database yang sudah kita buat, caranya :
klik di tombol start

pilih data source (ODBC)
kemudian buatlah connectornya dengan mengklik tombol Add

pilih mysql ODBC 5.1 Driver (Jika belum ada berarti anda belum install mysql connectornya)

Setting seperti gambar dibawah ini :
Data source name : mybiodata (nanti akan dipanggil di module)
TCP/IP Server : localhost
User : root (default)
password : kosong
database : dbbiodata (yang sdah di import)

klik ok untuk selesai.

lanjut ke bagian vb :
silahkan buat tampilan seperti ini (menggunakan datagrid)

setelah itu kita ke module. silahkan ketik perintah berikut ini
Public con As New ADODB.Connection
Public rst As New ADODB.Recordset
Public strcon As String
Public strsql As String

Public Sub buka()
On Error GoTo pesan
strcon = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=mybiodata;Initial Catalog=dbbiodata"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strcon
Else
con.Open strcon
End If
Exit Sub
pesan:
MsgBox "Tidak ada koneksi ke database..!", vbInformation, "Informasi"
End Sub

Public Sub tutup()
con.Close
End Sub

warna merah adalah nama connector yg kita buat sedangkan biru adalah database yang kita import

kembali ke form klik 2x di form load
Option Explicit
Dim lihat As New Recordset
Dim sql As String

Private Sub datapribadi()
con.CursorLocation = adUseClient
Set lihat = New Recordset
sql = "Select * From tbbiodata "
lihat.Open sql, con, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = lihat.DataSource
End Sub

Private Sub Form_Load()
buka
datapribadi
End Sub

Untuk berwarna merah syntax untuk memanggil tabel biodata

Jika selesai maka akan seperti gambar dibawah ini saat dijalankan

untuk source code silahkan download disini
jika masih ada yang bingung silahkan koment dibawah.

About Me :

Saya Martin Purnansyah
Nama Marcode adalah singkatan dari martin code, niat awal saya membuat website ini bertujuan untuk berbagi pengalaman yang saya dapat selama belajar pemrograman. Semoga situs marcode.web.id kedepannya rutin membuat tutorial - tutorial baru. Salam Coding.. :)