Per elencare tutte le tabelle presenti in un database con OpenSchema.

Questo script ci permette di elencare tutte le tabelle presenti in un database usando OpenSchema.

<!--METADATA Type="typelib" uuid="{00000205-0000-0010-8000-00AA006D2EA4}"-->
<%
SQLConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")


set conn = server.createobject("ADODB.Connection") 
conn.open sqlconn 
set rs = conn.OpenSchema(adSchemaTables)

Do while not rs.eof
        if rs("table_type") = "TABLE" then
                response.write rs("table_name") & "<br>"
        end if
rs.movenext
loop

rs.close
set rs = Nothing
conn.close
set conn = Nothing
%>

<%
'...connessione al database
sql="select name from MSysObjects where type = 1 "
%>

shumacher, download, asp, senna, sport, sorpassi, programmazione, formula1, comici, macchine sportive, incidenti, freeware, filmato, pele, porsche, php, auto, chat, del piero, calcio