Usa questo coltellino svizzero:
codice:
<%
'Questo piccolo tool permette di vedere i dati presenti in una tabella
'Access senza disporre del programma 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"
%>
<html>
<head>
<title>Vedi database</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK href="verdana.css" type="text/css" rel="stylesheet">
</head>
<body>
<%
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/HRcafe.mdb")
'set connession to database
Set objConn=Server.CreateObject("ADODB.Connection")
'open connession to database
objConn.Open cstring
Set rs = Server.CreateObject("ADODB.Recordset")
nometabella="eventi2" ' inserisci qui il nome della tabella da vedere
SQL = "select * From "&nometabella&""
'apro il rs
rs.Open sql, objConn, 3, 3
' NB: si può anche fare: rs.Open "eventi2", objConn, 3, 3
' senza query (se devi leggere tutti i dati)
' e funziona lo stesso
%>
<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 class="gialloc" border="1" cellspacing='1' cellpadding='1' width="60%">
<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
'chiudo tutto
objConn.close
set objconn=nothing
%>
</body>
</html>
Devi solo inserire l'url del tuo database nella stringa di connessione e scrivere il nome della tabella che vuoi vedere nella variabile
nometabella = .....
Permessi di invio
Rispondi quotando