I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2
robflat
robflat
il 18 ottobre 2002 alle 15:31
14 messaggi dal 03 ottobre 2002
www.placementlatina.it
Salve,

riesco a far visualizzare all'interno di una tabella i dati inseriti in un database in questo modo:

Response.write "<table width='35%' border='2' bordercolor='#3366CC'>"
ArrCampi= Array("data di nascita","luogo","indirizzo","telefono","cellulare","e-mail","posizione militare","stato civile")
For i=0 to 7
response.write "<tr><td>"
Response.Write(Rs.Fields("" & ArrCampi(i) & ""))
response.write "</tr></td>"
next
response.write "</table>"

In pratica viene visualizzata una tabella di una colonna e 8 righe, ora però ho bisogno di visualizzare accanto ad ogni cella il nome del campo del database corrispondente, per esempio ora nella cella e-mail appare l'indirizo e-mail della persona, io voglio che alla sinistra della mail appaia la scritta "e-mail:" lo stesso per le altre celle ad es.. posizione militare, ora appare la scritta "in attesa" e io vorrei che alla sinistra ci sia il testo "posizione militare:"

Sono stato chiaro?

grazie per l'aiuto
Roberto
RispondiQuoting
rafpas
rafpas
il 18 ottobre 2002 alle 16:26
435 messaggi dal 14 giugno 2002
scusa perche non fai in questo modo:
<table border=1 cellspacing=1 cellpadding=1 width="80%" align=center bgcolor="#e7e7e7">
<tr>
<th class=nomecampo>LabelCampo</th>
<th class=nomecampo>LabelCampo</th>
<th class=nomecampo>LabelCampo</th>
<th class=nomecampo>LabelCampo</th>
<th class=nomecampo>LabelCampo</th>
</tr>
<%while not rs.EOF %>
<tr>
<td class=valorecampo align=center>&nbsp;<%=rs("nomecampo")%></td>
<td class=valorecampo>&nbsp;<%=rs("nomecampo")%></td>
<td class=valorecampo>&nbsp;<%=rs("nomecampo")%></td>
<td class=valorecampo align=center>&nbsp;<%=rs("nomecampo")%></td>
</tr>
<%rs.MoveNext
wend %>
nella prima riga inserisci i nomi dei campi e nelle righe succesice i campi de db.

ciao spero di essete stato utile,
RispondiQuoting
robflat
robflat
il 18 ottobre 2002 alle 18:52
14 messaggi dal 03 ottobre 2002
www.placementlatina.it
Grazie,

senti visto che non sono proprio pratico :-) non ho ben capito cosa devo fare con quel codice:
Non ho capito quali valori devo sostituire, se "nomecampo" "labelcampo" o "valorecampo"

Partendo dal presupposto che i campi del database hanno i seguenti nomi potresti riscrivermi il codice?

"data di nascita","luogo","indirizzo","telefono","cellulare","e-mail","posizione militare","stato civile"

Mi sembra di capire che il codice che mi hai postato sostiuisce completamente il mio codice giusto?

Sei molto gentile
Roberto
RispondiQuoting
rome
rome
il 18 ottobre 2002 alle 23:32
2.907 messaggi dal 15 maggio 2001
Contributi
Semplicemente :

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("tuo_database.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "Select * from tabella", conn

do until rs.EOF
for each x in rs.Fields

Response.Write("<table width=""100%"" border=""0""><tr><td>"&x.name&"</td>")
Response.Write("<td> = </td>")
Response.Write("<td>"&x.value &"</td></tr>")
Response.write("</table>")
next
Response.Write("<br>")
rs.MoveNext
loop

rs.close
conn.close
%>

RispondiQuoting
robflat
robflat
il 19 ottobre 2002 alle 01:03
14 messaggi dal 03 ottobre 2002
www.placementlatina.it
E' perfetto grazie,

non è che sapresti dirmi anche come NON far visualizzare i primi 4 campi del database che sono:

ID
password
nome
cognome

notte
Rob
RispondiQuoting
rome
rome
il 19 ottobre 2002 alle 10:26
2.907 messaggi dal 15 maggio 2001
Contributi
Semplicemente usando delle condizioni :


<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("tuo_database.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "Select * from tabella", conn

do until rs.EOF
for each x in rs.Fields

if x.name ="ID" or x.name="password" or x.name="nome" or x.name="cognome" then
else

Response.Write("<table width=""100%"" border=""0""><tr><td>"&x.name&"</td>")
Response.Write("<td> = </td>")
Response.Write("<td>"&x.value &"</td></tr>")
Response.write("</table>")

end if

next
Response.Write("<br>")
rs.MoveNext
loop

rs.close
conn.close
%>
RispondiQuoting
robflat
robflat
il 19 ottobre 2002 alle 16:04
14 messaggi dal 03 ottobre 2002
www.placementlatina.it
Sei un angelo!!

grazie
Rob

P.S.
oltre a chiedere consigli ho comprato anche Asp 3 Per esempi, per cominciare mi sembra un buon libro, hai da consigliarmi qualcosa di più avanzato da comprare fra qualche mese?
RispondiQuoting
rome
rome
il 19 ottobre 2002 alle 18:27
2.907 messaggi dal 15 maggio 2001
Contributi
Magari fossi un angelo...

Quando hai preso un po' di dimestichezza con le Asp puoi acquistare "Asp3 la guida completa" di Apogeo... è un MATTONE ma è ben fatta !

in più ovviamente leggi qui su Aspitalia gli innumerevoli tutorial e articoli che sono di grande aiuto....

un salutone
RispondiQuoting
1 2

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.