Discussion :

[imsse]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ..

[pc75]

Bonjour,

Tiens, un début de piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[imsse]

A d'accord !!

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[imsse]

Merci beaucoup sa marche très bien