Метод 1: Используйте метод openschema () ADO, чтобы открыть AdScheMatables и создать набор записей схемы
Код:
<%
Constadschematables = 20
adschemacolumns = 4
DimConn, DB
DimConnstr
db = "temp.mdb" '' Имя файла базы данных доступа, используйте абсолютный путь относительно корневого каталога веб -сайта
Connstr = "Provider = microsoft.jet.oledb.4.0; dataSource =" & server.mappath (db)
SetConn = server.createObject ("adodb.connection")
Conn.openconstr
Dimrstschema
Тусклый
Setrstschema = conn.openschema (adschematables)
Dowhilenottrstschema.eof
response.write ("TableName:" & rstschema ("table_name") & vbcr & _
"TableType:" & rstschema ("table_type") & vbcr)
response.write ("<br/>")
I = i+1
rstschema.movenext
Петля
rstschema.close
Conn.close
%>
Метод 2: Таблица системы доступа msysObjects содержит список объектов базы данных. Хотя это и не задокументировано в документации, вы все равно можете получить то, что вы хотите, запрашивая его. Однако по умолчанию таблица операционной системы не может быть выполнена, и разрешения должны быть установлены вручную для запроса таблицы системы.
Пожалуйста, обратитесь к следующей анимации: Как получить разрешения на операцию для MSYSObject http://blog.iyi.cn/user/david/archives/images/msobject.swf
Тем не менее, я не могу найти эти системные таблицы в Access2003. Я не знаю, повышает ли M $ безопасность Access.
Используйте следующий оператор SQL, чтобы получить то, что вы хотите
Код:
Запрос:
SelectmsysObjects.namefrommsysobjectswere (слева ([name], 1) <> "~") и (msysobjects.type) = 5derbymsysobjects.name;
Форма:
SelectmsysObjects.namefrommsysobjectswere (слева ([name], 1) <> "~") и (msysobjects.type) =-32768 dorderbymsysobjects.name;
поверхность:
SelectmsysObjects.namefrommsysobjectswere (слева ([имя], 1) <> "~") и (слева $ ([имя], 4) <> "msys") и (msysobjects.type) = 1derbymsysobjects.name;
Отчет:
SelectmsysObjects.namefrommsysobjectswere (слева ([name], 1) <> "~") и (msysobjects.type) =-327649derbymsysobjects.name;
Модуль:
SelectmsysObjects.namefrommsysobjectswere (слева ([имя], 1) <> "~") и (msysobjects.type) =-32761 dorderbymsysobjects.name;
Макро:
SelectmsysObjects.namefrommsysobjectswere (слева ([имя], 1) <> "~") и (msysobjects.type) =-327666derbymsysobjects.name;