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…
Lettura dati dal database Access
Pubblicato prima del 07/05/2008 - Informazione assente
Descrizione non disponibile. Questo membro non è più parte della Community.
|
Aggiungi un commento