Questo piccolo tool permette di vedere i dati presenti in una tabella
Access senza disporre del programma (ACCESS) e sopratutto senza conoscere il nome e il numero dei campi e dei records.
Basta adattare la stringa di connessione al proprio database e scrivere il nome della tabella da visualizzare nella variabile "nometabella"
codice:
<html>
<head>
</head>
<body>
<%
'Stringa per la connessione
cString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("prova.mdb")
'setta la connessione
Set objConn=Server.CreateObject("ADODB.Connection")
'apre connession
objConn.Open cstring
Set rs = Server.CreateObject("ADODB.Recordset")
nometabella="config" ' inserisci qui il nome della tabella da vedere
sql = "SELECT * from "&nometabella&""
'apre il rs
rs.Open sql, objConn, 3, 3
%>
<center><table border="0" width="80%">
<tr>
<td align="center">Questa è la tabella <%=nometabella%></td>
</tr>
</table>
<%
if rs.eof then
%>
<center><table border="0" width="80%">
<tr>
<td align="center">Niente dati</td>
</tr>
</table>
</center>
<%
else
%>
<table border="1" cellspacing='1' cellpadding='1' width="80%">
<tr>
<%
For Each campo in rs.Fields
Response.Write ("<td align='center'>"&campo.Name&"</td>")
Next
%>
</tr>
<%
rs.movefirst
do until rs.eof
%><tr><%
For Each campo in rs.Fields
Response.Write ("<td>"&campo.value&"</td>")
next
%></tr><%
rs.movenext
loop
end if
%>
</table>
</center>
<%
rs.close
set rs=nothing
'chiude tutto
objConn.close
set objconn=nothing
%>
</body>
</html>
Fanne buon uso
Rispondi quotando
