VB6 et MySQL

Sinistrus Messages postés 1010 Date d'inscription Statut Membre Dernière intervention -
Loulou - 20 mars 2013 à 10:46

Salut à tous et merci de vous pencher sur mon problème.

Alors voilà, j'ai installé tout d'abord mysql-connector-odbc-5.2.2-winx64

Puis dans le load j'ai ce code :

'Activer Microsoft ActiveX Data Objects 2.5 Library
Dim Connexion As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim Requete As String
'-----------------

Private Sub Form_Load()
 'Création de la connexion ODBC par regedit
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Connect\DATABASE", T_DataBase, "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Connect\DESCRIPTION", "T_Description", "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Connect\Driver", "C:\Program Files\MySQL\Connector ODBC 5.2\Unicode\myodbc5w.dll", "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Connect\PORT", "3306", "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Connect\PWD", T_Password, "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Connect\SERVER", T_Host, "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Connect\UID", T_User, "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources\Connect", "MySQL ODBC 5.2w Driver", "REG_SZ"
'----------------------
'Connexion à la base de données

Connexion.Provider = "MSDASQL.1; Persist Security Info=False; User ID=T_User; Data Source=MySQL Serveur; Initial Catalog=T_DataBase"
Connexion.Open
Requete = "SELECT * FROM DB_TestAppli"
RS.CursorLocation = adUseClient
RS.Open Requete, Connexion, adOpenStatic, adLockOptimistic
RS.ActiveConnection = Connexion
RS.Close

End Sub

Lors de l'exécution, je reçois ce message d'erreur :

erreur d'exécution -2147467259 (8004005)
[Microsoft][Gestionnaire de pilote ODBC]Source de données introuvable et nom de pilote non spécifié.

à la ligne Connexion.Open

Par contre, dans le panel de win, dans ODBC, je me connecte super bien avec ma base depuis l'administrateur de source de données ODBC.

Pour test :
http://sql09.freemysql.net/?server=208.11.220.249
host : SQL09.FREEMYSQL.NET
user : sinistrus
pass : testeur

Pouvez-vous m'orienter svp ?

C'est super important que je puisse connecter mon appli à ma base MySQL!

Merci d'avance

Afficher la suite

A voir également:

VB6 et MySQL
Vb6 - Télécharger - Divers Utilitaires
Mysql community server - Télécharger - Bases de données
Mysql gratuit ou payant - Forum MySQL
Could not connect to mysql! please check your database settings! - Forum Redhat
Vb6 timer - Forum VB / VBA

7 réponses

Réponse 1 / 7

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,
Vous avez des variables, integrez les en temps que tel(Kaamlot).

Connexion.Provider = "MSDASQL.1;" _ 
                      & "Persist Security Info=False;" _ 
                      & "User ID=" & T_User & ";" _ 
                      & "Data Source=MySQL Serveur;" _ 
                      & "Initial Catalog=" & T_DataBase

Réponse 2 / 7

Sinistrus Messages postés 1010 Date d'inscription Statut Membre Dernière intervention 17

Même avec les variables intégrée en tant que tel j'ai le même problème.

En fait, comme j'avais expliqué, c'est dès le load qu'il affiche le problème... il ne prends pas le temps de (même x secondes) pour chercher à voir si y a un problème...

Je n'y arrive pas, sur deux postes il fait pareil problème (Seven).

Est-il du problème du OS ?
Est-il du problème du code ?
Est-il du problème du pilote ?

Réponse 3 / 7

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Allez voir sur ce site: connection 64bits

https://www.connectionstrings.com/mysql/

Réponse 4 / 7

Sinistrus Messages postés 1010 Date d'inscription Statut Membre Dernière intervention 17

Effectivement f894009,
Il semblerait que ce soit un probleme du Driver ODBC 5.2.

J'ai installé la version que j'avais depuis 2009 (qui fonctionnait très bien), la 5.1

Idem problème, alors j'ai changé ceci dans le code :

Connexion.Provider = "Driver={MySQL ODBC 5.1 Driver};Server=T_Host;Database=T_Base;User=T_User;Password=T_Pass;Option=3"

Là le message a changé mais au même sens je crois...
Erreur d'exécution 3706
Impossible de trouver le fournisseur. Il est peut-être mal installé.

J'ai changé de poste, je suis sur XP Pro 32 bit maintenant pour test standard.

J'ai essayé de comprendre comment résoudre le point d'entré de la dll myodbc5.dll mains en vain...

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Idem problème, alors j'ai changé ceci dans le code :

Connexion.Provider = "Driver={MySQL ODBC 5.1 Driver};Server=T_Host;Database=T_Base;User=T_User;Password=T_Pass;Option=3"

Vous n'avez pas ecrit cela literalement, vous avez separe les variable du texte?????

Réponse 6 / 7

Sinistrus Messages postés 1010 Date d'inscription Statut Membre Dernière intervention 17

Voilà exactement la ligne sur freeMySQL:

Connexion.Provider = "Driver={MySQL ODBC 5.1 Driver};" _
& "Server=SQL09.FREEMYSQL.NET;" _
& "Database=databaseajg;" _
& "User=sinistrus;" _
& "Password=testeur;" _
& "Option=3"

Le test ODBC se connecte mais VB6 refuse.

Réponse 7 / 7

Sinistrus Messages postés 1010 Date d'inscription Statut Membre Dernière intervention 17

Sachant que dans la doc des codes erreurs ADO :
3706 adErrProviderNotFound Le fournisseur est introuvable. Son installation est peut-être incorrecte. Il est possible que le nom du fournisseur spécifié soit incorrect, qu'il ne soit pas installé sur l'ordinateur exécutant votre code ou que l'installation ait été endommagée.

Il est donc précisé que le pilote n'est pas installé.
Lorsque j'exécute :

regsvr32.exe "C:\Program Files\MySQL\Connector ODBC 5.2\Unicode\myodbc5w.dll"

Le module a été chargé, mais le point d'entrée DllRegisterServer est introuvable.
Vérifiez que la dll est un fichier valide, puis réessayer.

Donc en résumé, je penses bien que le problème est certainement de là, de ma dll.

Savez-vous svp comment forcer l'entrée de cette dll ?

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,
Non, aucune idee. Dans les test que je fais, connecteur 3.51 ou 5.1, l'erreur est pas possible de se connecter a SQL09.FREEMYSQL.NET.

Sinistrus Messages postés 1010 Date d'inscription Statut Membre Dernière intervention 17

Pourtant il se connecte chez moi. Rassure toi stp des espaces après la copie...
J'ai essayé maintenant le même SQL09.FREEMYSQL.NET sur 5 PC différents
1 Win 7 32
2 Win 7 64
1 XP 32

Clé regedit après test ODBC réussi

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\FreeMySQL Connector 5.2x]
"Driver"="C:\\Program Files\\MySQL\\Connector ODBC 5.2\\Unicode\\myodbc5w.dll"
"DESCRIPTION"="FreeMySQL"
"SERVER"="SQL09.FREEMYSQL.NET"
"UID"="sinistrus"
"PWD"="testeur"
"DATABASE"="databaseajg"
"PORT"="3306"

Loulou

J'ai rencontré le même problème depuis un poste Windows 7 64 bits. Impossible de me connecter à MySQL depuis VB6 avec les connecteurs ODBC 5.1 et 5.2 64 bits. J'ai par contre réussi avec le connecteur 3.51 64 bits...
Depuis un terminal serveur Windows Server 2003, je réussi par contre à me connecter avec les connecteurs ODBC 5.1 et 5.2 32 bits !

Téléchargement des connecteurs sur http://dev.mysql.com/downloads/connector/odbc/

Si vous avez plus de précisions à apporter par rapport à ces mystères, je suis preneur...

Discussions similaires

MySQL error in file: /engine/classes/mysql.php at line 53

ERROR 2002 (HY000):

XAMPP : erreur connection phpMyAdmin

[SQL]Fatal error dans la requête

probleme d'autorisations phpmyadmin mysql

Votre réponse

Discussions similaires