Erreur lors d'une Connection ODBC avec vb

**sebac** · 07/07/2009, 10h15

bonjour, j'ai suivi ce tuto http://ledzeppii.developpez.com/odbc-access/ pour la Création d'une source de données afin de me connecter à ma base mysql, manuellement j'arrive à le faire en récupérant dans Access les table de la bd mysql mais lorsque j'essaye de le faire comme dans le tuto avec le code que voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function RegDB_mysql()
Dim strDSN As String, strAttr As String, strODBCDrv As String
 
' Nom de la source de données ODBC que j'ai choisi
strDSN = "ESSAI MySQL"
' Nom du pilote ODBC installer après téléchargement
strODBCDrv = "MySQL ODBC 5.1 Driver"  'ou MySQL ODBC 3.51 Driver
' Attributs
' OPTION est spécifique à MySQL dans cet exemple
strAttr = "SERVER=LZ2" & vbCr & "DATABASE=medipacs" & vbCr & "OPTION=3" & vbCr & _
          "UID=root" & vbCr & "PWD=toto"
 
DBEngine.RegisterDatabase strDSN, strODBCDrv, True, strAttr
 
End Function

j'ai l'erreur d'exécution 3146

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 l'appel de ODBC à échoué

Je ne comprends pas pourquoi vu que j'aimerai faire cette opération avec le code et non manuellement.
merci de bien vouloir m'aider

**sebac** · 07/07/2009, 10h46

j'ai essayé avec ce code du même tuto

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Dim strDriver As String, strAttr As String, retVal As Long
Dim pfErrorCode As Long, pcbErrorMsg As Long, lpszErrorMsg As String, i As Integer
 
' Nom du pilote ODBC
strDriver = "MySQL ODBC 5.1 Driver" & vbNullChar
 
' Minimum fonctionnel requis
strAttr = "DSN=" & "ESSAI MySQL" & vbNullChar
 
' facultatif
strAttr = strAttr & "SERVER=LZ2" & vbNullChar
strAttr = strAttr & "DATABASE=medipacs" & vbNullChar
strAttr = strAttr & "Description=ESSAI DSN MySQL" & vbNullChar
strAttr = strAttr & "OPTION=3" & vbNullChar
strAttr = strAttr & "UID=root" & vbNullChar
strAttr = strAttr & "PWD=toto" & vbNullChar
' Terminaison
strAttr = strAttr & vbNullChar
 
retVal = SQLConfigDataSource(0, ODBC_ADD_SYS_DSN, strDriver, strAttr)
 
If retVal = 0 Then
   i = 0
   Do
      i = i + 1
      lpszErrorMsg = String(2048, vbNullChar)
      retVal = SQLInstallerError(i, pfErrorCode, lpszErrorMsg, 2047, pcbErrorMsg)
      If retVal = SQL_SUCCESS_WITH_INFO Then retVal = SQL_SUCCESS
      If retVal = SQL_SUCCESS Then MsgBox Left(lpszErrorMsg, pcbErrorMsg)
   Loop Until (retVal <> SQL_SUCCESS Or i = 8)
End If
 
End Function

cette fois pas d'erreur mais access me dit qu'il ne trouve pas de driver alors que manuellement j'ai été amené à cocher le driver "MySQL ODBC 5.1 Driver" donc il existe bien, en tout cas je crois