Version imprimable
J'ai un problème lorsque je veux me connecter à ma base MySQl avec un programme VB. Lors de la connection (cnx.open) j'ai le message d'erreur suivant : "ADO n'a pas pu trouver le fournisseur spécifié". Mon projet fait bien référence à : "Microsoft ActiveX Data Objects 2.x Library"
Qqu a-t-il une idée pour solutionner mon pb ?
(les pilotes odbc sont bien installés sur mon poste)
Par avance Merci.
C'est le provider de données que tu utilises lors de ta connection à ta base de données qui n'est pas installé sur ton poste. Pour MySql ça doit etre un truc du genre MYSQL.OLEDB...
Il faut d'abord que tu telecvharge MyOdbc
Puis Tu Cree Un Dsn Avec Comme Ip 127.0.0.1 Si tu travailles en localhost ou l'adresse du serveur Mysql
Tu utilises le non du DSN dans ton programme Vb, Juste le Champ BLOB, Il fonctionne pas bien.
L'adresse MyOdbc http://www.mysql.com/downloads/api-myodbc.html
J'ai téléchargé le MyODBC.3.51.05 je l'ai installé, lorsque je teste le DSN dans l'administrateur de source ODBC de windows, cela fonctionne (Data Source 'MyODBC3-test' connected successfully to 'MySqld-3.22.30-shareware-debug').
Lorsque je cherche à me connecter avec le prog VB5 : j'ai toujours le même message "erreur 3706 : ADO n'a pas pu......"
Voici le code qui me pose pb.
Dim myconn As New ADODB.Connection
Dim myrs As New Recordset
Dim mysql As String
Dim myrows As Long
myconn.Open "DSN=myodbc3-test" '*** ERREUR A CE NIVEAU
mysql = "select * from adresse"
myrs.Source = mysql
Set myrs.ActiveConnection = myconn
myrs.Open
myrs.MoveFirst
Do While myrs.EOF
MsgBox myrs("index")
myrs.MoveNext
Loop
myrs.Close
myconn.Close
Quelle est la syntaxe pour ne pas utiliser de DSN ?
Dans ce cas je fais très bête.
Ajouter au projet le composant MS ADO
Déposer le composant adoDC sur la feuille.
Faire propriété et personnaliser.
Suivre les écrans pour connecter let tester la connection.
Faire Appliquer.
Ensuite on récupère dans la propriété ConnectionString la syntaxe exacte et il suffit de l'appliquer à votre code existant.
Virer ensuite l'adoDC.
Pour Utiliser Ton DSN, Voici La Marche A Suivre:
1: Dans Le menu Projet/References, Coche la case "Microsoft activex data objects 2.0 library"
2: Dim rs as new Recordset
3: rs.open "SELECT * FROM ta table", "DSN = Ton Dsn Ici"
4: DO while not rs.EOF
utilise ton rs ici
rs.Movenext
loop
rs.close