Affichage plusieurs requête

**seta69** · 20/12/2007, 09h21

Bonjour

J'ai le code suivant qui se connecte a une bdd et va chercher des champs. Le problème c'est que j'arrive a afficher qu'un seul champs.

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
33
34
35
36
37
38
<html>
 
<head>
<title>VerifCohFerPreCommSilog</title>
</head>
 
<body background="../images/fond11.gif">
<font size="5"><b><u>
 
<p>Vérification cohérence entre l'état &quot;ferme/prévisionel&quot; des commandes de
vente</u></b></p>
<% Set conn = Server.CreateObject("ADODB.Connection")
 
connstring = "driver={SQL Server};" & "server=xx;uid=xx; pwd=xx; database=xx"
 
conn.open connstring %>
<% SQL = "select NoAccuseRecepto,CodeClient,NoCommande, NoLigneCommande,ResteExpedier,IndicateurObjet,CodeArticleprestto from COMC where QtePrevueOuFerme='P' and NoCommande in (select NoCommande from COME where Confirmee='O') union all select NoAccuseRecepto,CodeClient,NoCommande, NoLigneCommande,ResteExpedier,IndicateurObjet,CodeArticleprestto from COMC where QtePrevueOuFerme='F' and NoCommande in (select NoCommande from COME where Confirmee='N')" 
set rs=server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
 
OldCode = ""
DO WHILE not rs.eof
if OldCode <> rs("NoAccuseRecepto") then %>
 
<table>
  <tr>
    <td><%=rs("NoAccuseRecepto")%>
</td>
  </tr>
<% OldCode = rs("NoAccuseRecepto")
end if %>
<% rs.MoveNext: loop %>
</table>
<% conn.close
Set conn = Nothing%>
</font>
</body>
</html>

**_Mac_** · 20/12/2007, 11h08

T'as vérifié en te connectant à la base de données depuis un client SQL "conventionnel" que ta requête fonctionne bien et te renvoie plus d'une ligne ?

**pc75** · 20/12/2007, 11h08

Bonjour,

Et tu veux faire quoi ?

**kaiser59** · 20/12/2007, 12h02

Envoyé par seta69

Bonjour

J'ai le code suivant qui se connecte a une bdd et va chercher des champs. Le problème c'est que j'arrive a afficher qu'un seul champs.

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
33
34
35
36
37
38
<html>
 
<head>
<title>VerifCohFerPreCommSilog</title>
</head>
 
<body background="../images/fond11.gif">
<font size="5"><b><u>
 
<p>Vérification cohérence entre l'état &quot;ferme/prévisionel&quot; des commandes de
vente</u></b></p>
<% Set conn = Server.CreateObject("ADODB.Connection")
 
connstring = "driver={SQL Server};" & "server=xx;uid=xx; pwd=xx; database=xx"
 
conn.open connstring %>
<% SQL = "select NoAccuseRecepto,CodeClient,NoCommande, NoLigneCommande,ResteExpedier,IndicateurObjet,CodeArticleprestto from COMC where QtePrevueOuFerme='P' and NoCommande in (select NoCommande from COME where Confirmee='O') union all select NoAccuseRecepto,CodeClient,NoCommande, NoLigneCommande,ResteExpedier,IndicateurObjet,CodeArticleprestto from COMC where QtePrevueOuFerme='F' and NoCommande in (select NoCommande from COME where Confirmee='N')" 
set rs=server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
 
OldCode = ""
DO WHILE not rs.eof
if OldCode <> rs("NoAccuseRecepto") then %>
 
<table>
  <tr>
    <td><%=rs("NoAccuseRecepto")%>
</td>
  </tr>
<% OldCode = rs("NoAccuseRecepto")
end if %>
<% rs.MoveNext: loop %>
</table>
<% conn.close
Set conn = Nothing%>
</font>
</body>
</html>

C'est un peu normal que tu n'affiche qu'un seul champ vue que tu lui dis d'affiché que "<td><%=rs("NoAccuseRecepto")%>"

Pour afficher tous les champs soit tu le fais manuellement dans ce cas tu indiques les champs que tu veux faire apparaitre donc ce que tu as fais au-dessus + les autres champs à mettre.
Sinon tu fais ceci :

Code asp :

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

1
2
3
4
5
6
7
8
9
 
do while not rs.eof
response.write "<tr>"
  for each element in rs.fields
   response.write "<td>"& element.value &"</td>"
  next
response.write "</tr>"&vbcrlf
rs.movenext
loop

**seta69** · 20/12/2007, 16h03

Ok merci bien j'ai reussi a faire fonctionné ton bout de code ; ). Par contre y'a t'il moyen de mettre les nom des colonnes du tableau ?

**kaiser59** · 20/12/2007, 19h26

Oui mais attention car le code que je vais te mettre écrit exactement le nom de la colonne donc...

Code asp :

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

1
2
3
4
5
6
7
8
9
10
response.write "<table>"&vbcrlf _
                   &"<tr>"
for each i in rs.fields
   response.write "<th>"& i.name &"</th>"
next
response.write "</tr>"&vbcrlf 
 
'et le reste du code du message précédent
 
response.write "</table>"

**seta69** · 21/12/2007, 09h50

ok Merci ça marche impec.

Dernière chose les Noms de champs ne sont pas aligné avec mes champs. J'ai essayer d'y remedier mais j'ai pas l'impression qu'avec l'ASP on puissent le faire. Et je ne peu pas introduire l'html dedans :s

merci ; )