Discussion :

[lecaire]

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 :

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
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

[ThierryAIM]

si cela peut t'aider

http://www.connectionstrings.com/mysql

[ProgElecT]

Salut

Code :

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

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.

[lecaire]

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 :

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

conn.Open

surligné en jaune

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
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

[ThierryAIM]

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

Alors pourquoi tu utilises le Driver 3.51 ?

[lecaire]

ce code Marche , bien Merci

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
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

[0n31l]

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 :

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
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 ...

[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.