透过ADO取得Access数据库的所有数据表名称

感谢小铺中的老顽童大大提供的方法

Dim DbFile, DBPath, Conn, Rs
DbFile= "Db.mdb"
Set conn = Server.CreateObject( "ADODB.Connection")
DBPath = Server.MapPath(DbFile)
Conn.open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & DBPath
Const adSchemaTables = 20
Set Rs = Conn.OpenSchema(adSchemaTables,array( empty, empty, empty, "Table"))
If Not(rs.BOF And rs.EOF) Then
rs.MoveFirst
For y = 1 to rs.RecordCount
    Response.Write Rs( "Table_Name") & ""
    Rs.MoveNext
Next
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
 

转载于:https://www.cnblogs.com/topcat/archive/2008/06/14/1221036.html