Problema con lettura dati da db.

**bob18** · 02-08-2005, 23:13

Salve,

ho creato una semplice applicazione di lettura dati da un database.
La riporto di seguito:

codice:

<%
'Creiamo l’oggetto Connection
Set Connessione = CreateObject ("ADODB.Connection")
'specifichiamo il Driver per la connessione
Connessione.Provider = "Microsoft.Jet.OLEDB.4.0"
'Apriamo la connessione
Connessione.Open "Data Source=C:\Inetpub\wwwroot\prova\db.mdb"

sql="SELECT * FROM id ORDER BY name"

Set rs = Connessione.Execute(sql)

iCount = 1
If rs.EOF Then 'se non ci sono record
  Response.write"Il database è vuoto"
Else
  do while not rs.eof
    if (iCount mod 2) = 1 then%>
		<table border="2" width="300"><%end if%>
			<tr><td><%=rs("nome")%></td><td align="left"><%=rs("indirizzo")%></tr><tr><td align="left"><%=rs("citta")%></td></tr>
		</table>

		<%
if (iCount mod 2) = 0 then%>
    <%
    end if
    iCount = iCount +1
    rs.movenext
  loop
end if

rs.close
Connessione.close
set rs=nothing
set Connessione=nothing
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Mia pagina</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
</body>
</html>

Questo script visualizza ogni tabella secondo una lista verticale, vale a dire:

nome1 indirizzo1 citta1
nome2 indirizzo2 citta2
nomen indirizzon cittan...

io invece vorrei visualizzare lo script su più tabelle per riga, ad esempio:

nome1 indirizzo1 citta1 nome2 indirizzo2 citta2
nome3 indirizzo3 citta3 nomen indirizzon cittan...

come è possibile fare ciò?

magari mi potrste aggiustare il codice o segnalare qualche altro script già pronto?
sono un asino in asp...

grazie mille!

**Roby_72** · 02-08-2005, 23:21

Il problema non è dell'ASP ma di HTML.
Inoltre, sempre per quanto riguarda l'HTML, lo script è completamente sbagliato in quanto stampi le tabelle PRIMA della dichiarazione <html> della pagina e ciò non ha alcun senso.

Roby

**bob18** · 02-08-2005, 23:26

e in che modo potrei
1) stampare i dati nei tag html
2) fare in modo che si visualizzino su due o più tabelle per riga?

grazie

**Roby_72** · 02-08-2005, 23:37

1) Devi mettere il codice di stampa qui dentro:

<body>
</body>

oppure usare sopra una variabile che racchiuda tutto e poi stamparla:
<body>
<%=variabile%>
</body>

2) Devi usare un contatore da utilizzare per il numero di COLONNE non tabelle che ti occorrono affiancate.
Le tabelle per loro natura sono una sotto l'altra.
Lavora prima in HTML e dopo che avrai capito come impostare l'impaginazione la realizererai in forma dinamica con ASP. Prima la devi capire in HTML però...

Roby

**bob18** · 02-08-2005, 23:47

beh saprei già come impostarla:

una tabella con tre colonne (che chiamerò "main") e poi all'interno tutte le tabelle contenenti i campi:

guarda l'esempio

solo che il problema sta nell'integrazione con l'ASP

come procedo dopo aver definito la struttura in HTML?

**santino83** · 02-08-2005, 23:51

ad occhio:

codice:

<%
If rs.EOF Then 'se non ci sono record
  Response.write"Il database è vuoto"
Else
%>
<table width="" cellpadding="" cellspacing="">
<%
contaTot=numColonne
contaN=1
  while not rs.eof
%>
<%if contN=1 then%>
<tr>
<%end if%>
<td></td>
<%if contaN=contaTot then%>
</tr>
<%
contaN=0
end if%>
<%contaN=contaN+1
rs.moveNext
wend%>

<%if contaN<contaTot then response.write("</tr>")%>
</table>
<%end if%>

**bob18** · 02-08-2005, 23:57

ciao santino,
alla luce del primo messaggio che ho scritto, potresti riscrivermi tutto il codice con le tue modifiche? compresa la connessione al db... è che l'ho implementato io ma mi appaiono dei messaggi strani

grazie mille

**santino83** · 03-08-2005, 00:01

dammi 5 min

**bob18** · 03-08-2005, 00:03

Originariamente inviato da santino83
dammi 5 min

certissimo

**santino83** · 03-08-2005, 00:09

codice:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Mia pagina</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
'Creiamo l’oggetto Connection
set connessione=server.CreateObject("adodb.connection")
connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/prova/db.mdb")

sql="SELECT * FROM id ORDER BY name"

Set rs = Connessione.Execute(sql)

dim numColonne
numColonne=3 'imposto a 3 il numero delle colonen da visualizzare

iCount = 1
If rs.EOF Then 'se non ci sono record
  Response.write"Il database è vuoto"
Else
%>		
    <table border="2" width="300">
<%
  do while not rs.eof%>
  <%if iCount=1 then%>
			<tr>
			<%end if%>
			
			<td align="left"><%=rs("nome")%><%=rs("indirizzo")%>

			<%=rs("citta")%></td>
			<%if iCount=numColonne then%>
			</tr>
			<%iCount=0
			end if%>

    <%
iCount=iCount+1
    rs.movenext
  loop
  
  if iCount<numColonne and iCount>1 then response.Write("</tr>")
  %>
  		</table>
		<%
end if


rs.close
Connessione.close
set rs=nothing
set Connessione=nothing
%>
</body>
</html>

Discussione: Problema con lettura dati da db.

Strumenti discussione

Ricerca discussione

Visualizza

Problema con lettura dati da db.

Permessi di invio