Executer une requete SQL

Bonjour,

Je viens tout juste de toucher au VBScript et en lisant les tutoriaux sur le net je n'arrive pas a comprendre mon erreur.
Pour info, je veux me connecter à une base de donnée pour récupérer des données, a un fichier excel pour aussi récupérer des données et comparer les deux.

Erreur est que j'arrive bien a me connecter a ma base de donnée mais lorsque je fais ma requete je n'ai pas de valeur retourné , et je ne sais pas comment excuter ma requete car le DoCmd.RunSQL n'est pas reconnu.

Pourrais je avoir de l'aide.

voici mon code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit Dim oApp,oConn,Chemin_Excel,Chemin_Access,Valeur,Valeur,moteur,rs,adOpenKeyset , adLockOptimistic, requete moteur="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" adOpenKeyset=3 adLockOptimistic=3 Chemin_Access="C:\Documents and Settings\Bureau\TRANSCO_BUDGET.mdb" Set oConn = CreateObject("ADODB.Connection") oConn.Open moteur & Chemin_Access Set rs = CreateObject("ADODB.Recordset") ' rs.Open "TRANSCO", oConn, adOpenKeyset, adLockOptimistic requete= "SELECT * FROM TRANSCO WHERE CRB='0520';" DoCmd.RunSQL(requete) Valeur2=requete WScript.Echo(Valeur2)

---

Merci pour votre aide ..

Bonjour,

Tiens, un début de piste :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Set Rs = CreateObject("ADODB.RecordSet") connstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=MaBase.mdb"   mysql & "SELECT Champ1, .......... "   Rs.open mySQL, connstring if not Rs.EOF then do while not Rs.eof msgbox Rs("Champ1") Rs.MoveNext Loop End if Rs.Close Set Rs = Nothing

---

A d'accord !!

Car au lieu de faire une requete je voulais directement acceder mon recordset en ecrivant :

Code:

---

1 2 3 4 5 6 7

Do while not rs.eof if .... ma condition then valeur2= rs.fields![monChamp] end if rs.movenext loop

---

Javais également une erreur de syntaxe avec le " rs.fields![monChamp]
et du coup je pensais que une requete passerais mieux. !!!


je teste je te remercie.

Merci beaucoup sa marche très bien:D