problème avec la connection à mysql

Question

Bonjour,



Voici en quelques mots mon probl&#232;me, 

je tente d'acc&#233;d&#233; &#224; une base de donn&#233;es mySQL via VB6 (je suis d&#233;butant
avec ce logiciel, mais j'ai d&#233;ja des bases de VB apr&#233;s avoir fait pas
mal d'applics en VBA).



Donc voici le probl&#232;me, tout d'abord mon code :



Dim test As New MYSQL_CONNECTION

Dim compteur As MYSQL_RS











Private Sub Form_Load()



   test.OpenConnection "localhost", "root", "", "madb"

   

  Set compteur = test.Execute("SELECT COUNT(*) As info FROM membres")

  

  labelCompteur.Caption = compteur.Fields("info").Value

  

End Sub



chaque fois que je tente de l'ex&#233;cuter je re&#231;ois le message d'erreur suivant :



Erreur d'ex&#233;ction 429

Le composant activeX ne peut cr&#233;e l'objet



Cette erreur survient &#224; la ligne d'ouverture de la connection



(pour info, j'ai bien s&#233;clectionn&#233; dans "r&#233;f&#233;rences"  la r&#233;f&#233;rence
"mysqladod" et il semble reconnaitre mon objet car lorsque je tappe mon
code et que je met un point, le menu d&#233;roulant contenant les propri&#233;t&#233;s
et m&#233;thodes de mon objet "test" se mettent bien &#224; l'&#233;cran)





Merci d'avance &#224; tout qui pourra m'aider

cs_Jack · Answer

Salut
Bizarre car cette erreur n'apparait que lorsque tu utilises un OCX qui n'a pas &#233;t&#233; enregistr&#233; dans la base de registres ...
Quel OCX "sp&#233;cial" utilises-tu dans ton application ?
Est-ce que tu es bioen sur la m&#234;me machine que celle o&#249; tu as d&#233;velopp&#233; ?
Voir commande DOS       RegSvr32 monFichier.OCX

Sinon, c&#244;t&#233; SQL, je pense que tu n'utilises pas la bonne m&#233;thode.
En ADODB (est-ce pareil en MySQL ?), pour envoyer les donn&#233;es dans un RecordSet, il faut utiliser cette syntaxe :
monRecordSet.Open "Select ...", maConnexion

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

et r&#233;server la m&#233;thode Execute aux commande "Insert Into" et "Delete From"

cyberjobiz · Answer

Salut,

Je ne pense pas utilis&#233; d'OCX vraiment particulier, j'ai juste pris
dans les pr&#233;f&#233;rences "mysqladod" et "Microsoft ActiveX data object"
(bien que je ne pense pas qu'ils me servent &#224; quelque chose dans ce
cas).



Sinon pour le c&#244;t&#233; SQL, je pense utilis&#233; la bonne syntaxe car je me
suis inspir&#233; de sources disponibles sur ce site, et du reste, la
m&#233;thode .open de mon objet recordset mysql n'existe pas, donc cela ne
fonctionne pas comme avec les adodb.



Je ne voit plus trop comment faire, peut &#234;tre existe il une autre
m&#233;thode pour acc&#233;d&#233; &#224; mySQL ? mais celle ci est la seul que j'ai
trouver, donc si quelqu'un a d'autres id&#233;es faites moi signe,
j'essaierai via une autre m&#233;thode (via ADODB par exemple, c'est
possible ???)



Merci d'avance pour votre aide

cyberjobiz · Answer

&#231;a vas, je n'ai rien dit !

je vient de trouver une sollution &#224; mon probl&#232;me, j'utilise les adodb
comme je le fait habituelement pour access, voici mon code :



Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset













Private Sub Form_Load()

    

   conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=madb;USER=root;PASSWORD=;OPTION=3;port=3306;"

   

    

   Call rs.Open("SELECT COUNT(*) As info FROM membres", conn, adOpenDynamic, adLockOptimistic)

   labelCompteur.Caption = rs("info").Value



  

End Sub





Merci de ton aide et bonne continuation dans la prog

Problème avec la connection à mysql

4 réponses

Discussions similaires