Il metodo openSchema va utilizzato così per stampare il nome delle tabelle contenute nel db.
codice:
<%
Dim cn, rs, adSchemaTables
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("tuodb.mdb")
adSchemaTables = 20
Set rs = cn.OpenSchema(adSchemaTables)
do while not rs.eof
if Trim(rs("TABLE_TYPE")) = "TABLE" then
Response.Write rs("TABLE_NAME") & "
"
end if
rs.MoveNext
loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>
Se utilizzi OLEDB Provider è meglio.