[Database] problème requete [Résolu]

[Commodore]

Bonjour,

J'ai dans ma page le code suivant:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<select name="frs_report" size="1">
                    <%
                      Set objConn = Server.CreateObject("ADODB.Connection")
                      Dim strConnect
                      strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("base rapports intranet.mdb")
                      objConn.open strConnect
                      Set rs = objConn.execute("SELECT DISTINCT groupnam FROM dbo_vendor ORDER BY GroupNam ASC;")
                      Do While Not rs.EOF
                          Response.Write "<option>"+rs(0)+"</option><br />"
                      Loop
 
                      objConn.close
                      set objConn = Nothing
                    %>
              </select>

Problème: l'affichage de la page s'arrête là, pas de message d'erreur, et un <Select> vide.

Y a-t-il une erreur dans mon code ?

[ryan]

Yop!

Et si le recordset était vide?

[pc75]

Bonjour,

Ryan : Et si le recordset était vide?

Donc

Code :

1
2
3
4
5
6
7
8
9
if not rs.eof then
       Do While Not rs.EOF
           Response.Write "<option>"+rs(0)+"</option>"
           rs.MoveNext
       Loop
else
       Response.Write "Pas de données"
end if

[Commodore]

arf, j'avais oublié le movenext...

mais ça ne change rien à la requete. Je l'avais faite en javascript et elle tournait => rs non vide... seulement mon boss veut du vbscript

il doit y avoir un bug qqe part, le reste de la page ne s'affiche pas sauf si je met le bloc en commentaire.
même un response.write "toto" ne fonctionne pas

[pc75]

Re,

Tu peux nous mettre le code complet de ta page ?

[Commodore]

bien sûr

Code :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
    <h1>Etat de stock par fournisseur </h1>
    <br />
 
    Etat de stock sur fournisseur &agrave; date
 
    <form name="form2" action="report_EtatStockgroupname.asp" method="get">
      <table>
        <tr>
          <td>Entrez la date au format <span>mm/jj/aaaa</span>:</td>
          <td><input type="text" name="dat_frs_report" /></td>
        </tr>
        <tr>
          <td>S&eacute;lectionnez le fournisseur :</td>
          <td><select name="frs_report" size="1">
                    <%
                      Set objConn = Server.CreateObject("ADODB.Connection")
                      Dim strConnect
                      strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("base rapports intranet.mdb")
                      objConn.open strConnect
                      Set rs = objConn.execute("SELECT DISTINCT groupnam FROM dbo_vendor ORDER BY GroupNam ASC;")
                      Do While Not rs.EOF
                          Response.Write "<option>"+rs(0)+"</option><br />"
                          rs.MoveNext
                      Loop
 
                      objConn.close
                      set objConn = Nothing
                    %>
              </select></td>
          <td><input type="submit" value="Afficher" /></td>
        </tr>
      </table>
    </form>
 
    Etat de stock sur fournisseur &agrave; ce matin
 
 
    <form name="form2" action="report_EtatStockGroupnameMatin.asp" method="get">
      <table>
        <tr>
          <td>S&eacute;lectionnez le fournisseur :</td>
          <td><select name="frs_report_matin" size="1">
                    <%
                      'var cSelect = Server.CreateObject("ADODB.Connection");
                      'cSelect.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("base rapports intranet.mdb"));
                      'qSelect = "SELECT DISTINCT groupnam FROM dbo_vendor ORDER BY GroupNam ASC";
                      '
                      'Response.Write(qSelect); //debug de la requete
                      '
                      'var rSelect = Server.CreateObject("ADODB.RecordSet");
                      'rSelect = cSelect.Execute(qSelect);
                      'while(rSelect.Eof == false) {
                      '  Response.Write("<option>"+rSelect(0)+"</option>\n");
                      '  rSelect.MoveNext();
                      '}
                      'cSelect.Close();
                    %>
              </select></td>
          <td><input type="submit" value="Afficher" /></td>
        </tr>
      </table>
    </form>

[Commodore]

J'ai quelque chose à apporter à l'analyse: si je place un response.write "toto" hors du <select> ça marche, si je le place dans le select, rien ne s'affiche...

[Commodore]

resolu: j'avais un problème dans le mappath: il manquait un sous dossier.


néanmoins je vous remercie de votre implication sur mon problème.