Discussion :

[link39001]

bonjour voila j'ai un problème concernant l'utilisation d'une boucle "while"
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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Set rs2 = Server.CreateObject("ADODB.recordset")
codeCli=Request.Form("client")
rechercheCli="SELECT Code,RaisonSociale FROM CLIENT WHERE Code like '"&codeCli&"%';"
rs2.Open rechercheCli,objConn,3,3
%>
Entrez le nom du client voulu
<form action="./recherche.asp" method="post" name="recherche">
    <label>Code Client<br />
      <input type="text" name="client" style="width:110px" maxlength="15"/>
    </label>
    &nbsp;&nbsp;
    <input type="submit" name="rechercher" value="Rechercher >>" />
    </p>
  </form>
<%
if rs2.RecordCount <>0 then%>
<table border="2" bordercolor="#0099FF">
    <tr>
        <td>Code</td>
        <td>Raison Sociale</td>
    </tr>
    <% while not rs2.EOF do%>
    <tr>
        <td><%response.Write(rs2("Code"))%></td>
        <td><%response.Write(rs2("RaisonSociale"))%></td>
    </tr>
    <% rs2.movenext
        loop
    rs2.close
    set rs2=nothing
    wend
    %>

celui ci marche mais il me met une erreur

[FONT=Arial]ADODB.Field[/FONT] [FONT=Arial]erreur '80020009'[/FONT]
[FONT=Arial]BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel.[/FONT]
[FONT=Arial]/src/recherche.asp[/FONT][FONT=Arial], ligne 0[/FONT]

Est ce que ma syntaxe est mauvaise ou est ce ma requête???

sachant que recherche.asp s'apel lui même lorsque je soumet le formulaire.

Merci d'avance si vous avez une idée!!

[pc75]

Bonjour,

A priori, je dirais que ta requête ne retourne aucun enregistrement.

Tu peux essayer ça ?

Code :

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

1
2
 
rechercheCli="SELECT Code,RaisonSociale FROM CLIENT WHERE Ucase(Code) like '%" & uCase(codeCli) & "%'"

[Fablondon]

Salut, je vais peut etre dire une connerie mais apparament tu depasse la borne EOF de ton recordset, essaye avec do while not rs.eof....loop

Voilou c'est tout ce que je peux dire.. ++

[link39001]

ben ma requête retourne des enregistrement mais en fait (désolé d'avoir omis de le préciser) j'ai tout mes enregistrement et à la fin de ceux ci le message d'erreur. donc je pense pas que cela vienne de la requête.
Dans le doute je vai quand même essayer!!!

[link39001]

ben voila j'ai essayé ta requête mais j'ai toujours le même message d'erreur donc sa doit venir de ma boucle qui doit avoir un problème.
Petite question au passage la syntaxe du "while" c'est bien

Code :

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

1
2
3
4
while condition
instruction...
loop
wend

ou alors j'ai rien compris

[Fablondon]

les boucles peuvent s'ecrirent :

do while test
...
loop


ou encre

do
...
loop while test

voilou, je continue de penser que tu sors de ton recordset donc c est bien ta boucle qui est en question...

[pc75]

Re,

Avant cette ligne :

Code :

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

1
2
 
if rs2.RecordCount <>0 then

Peux-tu ajouter cet affichage :

Code :

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

1
2
 
Response.Write(rs2.RecordCount)

[link39001]

j'ai ajouté le compteur comme tu me la demandé et par exemple en tapant A dans mon formulaire
j'ai le chiffre 8 pour le recordcount qui s'affiche avec les 8 codes et les 8 raisons sociales des 8 clients qui commence par A
ET une 9eme case de tableau avec mon erreur!!!

[Fablondon]

Salut, juste pour savoir si tu avais testé

<% do while not rs2.EOF%>
plutot que
<% while not rs2.EOF do%> (qui a mon sens pose probleme)

Pour ma culture perso, merci.

[link39001]

ben du coup pour ma culture perso a moi comment on utilise

Code :

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

1
2
3
4
<%do
instruction....
while test
%>

parce que je sai pas si y faut un wend ou quelque chose!!!
merci!!!

[amar00]

en reprenant une partie de ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
<% while not rs2.EOF%>
    <tr>
        <td><%response.Write(rs2("Code"))%></td>
        <td><%response.Write(rs2("RaisonSociale"))%></td>
    </tr>
    <% rs2.movenext
   wend
    rs2.close
    set rs2=nothing
 
    %>

ou encore

Code :

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

1
2
3
4
5
6
7
8
9
10
11
<% do while not rs2.EOF %>
    <tr>
        <td><%response.Write(rs2("Code"))%></td>
        <td><%response.Write(rs2("RaisonSociale"))%></td>
    </tr>
    <% rs2.movenext 
   loop
    rs2.close
    set rs2=nothing
 
    %>

[link39001]

ouaip la deuxieme solution marche à savoir

ou encore

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 <% do while not rs2.EOF %>
    <tr>
        <td><%response.Write(rs2("Code"))%></td>
        <td><%response.Write(rs2("RaisonSociale"))%></td>
    </tr>
    <% rs2.movenext 
   loop
    rs2.close
    set rs2=nothing
 
    %>

Merci beaucoup !!!!