Ciao,

sto provando con questa stringa ma qualcosa non funziona come dovrebbe:

Sub Carica()

Set conn = CreateObject("ADODB.Connection")

'Inizializza le variabili
mysql_host = "127.0.0.1"
mysql_userid = "root"
mysql_password = ""
mysql_database = "prova"
mysql_port = "3306"

connect_string = "Provider=MySqlProv;Data Source=" & Chr(34) & "server=" & mysql_host & ";DB=" & mysql_database & ";User=" & mysql_userid & ";Password=" & mysql_password & ";Option=131088; Stmt=;Port=" & mysql_port & "" & Chr(34)
conn.ConnectionString = connect_string

End sub

Public Sub do_connect()
On Error GoTo Connect_Error

If Not (conn.State = adStateOpen) Then
'Evita la comparsa della finestra POPUP del provider di MySQL
conn.Properties("PROMPT") = adPromptNever
conn.Open 'Instaura la connessione con il Database
Debug.Print "Connessione con il server MySQL riuscita"
End If
Exit Sub

Connect_Error:
MsgBox "Connessione con il server MySQL " & mysql_host & " fallita", vbCritical, "Attenzione"

End Sub



Qualcuno sarebbe così gentile da farmi capire in cosa sbaglio?
Il db si chiama prova...ho tutto in locale.