asp 获取access系统表，查询等操作代码

　　方法一：直接用ado的OpenSchema()方法打开adSchemaTables，建立一个schema记录集


Code:
<%
ConstadSchemaTables=20
adSchemaColumns=4
dimConn,db
dimConnStr
db=temp.mdbACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
ConnStr=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&Server.MapPath(db)
conn.Openconnstr

DimrstSchema
DimI

SetrstSchema=Conn.OpenSchema(adSchemaTables)

DowhilenotrstSchema.EOF
response.write(Tablename:&rstSchema(TABLE_NAME)&vbCr&_
Tabletype:&rstSchema(TABLE_TYPE)&vbCr)
response.write(<br/>)
I=I+1
rstSchema.MoveNext
Loop
rstSchema.Close

conn.Close
%>

方法二：Access系统表MsysObjects包含了数据库对象列表。尽管未在文档中记载，你仍可通过查询它来获取你想要的。但是默认情况下无法操作系统表，必须手动设定权限收才能查询系统表。
请参考以下动画：如何获取对msysobject的操作权限

但是我在access2003中找不到这几个系统表，不知道是不是m$增强了access的安全性。

使用下列SQL语句来获取你想要的


Code:
查询:


窗体:
SELECTMSysObjects.NameFROMMsysObjectsWHERE(Left([Name],1)<>~)AND(MSysObjects.Type)=-32768ORDERBYMSysObjects.Name;


表:
SELECTMSysObjects.NameFROMMsysObjectsWHERE(Left([Name],1)<>~)AND(Left$([Name],4)<>Msys)AND(MSysObjects.Type)=1ORDERBYMSysObjects.Name;


报表:
SELECTMSysObjects.NameFROMMsysObjectsWHERE(Left([Name],1)<>~)AND(MSysObjects.Type)=-32764ORDERBYMSysObjects.Name;


模块:
SELECTMSysObjects.NameFROMMsysObjectsWHERE(Left([Name],1)<>~)AND(MSysObjects.Type)=-32761ORDERBYMSysObjects.Name;


宏:
SELECTMSysObjects.NameFROMMsysObjectsWHERE(Left([Name],1)<>~)AND(MSysObjects.Type)=-32766ORDERBYMSysObjects.Name;