Introduzione all'uso dei database con ASP

Il problema di Windows e' che non c'e' una 'linea di comando', ne' qualche cosa per poter ricevere la risposta dal programma CGI. Si rende necessario un ulteriore livello.

Un primo tentativo e' stato l'introduzione dello standard WinCGI, ma il colpo gobbo e' stato fatto inventando l'ASP, che in pratica rivoluziona completamente il modo di programmare il Web.

ASP consente infatti di mettere del codice Visual Basic direttamente dentro la pagina HTML, il codice viene interpretato dal Web Server nel momento in cui la pagina viene caricata per essere inviata al Browser dell'utente che la richiede, il risultato dell'elaborazione viene inviato.
Il Browser quindi riceve solo HTML puro, questo fa' dell'ASP un sistema di programmazione che non dipende dal browser usato, a differenza del DHTML che invece soffre delle diversita' tra i vari Browser in circolazione.

Una delle capacita' di ASP e' la possibilita' di sfruttare i programmi COM, cioe' tutti i programmi che sfruttano la tecnologia OLE di Microsoft per poter fornire dati ad altri programmi che ne fanno richiesta (programmi con Word ed Excel per esempio, ma non solo).

Sfruttando adeguatamente l'ADO, l'interfaccia OLE verso ODBC, e' possibile accedere direttamente da ASP ad un qualsiasi database supportato dallo stesso ODBC, interrogarlo ed apportare modifiche ai dati presenti.

Dopo aver creato la Connection, la si deve 'aprire', attivando quindi il collegamento stesso con il database, per 'aprire' la connessione occorre:

• Aver configurato il nostro database nel Pannello di Controllo di ODBC

oppure
• Specificare direttamente tutta la sequenza di parametri che ci consente di collegarci

La prima soluzione e' molto più semplice, ma richiede l'accesso alla configurazione ODBC del server su cui il nostro sito Web e' posto, e non sempre i WebMaster sono disponibili a farci mettere le mani dentro, in alcuni casi poi è impossibile.
La seconda soluzione e' più complicata ma ci permette di cambiare il database usato 'al volo' senza dover modificare configurazioni e cose cosi'.

Ecco un esempio di creazione di una Connessione:

Dim conn

' creo la connessione per il database
Set conn=Server.CreateObject("ADODB.Connection")

' apro la connessione (uso il Pannello di Controllo)
conn.Open "My_ODBC_Dsn"

... faccio qualche cosa

' chiudo la connessione
conn.Close()
Set conn=Nothing

Il codice seguente fà lo stesso, ma specificando tutti i parametri:

Dim conn

' creo la connessione per il database
Set conn=Server.CreateObject("ADODB.Connection")

' apro la connessione (specifico tutto)
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=database.mdb"

... faccio qualche cosa

' chiudo la connessione
conn.Close()
Set conn=Nothing

NB Notate che dopo aver 'chiuso' la Connection con Close(), vi ho assegnato Nothing, questo serve ad assicurarsi che l'oggetto venga eliminato e tutta la memoria rilasciata, non e' obbligatorio, me è consigliabile.

Per leggere dei dati si utilizza l'oggetto Recordset.

Un Recordset viene creato usando la funzione Execute() dell'oggetto Connection, passandogli il comando SQL da eseguire, di solito tale comando e' una SELECT che ritorna un elenco di record dal database.

Una volta ottenuto il recordset e' possibile 'scorrerlo' usando MoveNext() per spostarsi al record successivo, o leggere i dati del record corrente usando Fields("nomedelcampo").

Esempio:

' apro la connection 
.... vedi codice di prima

' creo il RecordSet
Dim res
Set res=conn.Execute("SELECT Nome, Cognome FROM AGENDA")

' ciclo finche' ci sono record
Do While Not res.EOF

   ' faccio qualche cosa con i dati
   nome      = res.Fields("Nome")
   cognome   = res.Fields("Cognome")
   
   ' prossimo record
   res.MoveNext()
   
Loop

' chiudo il recordset
res.Close
Set res=Nothing

In questo caso il codice precedente non fa' nulla perche' testa subito EOF, ma ci sono momenti in cui vorremmo essere avvisati del fatto che non c'e' nessun record nel nostro Recordset.

Un recordset vuoto ha EOF e BOF contemporaneamente a True

Quindi :
If rec.EOF And rec.BOF Then...
sappiamo che il nostro recordset e' vuoto e possiamo prendere le precauzioni del caso.

A che serve questa proprieta'? RecordCount ha un valore sensato solo se:

• abbiamo aperto il recordset specificando che si tratta di un RecordSet scrollabile specificando ,3,3 dopo la nostra SELECT.

oppure
• abbiamo fatto una MoveLast() subito dopo l'apertura del RecordSet.

Un'altra soluzione per avere il numero di record e' quello di fare due query: la prima usando SELECT COUNT(*) FROM tabella WHERE... e la seconda per estrarre effettivamente i dati (quindi specificando il nome dei campi invece di COUNT(*), la prima query a questo punto ritornera il numero di record che verranno estratti dalla seconda, senza dover fare cose strane.
Esempio:

' apro la connection 
.... vedi codice di prima

Dim rec

' conto il numero di record nella tabella
Set res=conn.Execute("SELECT COUNT(*) Conteggio FROM AGENDA")

numRecord=res.Fields("Conteggio")

res.Close
Set res=Nothing

' ora leggo i dati
Set res=conn.Execute("SELECT Nome, Cognome FROM AGENDA")

...faccio altre cose

' chiudo il recordset
res.Close
Set res=Nothing

Per esempio:

' eseguo le modifiche nel database
Dim sql

sql = "UPDATE tabella SET campo1='" & stringa & "',"
sql = sql & "campo2=" & valore &
sql = sql & " WHERE " & condizioni
conn.Execute( sql )

sql =       "INSERT INTO tabella "
sql = sql & "( campo1, campo2)"
sql = sql & "  VALUES ('" 
sql = sql &  stringa & "'," & valore & ")"
conn.Execute( sql )

sql = "DELETE FROM tabella WHERE campo1='" & stringa & "'"
conn.Execute( sql )

Questo significa che dobbiamo usare l'SQL di ODBC, e non quello specifico del Database che stiamo usando.

Se Access richiede le virgolette intorno alle date o le parentesi quadre o altre cose simili, ODBC non lo richiede, anzi intorno alle date ci vuole i cancelletti (#).

Se siamo abituati ad usare l'asterisco come carattere jolly nelle nostre query ricordiamoci che il carattere jolly in ODBC SQL e' il percento (%).

Di solito le Stored Procedure non ritornano dati o, se lo fanno, li scrivono in una tabella temporanea che poi andremo a leggerci.

Max length of comments: 1000 chars.

Add a comment (max 1000 chars)