lister sur 2 colonnes [Résolu]

[flo456]

bonjour,

j'ai une table avec des champs notamment le champs : Titre qui est un champs mémo.

je voudrais lister ma base de donnée pour sortir que les enregistrements : Titre.

aucun problème pour lister la base dans un tableau.

mais par contre, comment faire pour afficher sur 2 colonnes?

comment dire que quand il en a lister 10, il crée une colonnes et liste les 10 suivant?

La c'est la connexion a la base :

Code :

1
2
3
set conn = server.createObject("ADODB.Connection")
conn.open "DBQ=" & Server.Mappath("/intranet/DB/intranet.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
set RS = conn.execute("SELECT * FROM AjoutRegle order by Date DESC")

et la pour lister la base :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<%	if not RS.EOF then
	Do while not RS.eof%>
<table>
  <tr>
    <td><%response.Write(RS("Titre"))%></td>
    </tr>
 
<% RS.MoveNext%>
  <%Loop%>
  <% End if%>
 
</table>

merci

[pc75]

Bonjour,

En imbriquant deux boucles non ?

Code :

1
2
3
4
5
6
7
8
9
 
do while not rs.eof
.....
i = 1
do while i <= 10
.....
rs.movenext
Loop
Loop

[flo456]

c'est un bon début mais je suis pas très forte en boucle..

voila ce qu'ai deja :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
<table>
				<%	
 
				if not RSTitre.EOF then
	Do while not RSTitre.eof
 
	i = 1
do while i <= 10
	%>
				<tr>
					<td><%response.Write(RS("Titre"))%></td>
					<td>&nbsp</td>
				</tr>
<%RSTitre.MoveNext%>
  <%Loop%>
  <%Loop%>
  <% End if%>
			</table>

comment il peut savoir qu'il faut écrire le reste dans l'autre colonne?
en faisant i++ ?

[vever88]

Bonjour,
J'avais un souci similaire au tiens (merci à toi pc75 et à Immo au passage )

Alors pour ton tableau de deux colonnes essais :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Response.Write("<TABLE Align=center>")
 
     DO UNTIL RS.EOF 
	       FOR k=1 to 5 'ici tu ajustes en fonction du nombre de lignes dont tu as besoin pour ton tableau'
	 Response.Write("<TR>")
		   FOR i=0 to 1
				IF not rs.EOF then						
					 Response.Write("<TD>"&RS("Titre")&" </TD>")
					RS.MoveNext
				End IF
	           NEXT
        Response.Write("</TR>")
	       NEXT              
      LOOP 
 
Response.Write("</TABLE>")

NB: je t'ai tout imbriqué dans un Response.Write car il est pas bon passer sans arrêt de HTML à VBS

Après c'est à toi de voir comment tu veux lister ta liste ...

++

[pc75]

Re,

Déjà, dans ta boucle

do while i <= 10

il te manque l'incrémentation de i

Code :

1
2
3
4
5
6
 
do while i <= 10
......
......
i = i + 1
......

[flo456]

trop fort.

me disait que ca pouvais pas etre autant simple

merci infiniment. vais mettre en forme tout ca.

merci merci