cs_Lorientais
Messages postés4Date d'inscriptionjeudi 17 juillet 2003StatutMembreDernière intervention12 janvier 2005
-
8 janv. 2005 à 13:29
cs_AC1
Messages postés116Date d'inscriptionsamedi 14 août 2004StatutMembreDernière intervention25 mars 2010
-
13 janv. 2005 à 10:57
Bonjour, je suis débutant dans le language ASP
Je voudrais savoir comment afficher une requête ASP dans trois colonne de tableau et change de ligne automatique. Pour l'instant j'ai réussi à afficher la requête sur un colonne et sur plusieurs lignes.
cs_AC1
Messages postés116Date d'inscriptionsamedi 14 août 2004StatutMembreDernière intervention25 mars 2010 11 janv. 2005 à 20:57
En général je formatte à la volée du style (rs est le recordset)
Je pars du principe que tu as ton recordset formé et que tu as les 3 premiers champs à afficher.
i va de rs(0) à rs(2) dans le cas ci - dessous
<Table border=0 width=950>
<%do while not rs.eof%>
<TR>
<% for i=0 to 2%>
<TD>
<%rs(i)%>
</TD>
<%next%>
</TR>
<%
rs.movenext
loop
%>
Tu peux implémenter toutes les options du html.
cs_roro06
Messages postés732Date d'inscriptionjeudi 2 janvier 2003StatutMembreDernière intervention29 octobre 2007 12 janv. 2005 à 09:53
Bonjour
Cas général :
<%cpCell=0 %>
<% while not rs.eof %>
<% if cpCell mod 3=0 then %>----
<% end if %>
<%=(rs.Fields.Item("adNom").Value)%>,
<%cpCell=cpCell+1 %>
<% if cpCell mod 3=0 then %><% end if %>
<% rs.movenext %>
<% wend %>
Cordialement
Roro webDev
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_AC1
Messages postés116Date d'inscriptionsamedi 14 août 2004StatutMembreDernière intervention25 mars 2010 13 janv. 2005 à 08:49
Le code posté par roro est en vbscript.
Celui que j'ai utilisé est en ASP/ADO.
Il y a une erreur dans ce que j'ai écrit la ligne <%rs(i)%> est en fait <%=rs(i)%>
L'avantage de garder l'html comme je l'ai fait est que tu peux prévisualiser le design via un editeur tel que frontpage ou visual studio
cs_roro06
Messages postés732Date d'inscriptionjeudi 2 janvier 2003StatutMembreDernière intervention29 octobre 2007 13 janv. 2005 à 10:28
Bonjour
Petite réponse à AC1 :
1/ Mon code est effectivement en vbscript, tout comme le tien.
2/ ni ASP, ni ADO ne sont des langages de programmation. ASP est un modèle objet utilé par IIS (entre autres) et accessible par une multitude de langages (jscript, C, java, etc ... et vbscript en fait partie). Regarde bien mon code : les balises <% %> t'indiquent que je l'utilise.
ADO est un modéle d'accés aux données en provanance d'une BdD (pour simplifier). Regarde encore mon code : je l'utilise aussi.
3/ Regarde encore mieux mon code : tu t'apercevras que l'HTML, qui n'est pas non plus un langage de programmation, mais un langage de description de pages, est bien présent.
Mon code est un cas général qui permet de ne pas "partir du principe que". Pour utiliser ce genre de moulinettes très régulièrement, je ne peux que conseiller à Lorientais d'utiliser plutôt ce code.
Petite réponse à Lorientais :
Honnêtement, j'oublierais bien vite excel : "c'est pas fait pour". ACCESS est un vrai serveur de bdd aux performances très satisfaisantes et beaucoup plus adapté à ton projet. Excel est un tableur (très puissant, certes, je l'utilise assez souvent), ce n'est en aucun cas et ne sera jamais un serveur de bdd.
Si tu connaît PHP, tu peux utiliser jscript (ou javascript) au lieu de vbscript dans tes pages ASP. Je connais très peu PHP, mais il me semble que les syntaxes sont plus proches.
Voici en dessert un bout de code (en vbscript, voir la premiere directive) qui répondra à ce que tu veux faire, à adapter, bien-sûr. Les habitués de Dreamweaver reconnaîtront.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim MM_dbClub_STRING
'En local
MM_dbClub_STRING = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=<chemin>/db.mdb"
%>
<%
Dim rsProduits
Dim rsProduits_numRows
<%cpCell=0 %>
<% while not rsProduits.eof %>
<% if cpCell mod 3=0 then %>----
<% end if %>
<%=(rsProduits.Fields.Item("ProduitNom").Value)%>,
<%cpCell=cpCell+1 %>
<% if cpCell mod 3=0 then %><% end if %>
<% rsProduits.movenext %>
<% wend %>
</html>
<%
rsProduits.Close()
Set rsProduits = Nothing
%>