Koneksi Database Mysql Menggunakan Mysql Connector Odbc

Written By Muslih Sunday, December 1, 2013 Edit

Database MySQL merupakan salah satu database yang banyak digunakan oleh setiap orang, khususnya programer yang sering bergelut dibidang database. Database ini banyak kelebihannya, selain mempunyai kapasitas yang kecil dan juga database ini freeware (gratis). Selain itu yang dapat saya rasakan setelah menggunakan database MySQL ternyata database MySQL lebih cepat dalam filter pencarian.

Disini saya akan share cara menyambungkan / koneksi database MySQL menggunakan MySQL ODBC di Visual Basic 6.0. Sebelumnya saya disini menggunakan MySQL ODBC 5.1.

Langkah-langkahnya :
Siapkan 1 Module, 1 Form, 1 CommandButton

Masukan Kode Berikut

Kode Module :

Public KonekDb As New ADODB.Connection
Public Koneksi As Boolean
Public StrKonekDb As String
Public strSQL, SQL, SQL1 As String
Public db_name, db_server, db_port, db_user, db_pass, constr As String

Public Sub BukaDatabase()
On Error GoTo Bkdb
db_name = "simedic"
db_server = "localhost"
db_user = "root"
    StrKonekDb = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=;Extended Properties=" _
            & Chr$(34) & "DRIVER={MySQL ODBC 5.1 Driver};DESC=;DATABASE=" & db_name _
            & ";SERVER=" & db_server & ";UID=" & db_user & ";PASSWORD=" & db_pass _
            & ";PORT=" & db_port & ";OPTION=16387;STMT=;" & Chr$(34)
    Set KonekDb = New ADODB.Connection
    KonekDb.Open StrKonekDb
    If KonekDb.State = adStateOpen Then
        KonekDb.Close
        Set KonekDb = New ADODB.Connection
        KonekDb.Open StrKonekDb
        Koneksi = True
    Else
        KonekDb.Open StrKonekDb
        Koneksi = True
    End If

Exit Sub
Bkdb:
Koneksi = False
If Err.Number = -2147467259 Then
    MsgBox "Database tidak dapat ditemukan.", vbCritical, "Error"
Else
    MsgBox Err.Description & ". Error Number : " & Err.Number
End If
End Sub

Kode Form :

Private Sub Command1_Click()
Call BukaDatabase
End Sub

Jika terjadi Masalah seperti dibawah ini :

Compile Error :user-defined type not defined

Compile Error :
user-defined type not defined