Problème de connexion avec une base MySQL via ADO sous VB6

Question

J'ai utilis&#233; la base de donn&#233;es  MySQl 4.1.1 pour &#233;crire 2 projets sous VB6 et &#231;&#224;  a parfaitement march&#233;!Je l'ai utilis&#233; sous Windows 2000 Pro!
Pour me connecter &#224; ma base, j'ai utilis&#233; ADO et voici le code:


Public Sub connect(cnx As ADODB.Connection, rs As Recordset, requete As String)<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


    'On Error Resume Next


    Set cnx = New ADODB.Connection


    Set rs = New Recordset


    cnx.Provider = "MSDASQL.1;Persist Security Info=False;User ID=root;" & _
    Data Source=BaseMySQL;Initial Catalog=essai"


    With cnx


          .ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _


            & "SERVER=localhost;" _


            & "DATABASE=essai;" _


            & "UID=root;" _


            & "PWD=;" _


            & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384 
         .Open


    End With


    With rs


       .CursorLocation = adUseClient


       .ActiveConnection = cnx


        .Open requete, cnx, adOpenStatic, adLockOptimistic


    End With


End Sub

c'est une proc&#233;dure que j'ai mis dans un module et que j'appelle pour me connecter et &#224; la base de donn&#233;es,et pour ex&#233;cuter mes requ&#234;tes SQL.Cel&#224; avait bien march&#233; jusqu'aujourd'hui o&#249; quand j'appelle cette proc&#233;dure j'ai l'erreur: suivante :

erreur d'ex&#233;cution '-2147467259 (80004005)':
[Microsoft][Gestionnaire de pilotes ODBC] source de donn&#233;es introuvable et nom de pilote non sp&#233;cifi&#233;!
Pourtant j'ai install&#233; Mysql Connector 3.51!En allant par mode pas &#224; pas,j'ai constat&#233; que c'est l'ouverture de la connexion (cnx.open) qui provoque l'erreur!
Je ne sais comment r&#233;soudre le probl&#232;me et je prie donc quiconque qui aurait une solution &#224; &#231;&#224; de m'aider!
Merci bien pour votre compr&#233;hension;je compte sur vous!

Richo

cs_Jack · Answer

Regarde cette source et modifie quelques param&#232;tres ... on sait jamais

http://www.vbfrance.com/code.aspx?ID=19495

Vala
Jack
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 puis les options : Ajouter un chiffre &#224; une string, comment VB r&#233;agit ?
Essaye aussi de remplacer LocalHost par 127.0.0.1

    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                            "SERVER=127.0.0.1;" & _
                            "DATABASE=test;" & _
                            "UID=moi;" & _
                            "PWD=test;" & _
                            "OPTION=" & CStr(1 + 2 + 8 + 32 + 2048 + 16384) 

Vala
Jack
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)

benrichl · Answer

Je suis all&#233; sur le lien dont vs m'avez parl&#233; et j'ai appliqu&#233; ce qu'ils disaient et &#231;&#224; a r&#233;ussi!Je dirai que la personne a vraiment bien expliqu&#233; les chses et j'ai pu bien comprendre comment faire mes connexions maintenant.


Au fait avant, je n'allais pas configurer directement la source de donn&#233;es en passant par les outils d'administration!Pour moi si j'&#233;cris le code directement,cela doit le configurer automatiquement ce que je crois d'ailleurs doit &#234;tre le cas puisque puisque &#231;&#224; avait toujours march&#233; jusque l&#224; pour moi!Mais bof!j'ai appris maintenant que le mieux serait de le configurer l&#224; et c ce que je ferai maintenant!
Une fois encore grand merci Jack!
Le savoir est vraiment la seule mati&#232;re qui s'accro&#238;t  quand on la partage!

Richo

Problème de connexion avec une base MySQL via ADO sous VB6

3 réponses

Discussions similaires