LETTURA DATI DAL DATABASE ACCESS

Questo script legge dati da un database access della microsoft. Viene molto usato in ASP perché è gratuito..

Procediamo al codice:
---------------------------
<%
‘Dichiarazione delle variabili
Dim rs, strSQL, strConn
‘Creo la SELECT con SQL per ricavare dati dal database
strSQL = "SELECT * FROM Autori"
‘’Creo la stringa di connessione al database access
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database.mdb")&";Persist Security Info=False"
‘Creo l’oggetto di tipo ADOB.Recordset (Recordset=lettura)
Set rs = Server.CreateObject("ADODB.Recordset")
‘Apro l’oggetto creato sopra e li passo la stringa SQL e la stringa di connessione al db
rs.Open strSQL, strConn
    ‘Il ciclo WHILE per leggere tutti dati dal database
    WHILE NOT rs.EOF AND NOT rs.BOF
        ‘Recupero dati dal database e li stampo a video
        Response.Write("NOME: "&rs.Fields("Nome")&" COGNOME: "&rs.Fields("Cognome")&"<br>")
        ‘Passo al successivo recordset nel database
        rs.MoveNext()
    ‘Ritorna al ciclo while se la condizione (NOT rs.EOF AND NOT rs.BOF) è vera
    WEND
‘Chiude l’oggetto Recordset
rs.Close
‘Libera memoria dal oggetto Recordset
Set rs = Nothing
%>
---------------------------

FINE

Alla prossima…