|
|
Lettura
dati da database |
Un piccolo e semplice esempio di lettura dati da database:
<%@ Language=VBScript %>
<%
Option Explicit
Response.ExpiresAbsolute=Now()
%>
<HTML>
<HEAD><TITLE>...::Guidainlinea.com::...</TITLE></HEAD>
<BODY>
<CENTER>
<H2>Visualizzazione dati da database</H2>
<%
Dim conn
Dim rs
Dim sSql
'Imposto la connessione
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/db1.mdb")
'Imposto la stringa SQL di selezione dati
sSql = "SELECT ID, Nome, Cognome, Commento FROM tab1 ORDER BY Cognome, Nome"
'Creo e apro il Set di Record
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSql, conn, 3, 3
%>
<CENTER>
<TABLE BORDER="1" CELLSPACING="2" CELLPADDING="2" ALIGN="CENTER">
<TR>
<TD><B>ID</B></TD>
<TD><B>Cognome</B></TD>
<TD><B>Nome</B></TD>
<TD><B>Commento</B></TD>
</TR>
<%
'Controllo se non c'e' nessun dato (EOF=End Of File)
If rs.EOF=True Then
%>
<TR>
<TD>Nessun record trovato</TD>
</TR>
<%
Else
Do Until rs.EOF
%>
<TR>
<TD><%=rs.Fields("ID").Value%> </TD>
<TD><%=rs.Fields("Cognome").Value%> </TD>
<TD><%=rs.Fields("Nome").Value%> </TD>
<TD><%=rs.Fields("Commento").Value%> </TD>
</TR>
<%
rs.MoveNext
Loop
End If
'Chiudo il recordset e libero la memoria
rs.Close
Set rs = Nothing
'Chiudo la connessione al database e libero la memoria
conn.Close
Set conn = Nothing
%>
</TABLE>
</CENTER>
</BODY>
</HTML> |
A cura di Stefano Straccuzzi
|
|
|
Guidainlinea.com come homepage
Aggiungi questa pagina ai preferiti