Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2792 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS][résolu] imbriquer des "do while ... loop"?

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBS][résolu] imbriquer des "do while ... loop"?

n°957470
seb-belfor​t
Posté le 20-01-2005 à 14:50:48  profilanswer
 

[edit:]Résolu ! j'avais juste oublié un end if en dessous :([/edit]
 
 
Voila j'essais d'imbriquer des do while loop mais j'ai l'erreur "'loop' without 'do' "
 
Donc je me demande comment faire ...  
Existe 'il une alternative ? (je pense quand mme que oui )
voici le bout de code :
 

Code :
  1. <% SQL="SELECT * FROM utilisateurs"
  2. Set RS = server.createobject("ADODB.Recordset" )
  3. RS.Open SQL,Conn , 3, 3
  4. Do While not RS.eof
  5.    SQL3="SELECT * FROM menu WHERE menu_x='1'"
  6. Set RS3 = server.createobject("ADODB.Recordset" )
  7. RS3.Open SQL3,Conn , 3, 3
  8. Do While not RS3.eof
  9.  autorise=0
  10.       SQL2="SELECT * FROM droits WHERE pseudo='"&RS("pseudo" )&"' AND mx='"&RS3("id" )&"'"
  11.  Set RS2 = server.createobject("ADODB.Recordset" )
  12.  RS2.Open SQL2,Conn , 3, 3
  13.  Do While not RS2.eof
  14.   autorise=1
  15.  RS2.MoveNext
  16.  Loop
  17. RS3.MoveNext
  18. Loop
  19. RS.MoveNext
  20. Loop %>


Message édité par seb-belfort le 24-01-2005 à 14:21:40
mood
Publicité
Posté le 20-01-2005 à 14:50:48  profilanswer
 

n°958763
seb-belfor​t
Posté le 21-01-2005 à 17:16:31  profilanswer
 

help please!

n°958768
Manu la Sc​ience
...la science ... pas toujours
Posté le 21-01-2005 à 17:20:36  profilanswer
 

Salut,
 
A quel niveau te renvoie t-il ? Est-ce qu'il surligne un Loop ?


---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...
n°958775
seb-belfor​t
Posté le 21-01-2005 à 17:26:05  profilanswer
 

l'erreur s'affiche sur la page d' IE donc il n'y a pas de surlign

n°958778
seb-belfor​t
Posté le 21-01-2005 à 17:26:51  profilanswer
 

age, pardon ça a posté tout seul, àa me dit juste 'loop' without 'do' ligne 43 ( ligne du loop )

n°958781
Manu la Sc​ience
...la science ... pas toujours
Posté le 21-01-2005 à 17:29:26  profilanswer
 

seb-belfort a écrit :

age, pardon ça a posté tout seul, àa me dit juste 'loop' without 'do' ligne 43 ( ligne du loop )


Et la ligne 43 correspond à quelle ligne de ce que tu as posté ?


---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...
n°958785
seb-belfor​t
Posté le 21-01-2005 à 17:37:27  profilanswer
 

je crois que c'est celui de la ligne 21, je peux pas vérifier tt de suite,je l'ai plus sur cet ordi :(

n°958904
knakes
Posté le 21-01-2005 à 19:11:27  profilanswer
 

et remplacer 'do while ....  loop' par
'while (not) ....  end while (ou wend)' ?
je sais pas. c'est juste comme ça.

n°959879
Azsch
Posté le 23-01-2005 à 13:41:14  profilanswer
 

Salut,
Marrant mais perso je place toujours un
RS.Movefirst dans une boucle
Ce n'est pas indispensable?
De plus, par expérience (malheureuse  :(  ), je fais toujours un test de données vide :  
if not Rs.eof then
RS.Movefirst
Do While not RS.eof

...
RS.Movenext
loop
end if

 
Tout le reste de la syntaxe me paraît parfaite...
 
Azsch

n°960719
seb-belfor​t
Posté le 24-01-2005 à 14:21:05  profilanswer
 

résolu ! j'avais juste oublié un end if en dessous :(
 
merci a tous pour votre aide!

mood
Publicité
Posté le 24-01-2005 à 14:21:05  profilanswer
 

n°960751
Arjuna
Aircraft Ident.: F-MBSD
Posté le 24-01-2005 à 14:49:35  profilanswer
 

Azsch a écrit :

De plus, par expérience (malheureuse  :(  ), je fais toujours un test de données vide :  
if not Rs.eof then


Je te conseille vivement de faire :
 

Code :
  1. If Not (Rs.BOF and Rs.EOF) Then


 
Parceque tu peux être à EOF (à la fin du Rs) sans qu'il soit vide, par exemple si tu viens de le parcourir une fois.
Vérifier que tu n'est pas à la fois à la fin et au début est donc plus sûr ;)

n°960757
seb-belfor​t
Posté le 24-01-2005 à 14:55:51  profilanswer
 

ok je vais faire ta méthode tu as raison ! merci


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS][résolu] imbriquer des "do while ... loop"?

 

Sujets relatifs
supprimer un objet d'un array [resolu] images de rangs.. [RESOLU]
Màj config client ($_SESSION) si màj de config serveur (BDD) [RESOLU](resolu)include(pseudo frame) merci quand meme
[résolu]pb de droit sur fichier upload via script [merci!][resolu] resize d"une image après un upload....
[resolu] Prendre des infos sur les pages d'un intranet en PHPgenerics : besoin d'aspirine :D [Résolu]
[[Résolu]Java] Exécuter une action toutes les x minutes ?Cours Sur VBS
Plus de sujets relatifs à : [VBS][résolu] imbriquer des "do while ... loop"?


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR