raggruppamento

**ottoboni77** · 10-11-2008, 11:20

Buongiorno, ho una domanda, visto che ho cercato molto su questo forum ma non ho trovato niente che fa al mio caso.

Ho una tabella con i seguenti dati:

Campo - record - giocatore - anno
Padova - 22 - Pietro - 1984
Padova - 42 - Luca - 1984
Padova - 68 - Pippo - 1984
Venezia - 20 - Andrea - 1991
Venezia - 40 - Andrea - 1991

Vorrei raggrupparle e visualizzarle in asp in questa maniera:

Padova
22 - Pietro - 1984
42 - Luca - 1984
68 - Pippo - 1984

Venezia
20 - Andrea - 1991
40 - Andrea - 1991

Come poso fare?

Grazie

**optime** · 10-11-2008, 11:28

la tua SELECT avrà una ORDER BY CAMPO, RECORD, GIOCATORE
quando scrivi, tieniti da parte il CAMPO e quando cambia vai a capo e lo scrivi.

più facile a farsi che a dirsi

**ottoboni77** · 10-11-2008, 11:35

In effetti avevo pensato alla stessa cosa ma non so come farla.

io ho lamia select:

Codice PHP:


strsql = "Select recordM.*, campi.* from recordM INNER JOIN campi ON recordM.ID_campo = campi.id order by recordM.id_campo, recordM.percorso asc"

poi mi faccio estrarre i dati così:

Codice PHP:


<%

Do while Not objRs.EOF

%>

<tr>

<td width="30%">[b]<%= objRs("campo") %>[/b]</td>

<td width="10%" align="center"><%= objRs("record") %></td>

<td width="30%" align="center"><%= objRs("giocatore") %></td>

<td width="10%" align="center"><%= objRs("anno") %></td>

</tr>

<%

objRs.MoveNext

Loop

come faccio a dirgli quando cambia il campo vai a capo?

**optime** · 10-11-2008, 11:41

prima del DO metti

mioCampo=""

subito dopo il DO metti

codice:

IF mioCampo<>objRs("campo") THEN
   mioCampo=objRs("campo") 
   response.write objRs("campo") 
END IF

e togli la stampa attuale di objRs("campo")

that easy!

**ottoboni77** · 10-11-2008, 14:33

Sembrava facile!!!

ti ringrazio della risposta ma purtroppo non funziona.
Non appare niente.
Eppure i passaggi sembrano semplici.

codice:

miocampo=""
Do while not objRs.EOF
if miocampo<>objRs("campo") Then
ecc.
END IF

<tr>
<td width="20%" align="center"><%= objRs("percorso") %></td>
<td width="10%" align="center"><%= objRs("colpi") %></td>
<td width="10%" align="center"><%= objRs("anno") %></td>
<td width="30%" align="center"><%= objRs("giocatore") %></td>
</tr>
<%
objRs.MoveNext
Loop

**optime** · 10-11-2008, 16:17

che vuol dire 'non appare niente'?

**ottoboni77** · 10-11-2008, 16:37

non estrae nessun risultato

**optime** · 10-11-2008, 16:46

se invece togli le righe nuove li estrae? mi pare strano... posta tutto il codice (quello che funzia E quello che non funzia)

**ottoboni77** · 10-11-2008, 16:51

si se tolgo tutto il codice nuovo funziona:

codice:

<%@LANGUAGE="VBSCRIPT"%>

<%
Option Explicit
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Mantieni i campi</title>
</head>

<body bgcolor="#C7E2FA">


<%
Dim objConn, strfigspConn, objRs, strsql
strfigspConn = Application("dbfigspconn")
strsql = "Select recordM.*, campi.* from recordM INNER JOIN campi ON recordM.ID_campo = campi.id order by recordM.id_campo, recordM.percorso asc"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strfigspConn
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute(strsql)

Response.write "<div align=center>"
Response.write "<table border='1' width='80%' cellpadding='2' cellspacing='2'>"
response.write "<tr><th colspan='8' align='center'><font size='+2' color='#003399'>Mantieni i campi</font></th></tr>"
%>
<tr>

</tr>

<%
mioCampo=""

Do while Not objRs.EOF

IF mioCampo<>objRs("campo") THEN
	mioCampo=ojbRs("campo")
	response.write objRs("campo")
END IF

%>
<tr>
<td width="20%" align="center"><%= objRs("percorso") %></td>
<td width="10%" align="center"><%= objRs("colpi") %></td>
<td width="10%" align="center"><%= objRs("anno") %></td>
<td width="30%" align="center"><%= objRs("giocatore") %></td>
</tr>
<%
objRs.MoveNext
Loop
Response.Write "</table></div>"
objRs.Close
Set objRs = Nothing

objConn.Close
Set objConn = Nothing


%>
<p align="center" style="margin-top: 0; margin-bottom: 0"></p>

<table border="0" width="80%" align="center">
<tr>
<td align="right">torna a gestione</td>
</tr>
</table>

</body>
</html>

questo è il codice che non funziona. quello funzionante è senza il codice che mi hai passato e che avevo già messo sopra.

Grazie

**optime** · 10-11-2008, 16:58

prova con

codice:

<%
mioCampo=""

Do while Not objRs.EOF

response.write "<tr>"

IF mioCampo<>objRs("campo") THEN
	mioCampo=ojbRs("campo")
%>
<td width="20%" align="center"><%= objRs("campo") %></td>
<%
END IF
%>

<td width="20%" align="center"><%= objRs("percorso") %></td>
<td width="10%" align="center"><%= objRs("colpi") %></td>
<td width="10%" align="center"><%= objRs("anno") %></td>
<td width="30%" align="center"><%= objRs("giocatore") %></td>
</tr>

Discussione: raggruppamento

Strumenti discussione

Ricerca discussione

Visualizza

raggruppamento

Permessi di invio