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">&nbsp;</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">&nbsp;</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.

 

 

Ultimi Articoli

01.05.2017
Proteggere Access
11.03.2017
Perche' imparare il VBScript
22.08.2016
Rubrica con VBScript - Parte 2
28.07.2016
Rubbrica con VBScript - Parte 1
15.12.2015
Raccolta dati da sito web