Gestire un database di Access da una pagina web
Una cosa che forse non tutti sanno
è la possibilità di collegare un database ad un sito
web, in modo particolare ad una pagina ASP che può
essere utilizzata come una classica maschera per
inserire, modificare e visualizzare i dati.
Ovviamente possono anche essere stampati (basta stampare
la pagina web).
In questo tutorial cercherò di spiegare il concetto con un semplice esempio.
Fondamentalmente dovremmo concentrarci
sulla pagina web in quanto il file di Access sarà
formato solo da tabelle contenenti i dati.
Le pagine ASP sono pagine scritte con un linguaggio
particolare: il VBScript, una sorta di Visual Basic
modificato.
Il concetto è quello di connetterci prima al database,
poi alla tabella che mi serve, fare una serie di
operazioni e poi chiudere la connessione.
Creiamo una pagina come in Fig.1 che legge semplicemente una tabella contenente dei nominativi.
Fig.1
E riporto sotto il codice in HTML della pagina commentato:
<%
Dim ado_OpenKeyset
Dim ado_LockOptimistic
ado_OpenKeyset=1
ado_LockOptimistic=3
strConnect="provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=E:\WWW\matteosiviero\Download\Prova.mdb"
'Percorso fisico sul
server del mio database
strSQL="SELECT * FROM Nomi ORDER BY Cognome"
'Mi connetto alla
tabella Nomi ed ordino i dati in ordine alfabetico
secondo il campo Cognome
Set rst=server.createobject("ADODB.RECORDSET")
rst.open strSQL, strConnect,
ado_OpenKeyset,ado_LockOptimistic
%>
<html>
<head>
<title>Nominativi</title>
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=1000
height="1">
<TR>
<TD height="1" width="948">
<font size="1"> </font></TD>
</TR>
<TR>
<TD height="24" width="100%">
<p align="center">
<div align="center">
<table border = "1" width="100%" cellspacing="0"
cellpadding="0" style="border-collapse: collapse">
<TD bgcolor="#C0C0C0" valign="top">
<p align="left"><b><font face="Verdana"
color="#FFFFFF">Nome</font></b></TD>
<TD bgcolor="#C0C0C0" valign="top" align="center"
width="420">
<p align="left"><b><font face="Verdana"
color="#FFFFFF">Cognome</font></b></TD>
<TD bgcolor="#C0C0C0" valign="top" align="center"
width="154">
<b><font face="Verdana" color="#FFFFFF">Nato/a il
</font></b></TD>
<%
Do While Not rst.EOF
%>
<TR>
<TD valign="top"><font face="Verdana" size="2"><b><% =
rst("Nome")%></b></font></TD>
<TD valign="top" width="420"><font face="Verdana"
size="2"><b><% = rst("Cognome") %></b></font></TD>
<TD valign="top" width="154" align="center"><font
face="Verdana" size="2"><b><% = rst("Nascita")
%></b></font></TD>
'<% rst("Nome") %>
indica che il campo assume il valore del campo Nome.
Stessa cosa Cognome e Nascita
<%
rst.MoveNext
Loop
rst.close
%> </TABLE>
'Continuo a leggere
le righe del database fino alla fine del file e scrivo
il contenuto nella tabella
</p>
</form></TD>
</TR>
<TR>
<TD height="31" width="100%" bgcolor="#FFFFFF">
<p align="center"><font size="1"> </font></TD>
</TR>
</TABLE>
</center>
</div>
</body>
</html>
Per ora la seguente tabella non fa altro
che leggere le righe di un database e mostrarle in un
elenco.
Si possono anche creare pagine per inserire e modificare
i dati, ma questo richiede maggior approfondimento
perchè bisogna creare più pagine per modificare, salvare
e mostrare i dati.
Buon lavoro.