Stringa di collegamento vba mysql

[marco75_li]

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.

[Marjiuano]

Per prima cosa installa questo
http://www.marianoingaldo.it/codeupl...-connector.msi

Di seguito le routine che ti servono

Per la connessione al DB

Public Function Connection() As Boolean
On Error GoTo Exit_Err
Dim PtrMsg As Variant
Dim IsError As Boolean




IsError = True
Set my_db_connection = New ADODB.Connection
my_ConnectionString = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=;Extended Properties=" & Chr$(34) & "DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=" & db_name & ";SERVER=" & db_server & ";UID=" & db_user & ";PASSWORD=" & db_pass & ";PORT=" & db_port & ";OPTION=16387;STMT=;" & Chr$(34)
my_db_connection.Open my_ConnectionString



IsError = False

Exit_Err:

If IsError Then
PtrMsg = MsgBox("Connessione fallita con il db MySQL ", vbCritical, "Errore fatale sulla connessione al database.")
Connection = False
Exit Function
End If

Connection = True


End Function

Per eseguire una query qualunque

Public Function LoadQuery(Query As String, Rs As ADODB.Recordset) As Boolean //Esecuzione query
On Error GoTo Exit_Err
Dim PtrMsg As Variant
Dim IsError As Boolean

IsError = False

Set Rs = New ADODB.Recordset
Rs.Open Query, my_db_connection

IsError = True



Exit_Err:


If Not IsError Then

LoadQuery = False
End If

LoadQuery = IsError


End Function