Bonjour,
j'ai un problème avec le dernier pack mysql 5.0.51a : mon programme refuse la connection à la base
Je pensai que c'etait un probleme lié au fait que j'avais mis mon MYSQL en service car avec les autres version de MYSQL (utilisé avec EASYPHP) qui était en programme ca passait bien...
Par aquis j'ai demarré MYSQLD 5.051a en programme et j'ai hélas le même résultat.....
"mon" code (très fortement inspiré des sources de VBFRANCE - merci a tous ceux qui ont déposé et qui se reconnaitrons peut-etre)
Public Sub config()
'Pensez a installer le Mysqlconnector
Set connex = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
Set rs_sub = New ADODB.Recordset
End Sub
Public Sub etablir_connec()
On Error GoTo Erreur
connex.CursorLocation = adUseServer
connex.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & serv_db & ";DATABASE=" & datbase & ";USER=" & user_db & ";PASSWORD=" & pwd_user_db & ";PORT=" & Serv_port & ";OPTION=" & option_db & ""
Debug.Print "connection a la base ->OK"
Exit Sub
Erreur:
Debug.Print Err
Debug.Print "rejet de la connection à la base"
'MsgBox "Impossible de trouver la base de données."
End Sub
Public Function requete(ByVal rs_sql As String, ByRef rs_sub As ADODB.Recordset) As Boolean
'cette procedure va permettre de récupérer des informations concernant les tables
'retourne true dans le cas ou la requete et bien executer et que des enregistrement sont présents
On Error GoTo Bing
If connex.State = 0 Then
etablir_connec
End If
If connex.State = 1 Then
Set rs_sub = New ADODB.Recordset
rs_sub.ActiveConnection = connex
rs_sql = Replace(rs_sql, "'", "[%]", 1, -1)
rs_sql = Replace(rs_sql, "|", "'", 1, -1)
rs_sql = Replace(rs_sql, "''", "' '", 1, -1)
rs_sql = Replace(rs_sql, "[%]", "'", 1, -1)
Debug.Print rs_sql
On Error GoTo Erreur
rs_sub.Open rs_sql, connex, adOpenDynamic, adLockOptimistic
If rs_sub.EOF Then
requete = False
Else
requete = True
End If
Else
requete = False
End If
Exit Function
Erreur:
Debug.Print rs_sql
'MsgBox "Une erreur c'est produite avec.... " & rs_sql
Debug.Print "La requete ne passe pas !"
requete = False
Bing:
End Function
le problème survient a la connection et retourne l'erreur -2147467259
Je précise que MYSQL fonctionne parfaitement en ligne de commande ou par le test du connector/ODBC
Des idées ?
Merci pour votre aide
FR