Bonjour a tous,
 
j'aurais voulu savoir comment on peut faire pour agir sur une base mysql avec Visual basic? En fait, a partir d'une feuille de calculs Excel, je souhaite programmer une macro VBA pour inserer les donnée de cette feuilles dans la base mysql.
 
Merci

fastoche, tu suis ma signature

Ouai, mais en prnant ton exemple, ça plante a "set oVon = new connexion" car c'est une macro VBA Excel que j'utilise et non Visual BAsic.

c'est ADO 2.5 que tu dois avoir dans tes références, le reste est inclus d'office, même s'il n'est pas visible
 
PS: poste tes réponses uniquement ici que ça soit plus clair stp.

Ok, ça c'est déja fait et ça ne marche pas! Est-ce que VBA Excel supporte programmation objet? Parce que a mon avis ça viens de la!

Le compilateur dit qu'il ne connais pas "New".

Pourquoi tu créé plusieurs topics ? En plus, je t'avais déja indiqué le topic de drasche dans ton 1er topic :
 
http://forum.hardware.fr/forum2.php3?post=35201&cat=10
 
Je ferme ce topic, mais merci de ne pas en recréer un autre !!!

cte honte je l'avais même pas vu

 
Bon alors on me dis qu'il faut que j'ecrive sur celui, puis sur un autre, alors en fait j'ecris sur lequel?
Merci et excusez moi.

écris ici vu que l'autre est fermé, et efface ton post sur la FAQ vu que la réponse est donnée ici

Bon alors reprenons, Le compilateur dit qu'il ne connais pas "New", quand je créer une nouvelle connexion.

Ce programme ne marche pas en VBA Excel, il ne connais pas du tout new et open. Vous ne savez pas ce qu'il faut importer ou referencer pour que ça marche?

relis le premier post de la FAQ c'est marqué dedans.  t'as juste fait un copier/coller du code ou quoi?

 
Mais j'ai déja dis que j'avais référencé ce qu'il faut. C'est bon, j'ai reférencé "Microsoft ActiveX Data Objects 2.5", si y'a que ça a mettre, bah chez moi ça marche pas alors!
 
PS: Je ne suis pas un boulet quand même  

Par contre, dans ta capture y'a aussi "Visual Basic runtime objects and procedures" et "Visual Basic Objects and procedures" de coché. Et moi ces trucs ils n'existes pas dans mon VBA, donc je me demande si VBA Excel supporte la programmation objet?

C'est quoi ta version d'Excel?  parce que je viens d'essayer et mis à part la fonction Replace qui n'existe pas, ça marche pour moi.  J'ai Excel 97.
 
Et si ça plante, quel est le message d'erreur affiché par VB?

Ma version d'Excel, c'est office 2000.
 
L'erreur qu'il me donne est la suivante:
"Utilisation incorrecte du mot clé New"
 
Et quand je met la ligne en commentaire, il me fais l'erreur juste aprés, sur "Call oCon.Open(strConnect)". Et il me met "Membre de methode ou de données introuvable"

 
je vois pas en quoi c'est incorrect
 
quant à voir si ça marche après avoir mis la ligne en commentaire, le résultat était attendu.  Tu peux pas utiliser l'objet si il n'a pas d'abord été alloué en mémoire.
 
mmmh essaie à tout hasard:

au lieu de  

 
et modifie aussi la déclaration comme ceci:

Mettre mysql dans SGBD, faut oser

bah c'est surtout qu'on fait du VB quoi
 
bon commencez pas à troller hein

Bon maintenant il compile. Au debuger, ça passe jusqu'a la ligne "Call oCon.Open(strConnect)", aprés il plante en me disant  
"Erreur d'execution '-2147467259 (80004005)'
Erreur Automation
Erreur non spécifiée"

Personne ne peut me repondre?

Bon, j'arrive maintenant a me connecter a la base, mais j'ai un autre probleme:
ma requete, n'est pas une recherche (select), mais une insertion (insert), j'ai donc repris votre exemple:
 
strSql = "INSERT INTO produit VALUES (array(x,1), array(x,10), array(x,3));"
Set record = New ADODB.Recordset
Call record.Open(strSql, oCon, adOpenForwardOnly, adLockReadOnly, adCmdText)
 
 
Mais ça plante a la deniere ligne, pourquoi? Est-ce que pour un insert, c'est different?

Tout à fait, les deux lignes en question sont destinées à interroger une table ou plus généralement faire un select.
 
Pour un insert, il y a plus radical et plus simple:
 

 
Il y a une toute petite contrainte: une seule requête à la fois
 
Comment as-tu résolu le problème d'automation?  mauvaise install?

 
Il me semble, je dis bien il me semble, qu'avec mysql, il faut des quotes (' dans les requetes, c'est donc peut etre ta requete qui est invalide...

eheh, oui, aussi.  Pas question de foutre un nom de variable VB dans la string de la requête

si tu dois pouvoir, mais à coup de concatenation de chaine et insertion de ('  (chr(13) non ? je sais plus... zut )
 

vivivi bien sûr, je faisais un parallèle avec ce qui peut se faire en PHP où tu as la possibilité de foutre tes variables directement dans la string (mais pas recommandé question performance).

La construction de sa requête devrait ressembler à ceci:
 

 
* ça marchera s'il n'y a pas d'apostrophes dans ses variables (cfr ce topic).
* Array est un nom réservé, trouver autre chose
* une seule requête à la fois car MySQL ne supporte pas de recevoir plusieurs requêtes d'un seul coup, hélas.

 

 
j'approuve...

@drasche
 
Erreur bete, j'ai la version  3.52 de ODBC, et je n'avais pas fais gaffe que la version du prog etait 3.51. Honte a moi!!!!!
Merci pour la requete insert.