8 réponses
Bon, suis pas très douée sous vba et access, mais oriente toi vers l'objet command! A mon avis c'est possible....
tiens, j'ai trouvé ça:
ftp://ftp2.developpez.be/developps/vb/VB-ADOX.pdf
bon courage
Maily :-))))
tiens, j'ai trouvé ça:
ftp://ftp2.developpez.be/developps/vb/VB-ADOX.pdf
bon courage
Maily :-))))
Ressalut
En fait, ce que je voudrais savoir c'est d'une maniere generale comment exécutons une requete SQL sous VBA???
Par exemple je veux éxecuter la requetes suivante:
SELECT period_id FROM period WHERE period_id=2;
Et si possible comment fais t'on pour récuperer le resultat??
merci
Lionel
En fait, ce que je voudrais savoir c'est d'une maniere generale comment exécutons une requete SQL sous VBA???
Par exemple je veux éxecuter la requetes suivante:
SELECT period_id FROM period WHERE period_id=2;
Et si possible comment fais t'on pour récuperer le resultat??
merci
Lionel
Bonjour a toi DarkMan972,
Si tu n'as toujours pas trouvé la solution à ton probléme, voila un test que tu pourrais essayer de réalisé :
Voici ta requete:
SQL_rs202 = "select Period_id,period_desc2 from period " & _
"where Period_id >= " & period_id1 & " And Period_id <= " & period_id2 & ""
Voici ce donc je te propose de faire et tester:
SQL_rs202 = "select Period_id,period_desc2 from period " & _
"where Period_id >= '" & period_id1 & "' And Period_id <= '" & period_id2 & "'"
la modification apporté étant le rajout d'une simple guillemet autour de & period_id1 & avant et apres t double guillemet ce qui donne :
'" & period_id1 "'
et fait la même chose pour " & period _id2 & " et ensuite termine ta requete avec ta double guillement
Voila esperons que cela marche................
Si tu n'as toujours pas trouvé la solution à ton probléme, voila un test que tu pourrais essayer de réalisé :
Voici ta requete:
SQL_rs202 = "select Period_id,period_desc2 from period " & _
"where Period_id >= " & period_id1 & " And Period_id <= " & period_id2 & ""
Voici ce donc je te propose de faire et tester:
SQL_rs202 = "select Period_id,period_desc2 from period " & _
"where Period_id >= '" & period_id1 & "' And Period_id <= '" & period_id2 & "'"
la modification apporté étant le rajout d'une simple guillemet autour de & period_id1 & avant et apres t double guillemet ce qui donne :
'" & period_id1 "'
et fait la même chose pour " & period _id2 & " et ensuite termine ta requete avec ta double guillement
Voila esperons que cela marche................
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
oui excusez moi.
Bonjour
donc je précise.
J'ai une base donnée sous access et j'ai creer un bouton dans un formulaire et je voudrais que lorsque je clique sur ce bouton he bien cela m'exécute une requete . Voila ce ke je fais mais j'ai un message d'erreur qui me dit la methode OpenRecordset n'existe pas et c vrai. Elle existait dans l'ancienne version de access mais pas dans celle la et je trouve pas l'equivalent:
Dim dbs
Dim rs As Recordset
Dim rs2 As Recordset
Dim SQL_rs202
Dim P1
Set dbs = CurrentDb
SQL_rs202 = "select Period_id,period_desc2 from period " & _
"where Period_id >= " & period_id1 & " And Period_id <= " & period_id2 & ""
'Set rs = dbs.OpenRecordset(SQL_rs202)
'Set rs = DoCmd.OpenQuery
rs.Filter = "Period_id = " & period_id1 & " "
Set rs2 = rs.OpenRecordset
rs.Open rs.Filter, dbs
P1 = rs2("period_desc2")
rs2.Close
Bonjour
donc je précise.
J'ai une base donnée sous access et j'ai creer un bouton dans un formulaire et je voudrais que lorsque je clique sur ce bouton he bien cela m'exécute une requete . Voila ce ke je fais mais j'ai un message d'erreur qui me dit la methode OpenRecordset n'existe pas et c vrai. Elle existait dans l'ancienne version de access mais pas dans celle la et je trouve pas l'equivalent:
Dim dbs
Dim rs As Recordset
Dim rs2 As Recordset
Dim SQL_rs202
Dim P1
Set dbs = CurrentDb
SQL_rs202 = "select Period_id,period_desc2 from period " & _
"where Period_id >= " & period_id1 & " And Period_id <= " & period_id2 & ""
'Set rs = dbs.OpenRecordset(SQL_rs202)
'Set rs = DoCmd.OpenQuery
rs.Filter = "Period_id = " & period_id1 & " "
Set rs2 = rs.OpenRecordset
rs.Open rs.Filter, dbs
P1 = rs2("period_desc2")
rs2.Close
Tout d'abord bonjour...
Comment veux tu qu'on t'aide si c'est tout ce que tu nous dis!
elle est où la question exactement??
Lis ça:
http://www.commentcamarche.net/ccmguide/ccmcharte.php3
bonne journée
Maily :-))))
Comment veux tu qu'on t'aide si c'est tout ce que tu nous dis!
elle est où la question exactement??
Lis ça:
http://www.commentcamarche.net/ccmguide/ccmcharte.php3
bonne journée
Maily :-))))