Koneksi VB6 ke MYSQL
Pembuatan software database yang menggunakan vb6 dan mysql pasti dibutuhkan sebuah koneksi. Koneksi tersebut dapat dibuat sendiri. Dibutuhkan sebuah driver untuk menghubungkannya. Driver yang dapat digunakan misalnya MySQL-Connector-ODBC yang dapat di download di http://dev.mysql.com/downloads/connector….
Untuk membuat koneksinya berikut scriptnya :
Option Explicit
Public koneksi As ADODB.Connection
Sub konekDB()
Set koneksi = New ADODB.Connection
koneksi.ConnectionString = “” _
& “DRIVER={drivermu};” _ ‘misalnya MYSQL ODBC 5.1 Driver
& “SERVER=servermu;” _ ‘misalnya localhost atau nomor IP
& “DATABASE=databasemu;” _ ‘misalnya penjualan
& “UID=user_mysqlmu;” _ ‘misalnya root
& “PWD=passwordmu;” _ ‘misalnya admin atau kosong(pada mysql)
& “OPTION=”
On Error Resume Next
If koneksi.State = adStateOpen Then
koneksi.Close
Set koneksi = New ADODB.Connection
koneksi.Open
Else
koneksi.Open
End If
If Err.Number 0 Then
MsgBox “Anda belum terhubung ke DataBase”, vbOKOnly, “Kesalahan”
End
End If
End Sub
