MySQL depuis VB...

Salut à tous.

Ben voila, je voudrais accéder à une base de donnée mySQL depuis mon application VB, l'ecrire, etc... J'ai trouvé des sources sur le site, mais il n'y a pas bcp d'explications; je comprends po grand chose... :/
Quelqu'un pourrait m'aider a maitriser ca?
Ca m'aiderai vraiment beaucoup.

MerKii d'avance

Il existe une dll qui te permet d acceder a une base mysql. Pour la telecharger va sur ce site : [ Lien ] (le site officiel semble avoir un probleme). Pour l utiliser c est assez simple :

Dim baseSql As New VBMySQL.Connection Dim chaine As String Dim rec As VBMySQL.Recordset chaine = "SERVER=" & NomDuServeur & ";DATABASE=" & NomDeLaBase & ";UID=" & Login & ";PASS=" & MotDePasse baseSql.Connect chaine, lire_userSql, lire_passSql set rec=base.execute("SELECT * FROM Table") while not rec.eof List1.Additem rec("Champ1") rec.movenext wend rec.close baseSql.Disconnect

Grrrrrrrrrrr

"Type défini par l'utilisateur non défini"
En surlignant "Dim baseSql As New VBMySQL.Connection"

il faut que tu telecharge les 2 dll, tu les copie dans system 32 et tu fait Demarrer>Executer>regsvr32 vbMySql.dll

Ensuite dans VB dans le menu Projet>References tu ajoute VbMySql et ca devrai fonctionner
Grrrrrrrrrrr

J'ai essayé cette méthode et pour l'instant je bloque au message suivant :

Run time error 1045

Accès refusé pour l'utilisateur 'ocdb@localhost' (mot de passe : NON)

Pouvez-vous m'aider ?

Globig

peut etre ton serveur mysql n est pas configurer correctement et te refuse l acces.
Regarde dans la table <user> de la base de données <mysql> sur ton serveur , tu verra un champ <Host> qui fourni le domaine depuis lequel un utilisateur peut se connecter. Si je me souviens bien "%" permet d acceder depuis n importe ou. C'est peut etre de la que vien le pbme. Sinon indique moi ton code source au cas ou ...


Grrrrrrrrrrr

J'ai fait ce que tu m'as dit (enfin je crois). j'ai utilisé phpadmin dans easyphp et modifier le champs host dans la table mysql. J'y ai mis %
J'obtiens la même erreur. Voici mon code :


Dim basesql As New VBMySQL.Connection
Dim chaine As String
Dim rec As VBMySQL.Recordset

chaine = "SERVER=" & localhost & ";DATABASE=" & globtalk & ";UID=" & root & ";PASS=" & my_password

basesql.Connect chaine, lire_userSql, lire_passSql

Set rec = base.Execute("SELECT username FROM phpbb_users")

Do Until rec.EOF
Print rec
rec.MoveNext
Loop

rec.CloseRecordset
basesql.Disconnect

lire_userSql et lire_passSql sont des fonction que j avai créé pour lire des valeurs dans la base de registre (désolé j ai oublié de les remplacer dans l exemple)

Essaye ca (remplace maBase par le nom de ta base de données) :

... chaine = "SERVER=localhost;DATABASE=maBase;UID=root;PASS=" baseSql.connect chaine,"root","" ...

Grrrrrrrrrrr

Merci !
J'ai un nouveau problème. Bah oui :)

On me dit : Object required avec la ligne suivante surlignée :


Set rec = base.Execute("SELECT username FROM phpbb_users")


Autre chose.

En début de procédure j'ai :

Shell ("C:\Logiciels\Easy PHP\EasyPHP1-7\easyphp.exe")

Quelle est le code pour fermer easyphp.exe à la fin de la procédure. Je vais chercher par moi-même, mais à tout hasard si tu le savais...

En tout cas merci pour tout.

Glo

Désolé encore une erreur de ma part le code exacte etait baseSql.execute

Pour phpMyAdmin je ne sais pas, il doit y avoir ca sur le site essaye de voir.

Grrrrrrrrrrr