Koneksi VB6 ke database MySql menggunakan Connection String

Assalamu`alaikum wr wb….:D

Kali ini postingan saya mengenai koneksi VB6 ke database mysql dengan connection string. Pertama hal yang perlu disiapkan adalah membuat sebuah database dan table (pelajari disini), setelah database dan table telah dibuat, lngkh selanjutnya adalah membuka aplikasi Microsoft visual basic 6.0>>VB Enterprise Edition Controls.

Buat lah form sederhana seperti gmbar dibawah ini.

Tmbahkan module, dan isikan code dibawah ini :

Public conn As New ADODB.Connection

Sub buat_koneksi()

Dim ConnString As String

Dim db_name As String

Dim db_server As String

Dim db_port As String

Dim db_user As String

Dim db_pass As String

'//error traping

On Error GoTo buat_koneksi_Error

'/isi variable

db_name = "Barelang_Copter" ‘ ganti dengan nama database anda

db_server = "localhost" 'ganti jika server anda ada di komputer lain

db_port = "3306"    'default port is 3306

db_user = "root"    'sebaiknya pakai username lain.

db_pass = ""

'/buat connection string

ConnString = "DRIVER={MySQL ODBC 5.2w Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"

'/buka koneksi

With conn

    .ConnectionString = ConnString

    .Open

End With

'___________________________________________________________

On Error GoTo 0

Exit Sub

buat_koneksi_Error:

    MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan !", vbInformation, "Cek Server"

End Sub

*ganti tulisan merah dengan nama database anda

Setelah module dibuat, lgkah selanjutnya adalah memasukkan coding pada form nya. Double klik form dan masukkan code dibawah ini :

Dim RS As ADODB.Recordset

Private Sub Form_Load()

Dim up As String

Set RS = New ADODB.Recordset

Call buat_koneksi

  up = "SELECT * FROM Data_sensor"

  RS.Open up, conn

  Set grd.Recordset = RS

  RS.Close

End Sub

*ganti tulisan merah dengan nama table anda

Jalankan program dengan klik play atau tekan tombol F5, maka jika tidak error pada maka program akan tampil seperti dibawah ini.

untuk proses memasukkan data baru atau menghapus data dari vb6 akan dijelaskan pada postingan selanjutnya. Demikian tutorial ini, smoga bermanfaat….amiieennn….:D