Visualizzare tutte le tabelle ed i campi di un database

Per mezzo di questo script è possibile visualizzare a video i nomi delle tabelle e dei rispettivi campi che formano il database aperto tramite la connessione desiderata:

<%

set rsT = Server.CreateObject("ADODB.Recordset")

set rsC = Server.CreateObject("ADODB.Recordset")

'Esempio di connessione OLEDB al database

'Set Conn = Server.CreateObject("ADODB.Connection")

'Conn.Open "Trusted_Connection=yes;Provider=SQLOLEDB;Data Source=(local);Initial Catalog=nomedatabase;"

'Esempio di connessione DSN-LESS al database

'Set Conn = Server.CreateObject("ADODB.Connection")

'Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" &

'Server.MapPath("percorso/database.mdb")

Set RsT = Conn.OpenSchema(20)

do while not RsT.eof

%><br><b><%= rsT("TABLE_NAME") %></b><br><%

Set RsC = Conn.OpenSchema(4, Array(Empty, Empty, "" & rsT("TABLE_NAME")))

do while not rsC.eof

%><%= rsC("COLUMN_NAME") %><br><%

rsC.moveNext

loop

rsT.MoveNext

loop

rsT.Close

Set rsT = Nothing

rsC.Close

Set rsC = Nothing

Conn.Close

Set Conn = Nothing

%>