Connexion MySQL VB6

Bonjour,

Après quelques heures maintenant à chercher une solution à mon problème je me permets de créer un post.

Sur mon PC j'ai installé un serveur WAMP 3.0.6 32 bits sur lequel j'heberge une base de donnée. La base est créée et fonctionne.
Je cherche à m'y connecter via Visual Basic 6.0 et c'est à ce niveau que je sèche.
Je suis sur un windows 7 intégral avec le pack office installé.

Logiciel que j'ai installé suite à mes recherches :
My Sql Connector net 6.9.9
My Sql Connector ODBC 5.3.9 => testé en x32 et en x64

Dans le panneau de configuration / ODBC (32bits) / onglet "Source de données utilisateur" j'ai fais "ajouter" puis selectionner "MySQL ODBC5.3 ANSI Driver"
Dans la fenêtre qui c'est ouverte j'ai mis :
TCP/ip Server : 127.0.0.1
Port : 3306 (port par defaut de MySQL)
User : root
Mdp : 'vide'

Ensuite lors du clic sur le menu deroulant j'ai bien trouvé ma base de données, je l'ai selectionné et le test était bon.


Retour sur VB6.

J'ai essayé une foule de code provenant des forum en l'adaptant pour pouvoir me connecter à ma base mais j'ai sans cesse le même message d'erreur qui revient :
[microsoft] [gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié.

Dans VB6 j'ai coché les références "Microsoft Active X data objects 2.0 library" et "Microsoft DAO 3.6 objects library"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

DECLARATION DE CLASSE : Private Sub Class_Initialize() DoEvents Set con = New ADODB.Connection   With con .ConnectionString = "driver=(MySQL ODBC 5.3 ANSI Driver);SERVER=localhost;PWD=;UID=root;PORT=3306;DATABASE=bddcantine;" .CursorLocation = adUseClient .Open End With     End Sub

---

------------------------------

Code:

---

1 2 3 4 5

DANS MODULE1 :   Public con As New ADODB.Connection Public rx As New ADODB.Recordset Public rxd As New ADODB.Recordset

---

---------------------------------

Code:

---

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

DANS LE FORM :   Private Sub Command1_Click() Set rx = New ADODB.Recordset   rx.Open "select * from client", con, 3, 3   With rx .AddNew .Fields("nom_cli") = "christopheTEST" .Fields("Pren_cli") = "PRENOMTEST" .Update   End With MsgBox "client créé"   Set rx = Nothing     End Sub       Private Sub Form_Load() Set connec = New Class1 End Sub

---

Si quelqu'un a une solution à me proposer je serai plus que preneur,
En vous remerciant

Salut cyberice67.

Je ne connais pas visual basic et donc je ne vais pas vous aider avec cela.

Inversement, j'utilise ODBC pour accéder à mysql mais au travers de Php !
Il y a deux cas où l'on peut utiliser ODBC :

1) soit en utilisant les API ODBC :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

/*-----------------------------------------------------*/ /* Informations pour la connexion à la base de données */ /*-----------------------------------------------------*/   $nom_du_serveur = "driver={MySQL ODBC 5.3 ANSI Driver};server=localhost;database=test"; $nom_utilisateur = "test"; $mot_de_passe = "test";   /*----------------------*/ /* Connexion au Serveur */ /*----------------------*/   try { $link = odbc_connect($nom_du_serveur, $nom_utilisateur, $mot_de_passe); } catch (Exception $e) { echo "Connection à MySql impossible : ", htmlentities($e->getMessage()); die(); }

---

2) soit en utilisant php pdo :

Code:

---

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

/*-----------------------------------------------------*/ /* Informations pour la connexion à la base de données */ /*-----------------------------------------------------*/   $nom_du_serveur = "odbc:driver={MySQL ODBC 5.3 ANSI Driver};server=localhost;database=test"; $nom_utilisateur = "test"; $mot_de_passe = "test";   $options = array( PDO::MYSQL_ATTR_INIT_COMMAND => "SET NAMES latin1", PDO::ATTR_CASE => PDO::CASE_LOWER, PDO::ATTR_ERRMODE => PDO::ERRMODE_EXCEPTION, PDO::ATTR_AUTOCOMMIT => false );   /*----------------------*/ /* Connexion au Serveur */ /*----------------------*/   try { $link = new PDO($nom_du_serveur, $nom_utilisateur, $mot_de_passe, $options); } catch (Exception $e) { echo "Connection à MySql impossible : ", htmlentities($e->getMessage()); die(); }

---

@+