Koneksi VB 6 ke MySQL

Untuk melakukan koneksi dari Visual Basic 6 ke mySQL database, yang dibutuhkan adalah "mysql connector odbc" Ada beberapa cara yang bisa dilakukan:
1. CARA I (CARA BIASA)
Masukkan source code berikut ini kedalam form.

Dim koneksi As New ADODB.Connection
Dim rs As New ADODB.Recordset
koneksi.CursorLocation = adUseClient
koneksi.Open "DRIVER={MySQL ODBC 3.51 driver};SERVER=localhost;PORT=3306;DATABASE=isidbase; USER=isiuser;PASSWORD=isipassword;OPTION=3;"


2. CARA II (MENGGUNAKAN MODUL)


Untuk menjadikan script koneksi menjadi sebuah modul maka, buat modul baru. Simpan dengan nama koneksi.
Kemudian pada module letakkan script berikut ini:

'ini diletakkan di module
Option Explicit
Dim koneksi As ADODB.Connection
Dim rs As ADODB.Recordset
Dim username As String
Dim passwd As String
Dim serverIP As String
Dim db As String
Public Function connectMysql(username As String, passwd As String, serverIP As String, db As String, koneksi As ADODB.Connection, rs As ADODB.Recordset)
Set koneksi = New ADODB.Connection
Set rs = New ADODB.Recordset
koneksi.CursorLocation = adUseClient
koneksi.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & serverIP & ";UID=" & username & ";PWD=" & passwd & ";DATABASE=" & db & ";" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 163841
koneksi.Open
End Function


Dan pada form, letakkan script berikut ini:

Private Sub Form_Load()
'ini dimasukkan di form
'Call connectMysql("_diisiUSR_", "_diisiPASSW_", "_diisiHOST_", "_diisiDB_", koneksi, rs)
Call connectMysql("root", "", "127.0.0.1", "dbzein", koneksi, rs)
End Sub


3. CARA III (ALTERNATIF LAIN MENGGUNAKAN MODUL)
Buat modul baru, kemudian isikan source berikut ini:

Public strserver As String
Public dbpass As String
Public strUserServ As String
Public DataSource As String
Public dbName As String
Public conDB As New ADODB.Connection
Public Sub bukaDB()
Dim DB, myDSN
strserver = "localhost"
dbpass = "rahasia"
strUserServ = "root"
dbName = "dbzein"
DataSource = App.Path & "Data" & DB
myDSN = "PROVIDER=MSDataShape;" & "Driver=MySQL ODBC 3.51 Driver;" & "Server=" & strserver & ";" & "Port=3306;" & "Option=147458;" & "Stmt=;" & "Database=" & dbName & ";" & "User=" & strUserServ & ";" & "Password=" & dbpass
conDB.Open myDSN
End Sub


Pada Form diisikan source code berikut ini, yang digunakan untuk membuka database:

Private Sub Form_Load()
bukaDB
End Sub


Artikel Terkait :

0 comments: