|
|
 Buono sconto 4% su Toner e Cartucce agli utenti AZpoint. SU Iomiricarico.it!!
Introduzione
Un piccolo e semplice esempio di lettura dati da database:
Codice per lo script
<%@ Language=VBScript %>
<%
Option Explicit
Response.ExpiresAbsolute=Now()
%>
<HTML>
<HEAD><TITLE>...::stracca.net::...</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>
Spiegazioni e conclusioni
Puoi anche scaricare l'esempio al seguente indirizzo:
Download (12.8KB)
|
|
[Indietro]
[Su]
[Home]
[Commenti]
[V. Stampabile]
|
|
|
|
Commento di Anonimo (ip: 80.116.64.163), scritto il 24/05/2005 alle 13:48:10
|
|
|
|
Shopping
