non funziona
questo è il codice:
codice:
Private Sub Command1_Click()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=127.0.0.1;" _
& "DATABASE=motocross;" _
& "UID=root;" _
& "PWD=;" _
& "PORT=3306;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
conn.CursorLocation = adUseClient
conn.Open
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
End Sub
e questo è l'errore:
codice:
[MySQL][ODBC 3.51 Driver]Can't connect to MySQL server on '127.0.0.1' (10061)