connecter vb6 à une base Mysql

Version imprimable

1 pièce(s) jointe(s)

Bonjour tous,
Je VOUDRAis acceder à une base de donné Mysql via vb6
J’utilise Mysql 5.1, sur une machine windows xp.
Aussi je telecharge et installe mysql-connector-odbc-5.1.8-win32 , Après installation lors de la configuration du driver , je mets localhost dans la partie ou on demande de specifier le server.
En cliquant sur test, une boite de dialogue m’informe que la configuration a réussi.
En executant de ce bout de code , j’ai le message d’erreur ci-joint m’indiquant que la source de données est introuvable
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Dim rs As ADODB.Recordset Dim sql As String Dim conn As ADODB.Connection Set rs = New ADODB.Recordset Set conn = New ADODB.Connection conn.CursorLocation = adUseClient conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _ & SERVER = "localhost;" _ & Database = "mabase;" _ & UID = "root;" _ & PWD = "mdp;" _ conn.Open MsgBox "yes" rs.Open "select * from matable", conn, adOpenDynamic, adLockOptimistic rs.MoveFirst MsgBox rs!id_etudiant conn.Close Set conn = Nothing
Vivement un coup de main afin de solutionner ce bug.
Merci

07/03/2011, 19h45
ThierryAIM

si cela peut t'aider

http://www.connectionstrings.com/mysql

Salut

Code:

1
2
3
4
5
 conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
            & "SERVER = localhost;" _
            & "Database = mabase;" _
            & "UID = root;" _
            & "PWD = mdp;"

si non tu passes SERVER , Database et PWD comme si cela était des variables.

J'ai a nouveau essayé ce code comme recommandé par PROGELECT, mais j'ai toujours le même message d'erreur avec la ligne de code

Code:

conn.Open

surligné en jaune

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim rs As ADODB.Recordset
Dim sql   As String
 
     Dim conn As ADODB.Connection
     Set rs = New ADODB.Recordset
     Set conn = New ADODB.Connection
    conn.CursorLocation = adUseClient
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
           & "SERVER =  localhost;" _
           & "Database =mabase;" _
           & "UID = root ;" _
           & "PWD =  mdp;"
  conn.Open
    MsgBox "yes"
 
'sql = "select * from ETUDIANT"
'rs = conn.Execute(sql)
'
rs.Open "select * from etudiant", conn, adOpenDynamic, adLockOptimistic
rs.MoveFirst
MsgBox rs!id_etudiant
 conn.Close
   Set conn = Nothing

08/03/2011, 12h55
ThierryAIM

Citation:

Envoyé par lecaire

J’utilise Mysql 5.1, sur une machine windows xp.

Alors pourquoi tu utilises le Driver 3.51 ? :aie:

ce code Marche , bien Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim rs As ADODB.Recordset
Dim sql   As String
 
     Dim conn As ADODB.Connection
     Set rs = New ADODB.Recordset
     Set conn = New ADODB.Connection
    conn.CursorLocation = adUseClient
    conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" _
           & "SERVER =  localhost;" _
           & "Database =mabase;" _
           & "UID = root ;" _
           & "PWD =  mdp;"
  conn.Open
    MsgBox "yes"
 
'sql = "select * from ETUDIANT"
'rs = conn.Execute(sql)
'
rs.Open "select * from etudiant", conn, adOpenDynamic, adLockOptimistic
rs.MoveFirst
MsgBox rs!id_etudiant
 conn.Close
   Set conn = Nothing

bonjour, alors vou serais-t-il possible de m'expliquer, vous charger des API ou autre chose pcq j'ai aussi besoin de me connecter a une base de données mysql mais avec le code qui se trouve la j'ai toujours un message d'erreure

[Microsoft][Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié

j'ai installé plusieurs dll pour la connexion sur une BDD mysql mais cela ne change rien

j'ai repris le code de l'autre post
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim rs As ADODB.Recordset Dim sql As String Dim conn As ADODB.Connection Set rs = New ADODB.Recordset Set conn = New ADODB.Connection conn.CursorLocation = adUseClient conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" _ & "SERVER = 127.0.0.1 ;" _ & "Database = test ;" _ & "UID = temp ;" _ & "PWD = tempi ;" conn.Open MsgBox "yes" conn.Close Set conn = Nothing
alors faut-il charger une API avant ou bien lui dire de charger la dll parce que la je suis totalement larguer ...

29/06/2011, 10h54
Pascal Lob

Bonjour,
As tu testé ta connexion via MySql Connector sans VB.
Dans le panneau de config tu ouvres le ODBC32
Dans Sources de données utilisateur, tu fais ajouter.
Tu choisis le MySql ODBC 5.1 Driver.
En utilisant les mêmes paramétres que dans ton code tu peux tester la connexion à la base.