Dear,
Halo kawan2 mohon bantuan dan pencerahannya. Gini aq lgi buat program
dengan menggunakan database MySql, aq sudah download & install driver
untuk ODBC nya, nah sewaktu aq mau execute programnya keluar error
seperti ini :
*"Run-time error '-2147467259 (80004005)' : [MySQL][MyODBC
5.00.10][MySQL] 1045 Access denied for user 'test'@'localhost' (using
password: NO)"
*nah untuk listing koneksinya seperti ini :
Option Explicit
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
Dim strConnect As String
Public MyConn As New ADODB.Connection
Public Sub OpenDB()
db_name = "test"
db_server = "localhost"
db_port = "3306"
db_user = "test"
db_pass = "123456"
strConnect = "Provider=MSDASQL. 1;Password= ;Persist Security
Info=True;User ID=;Extended Properties=" & Chr$(34) & "DRIVER={MySQL
Connector/ODBC v5};DESC= ;DATABASE= " & db_name & ";SERVER=" & db_server
& ";UID=" & db_user & ";PASSWORD=" & db_pass & ";PORT=" & db_port &
";OPTION=16387; STMT=;" & Chr$(34)
MyConn.ConnectionString = strConnect
MyConn.CursorLocation = adUseClient
MyConn.Open
End Sub
Sewaktu aq coba di Database MySQL nya si gak masalah, aq test koneksinya
bisa. Nah waktu jalan di VBnya error. Mohon bantuannya kepada suhu2 &
master VB. Terima Kasih.
