Nested Recordset (Jeux d'enregistrement imbriqués) - PYRAT.net, Services de création de sites web accessibles à tous basés sur le CMS SPIP

L’exemple suivant utilise 2 tables :

l’une a des utilisateurs
l’autre a des produits achetés par ces utilisateurs

On veut produire l’affichage suivant :

utilisateur 1
- produit 1
- produit 2
- …
utilisateur 2
- produit 1
- produit 2
- …
…

Principe

Créer le page qui affiche la liste des utilisateurs
Prévoir l’endroit où afficher les produits « [Liste Produits] »
Dans une page de travail non sauvegardée pour afficher le liste des produits filtrée sur Ref_Id_User
Simplifier le page du point 3
Copier coller le résultat de 4 dans le point 2
Paramétrer la requête collée selon Id_User

Sources

Source du point 2

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/connProduits.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connProduits_STRING
Recordset1.Source = "SELECT Id_User, Login_User FROM Tbl_Users ORDER BY Login_User ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Liste des Users + Produits associ&eacute;s</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<h1>Liste des Users + Produits associ&eacute;s </h1>

<% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>
<h2><%=(Recordset1.Fields.Item("Login_User").Value)%></h2>
[Liste des Produits]
<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>

</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

Code du point 4

Code Final

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/connProduits.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connProduits_STRING
Recordset1.Source = "SELECT Id_User, Login_User FROM Tbl_Users ORDER BY Login_User ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Liste des Users + Produits associ&eacute;s</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<h1>Liste des Users + Produits associ&eacute;s </h1>

<% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>
<h2><%=(Recordset1.Fields.Item("Login_User").Value)%></h2>
<%
Dim RsLstProduits
Set RsLstProduits = Server.CreateObject("ADODB.Recordset")
RsLstProduits.ActiveConnection = MM_connProduits_STRING
RsLstProduits.Source = "SELECT Id_Produit, Titre_Produit FROM Tbl_Produits WHERE Ref_Id_User = " & (Recordset1.Fields.Item("Id_User").Value) & " ORDER BY Titre_Produit ASC"
RsLstProduits.CursorType = 0
RsLstProduits.CursorLocation = 2
RsLstProduits.LockType = 1
RsLstProduits.Open()
%>
<ul>
  <% 
While (NOT RsLstProduits.EOF)
%>
  <li><%=(RsLstProduits.Fields.Item("Titre_Produit").Value)%></li>
  <% 
  RsLstProduits.MoveNext()
Wend
%>
</ul>
<%
RsLstProduits.Close()
Set RsLstProduits = Nothing
%>
<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>

</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

L	M	M	J	V	S	D
29	30	31	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	1

PYRAT.net, Services de création de sites web accessibles à tous basés sur le CMS SPIP

Dans la même rubrique...

Nested Recordset (Jeux d’enregistrement imbriqués)

Principe

Sources

Source du point 2

Code du point 4

Code Final

Menus de navigation de PYRAT.net, Services de création de sites web accessibles à tous basés sur le CMS SPIP

Agenda

À voir aussi

L	M	M	J	V	S	D
29	30	31	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	1

L	M	M	J	V	S	D
29	30	31	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	1

L	M	M	J	V	S	D
29	30	31	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	1