Sujet Précédent Sujet Suivant

Urgent:PB pour boucler sur des requetes!!

monsnow Messages postés 12 Date d'inscription vendredi 9 août 2002 Statut Membre Dernière intervention 10 juillet 2003 - 23 août 2002 à 11:56
cs_kFar Messages postés 28 Date d'inscription samedi 28 octobre 2000 Statut Membre Dernière intervention 13 septembre 2002 - 23 août 2002 à 12:41
Je soouhaite réaliser une boucle sur une requête...
comment faire??

Voila ce que je fais:

Dim rst as New ADODB.Recordset

for i = 0 to 50
tempo=i
rst.Open "INSERT table(colonne) VALUES('" & tempo & "')"
next i

VB me le fait bien pour le premier mais après il me dit qu'il:
Run-time error '3705'
The operation requested by the application is not allowed if the objet is open

SInon...si je fais un rst.Close après ma requête
il me fait le même message mais avec close à la fin..

HELP!!!!!!!SVP!!!

monsnow

3 réponses

Réponse 1 / 3
cs_kFar Messages postés 28 Date d'inscription samedi 28 octobre 2000 Statut Membre Dernière intervention 13 septembre 2002
23 août 2002 à 12:09
salut,

essayes de la maniere suivante:

for i = 0 to 50
CurrentDb.Excute ("insert into table(colonne) select " & i & ";")
next i

je pense que ca devrait marcher!
0
Réponse 2 / 3
monsnow Messages postés 12 Date d'inscription vendredi 9 août 2002 Statut Membre Dernière intervention 10 juillet 2003
23 août 2002 à 12:21
ok..je vais essayer..
mais si je veux aire une boucle sur des requetes SELECT..
comment je fais pour récupérer les valeurs...
merci kFAR

monsnow
0
Réponse 3 / 3
cs_kFar Messages postés 28 Date d'inscription samedi 28 octobre 2000 Statut Membre Dernière intervention 13 septembre 2002
23 août 2002 à 12:41
pour les boucles sur des requetes select :

Dim valeur(50) As Object

For i = 1 To 50
Set valeur(i) = CurrentDb.Openrecordset("select champ1 from table where champ2=" & i & ";")
Next i

et apres tu recuperes les valeurs dans valeur(i).fields("champ1")

voila, j'espere t'avoir aidé
0
Rejoignez-nous