Saya pakai 3.51 konek kok pak ..ke mysql 6
ini contoh nya :
Sub koneksi(data As String, sql_server As String, pass As String)
Do While True
conn.CursorLocation = adUseClient
conn.Open "DRIVER={mySQL ODBC 3.51 Driver};DATABASE=" & data & ";" & _
"OPTION=0;PWD=" & pass & ";PORT=0;SERVER=" & sql_server & ";UID=root"
On Error GoTo handerr
If conn.State = adStateOpen Then
Exit Sub
End If
conn.Open
Loop
handerr:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, "Perhatian"
End If
End Sub
Terima Kasih
Rudi Hartono Simamora, S.kom
_________________________________
[Non-text portions of this message have been removed]
