visualizzazione record

[elthundra]

ciao a tutti,
allo scopo di rendere il codice più leggero, vorrei che nella visualizzazione dei record di un database access in una tabella, dopo il primo record non vengano create altre righe, ma che venga ad essere inserito il
in modo da avere un'unica riga <tr>.
ho fatto diversi tentativi, ma non sono riuscito. qualcuno è in grado di darmi una mano? grazie.
il codice è questo:

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
Set Apples = Server.CreateObject("ADODB.Connection")

ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; "
ConnStr = ConnStr & "DBQ=" & Server.MapPath("/mdb-database/database.mdb")
Apples.Open(ConnStr)
%>
<%
string = "SELECT * FROM dati ORDER BY numero DESC, cognome ASC"
Set record = Apples.Execute(string)
while not record.eof
%>
<tr>
<td width="50%"><%=record("cognome")%><%=record("nome" )%></td>
<td width="50%"><%=record("numero")%></td>
</tr>
<%
record.MoveNext
Wend
record.Close
Apples.Close
set Apples = Nothing%>
</table>

[michele.santoro]

Onestamente non ho capito cosa vuoi fare e cosa significa "... dopo il primo record non vengano create altre righe, ma che venga ad essere inserito il
in modo da avere un'unica riga <tr>."
E comunque non capisco come possa funzionarti lo script così come l'hai scritto tu. Se prima scrivi "ConnStr" perché poi scrivi str= "SELECT * FROM dati ORDER BY numero DESC, cognome ASC"?
Non dovrebbe essere così?

str= "SELECT * FROM dati ORDER BY numero DESC, cognome ASC"
Set record = Apples.Execute(str)

Cerca di spiegare meglio quello che vuoi fare. Forse una paginazione con un solo record per pagina?

[elthundra]

ciao michele e grazie per la risposta. forse non ho posto bene la domanda...
intendo dire che vorrei che tutti i record di un campo (es. cognome) stessero all'interno di una stessa cella <td> mandati a capo dal comando
in modo da evitare che, per esempio, 100 record vengano ad essere visualizzati in 100 righe.

per quanto riguarda il codice, hai ragione tu. l'ho solo copiato ancora in fase di ultimazione.

[wallrider]

può esserti utile il metodo getstring dell'oggetto recordset

[elthundra]

ho provato anche con il metodo getstring, ma il risultato è lo stesso...

vedi codice, magari c'è qualcosa fuori ordine...

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
Dim DBConn, objRS
Set DBConn = Server.CreateObject ("ADODB.Connection")
DBConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/database.mdb")
Set objRS = Server.CreateObject("ADODB.Recordset")
Dim strSQL
strSQL="SELECT * FROM dati ORDER BY cognome DESC, numero DESC"
objRS.Open strSQL, DBConn
%>
<%Do Until objRS.EOF = True%>
<tr>
<td width="60%" class="verd11pxb"><%Response.Write objRS("cognome") & objRS("nome") & "
"%></td>
<td width="20%" class="verdbia8"><%Response.Write objRS("numero") & "
"%></td>
<td width="20%" class="verdbia8"><%Response.Write objRS("mail") & "
"%></td>
</tr><%objRS.MoveNext
Loop%>
<%
objRS.Close
Set objRS=Nothing
DBConn.Close
Set DBConn=Nothing%>
</table>

[michele.santoro]

Originariamente inviato da elthundra
ciao michele e grazie per la risposta. forse non ho posto bene la domanda...
intendo dire che vorrei che tutti i record di un campo (es. cognome) stessero all'interno di una stessa cella <td> mandati a capo dal comando
in modo da evitare che, per esempio, 100 record vengano ad essere visualizzati in 100 righe.

per quanto riguarda il codice, hai ragione tu. l'ho solo copiato ancora in fase di ultimazione.

Scusa il ritardo ma sono stato via.
Prova così:

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%"><%
Set Apples = Server.CreateObject("ADODB.Connection")

ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; "
ConnStr = ConnStr & "DBQ=" & Server.MapPath("mdb-database/database.mdb")
Apples.Open(ConnStr)
%>
<%
str = "SELECT * FROM dati ORDER BY numero DESC, cognome ASC"
Set record = Apples.Execute(str)
while not record.eof
%>
<%
Response.Write (record("cognome")&" "& record("nome")&" "& record("numero"))
%>


<%
record.MoveNext
Wend
record.Close
Apples.Close
set Apples = Nothing%>
</td>
</tr>
</table>
</div>

Fai sapere!

[elthundra]

così potrebbe anche funzionare, ma in questo modo i dati vengono visualizzati, oltre che in un'unica cella, anche in un'unica colonna, invece tutti i record dovrebbero essere visualizzati in una tabella con una riga e tre colonne.
dovrei forse ripetere lo script in ogni cella per ogni campo? :master:

[michele.santoro]

Originariamente inviato da elthundra
così potrebbe anche funzionare, ma in questo modo i dati vengono visualizzati, oltre che in un'unica cella, anche in un'unica colonna, invece tutti i record dovrebbero essere visualizzati in una tabella con una riga e tre colonne.
dovrei forse ripetere lo script in ogni cella per ogni campo? :master:

Intendi più o meno questo?

<table width="100%" border="1" cellspacing="0" cellpadding="0" height="30">
<%
Dim DBConn, objRS, strSQL, DBConn1, objRS1, strSQL1, DBConn2, objRS2, strSQL2

Set DBConn = Server.CreateObject ("ADODB.Connection")
DBConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mdb-database/database.mdb")
Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM dati ORDER BY cognome DESC, numero DESC"
objRS.Open strSQL, DBConn
%>
<tr>
<td width="30%" class="verd11pxb">
<font face="Arial" size="2" color="#000080">

<%Do Until objRS.EOF = True%> 
<%=objRS("cognome")
%>



<%objRS.MoveNext
Loop%>
<%
objRS.Close
Set objRS=Nothing
DBConn.Close
Set DBConn=Nothing
%>
<%'================================ FINE PRIMO CICLO =====================================%>


<%
Set DBConn1 = Server.CreateObject ("ADODB.Connection")
DBConn1.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mdb-database/database.mdb")
Set objRS1 = Server.CreateObject("ADODB.Recordset")

strSQL1="SELECT * FROM dati ORDER BY cognome DESC, numero DESC"
objRS1.Open strSQL1, DBConn1
%>

</font>

<td width="30%" class="verd11pxb">

<font face="Arial" size="2" color="#000080">

<%Do Until objRS1.EOF = True%> 


<%=objRS1("nome")%>



<%objRS1.MoveNext
Loop%>
<%
objRS1.Close
Set objRS1=Nothing
DBConn1.Close
Set DBConn1=Nothing%>

<%'================================ FINE SECONDO CICLO =====================================%>


<%
Set DBConn2 = Server.CreateObject ("ADODB.Connection")
DBConn2.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mdb-database/database.mdb")
Set objRS2 = Server.CreateObject("ADODB.Recordset")
strSQL2="SELECT * FROM dati ORDER BY cognome DESC, numero DESC"
objRS2.Open strSQL2, DBConn2
%>

</font>

<td width="30%" class="verd11pxb">

<font face="Arial" size="2" color="#000080">

<%Do Until objRS2.EOF = True%> 


<%=objRS2("numero")%>



<%objRS2.MoveNext
Loop%>

<%
objRS2.Close
Set objRS2=Nothing
DBConn2.Close
Set DBConn2=Nothing
%>
<%'================================ FINE TERZO CICLO =====================================%>

</font>

</td></td></td></tr>
</table>

sicuramente ci sarà un modo migliore e più snello, ma così dovrebbe funzionare

[elthundra]

grazie mille per la tua disponibilità Michele,
proverò ad utilizzare questo sistema con diversi cicli di apertura e chiusura del database