asp 獲取access系統表，查詢等操作代碼

方法一：直接用ado的OpenSchema()方法打開adSchemaTables，建立一個schema記錄集

Code:

<%

ConstadSchemaTables=20

adSchemaColumns=4

dimConn,db

dimConnStr

db="temp.mdb"'ACCESS數據庫的文件名，請使用相對於網站根目錄的的絕對路徑

ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db)

Setconn=Server.CreateObject("ADODB.Connection")

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的操作權限http://blog.iyi.cn/user/david/archives/IMAGES/msobject.swf

但是我在access2003中找不到這幾個系統表，不知道是不是m$增強了access的安全性。

使用下列SQL語句來獲取你想要的

Code:

查詢:

SELECTMSysObjects.NameFROMMsysObjectsWHERE(Left([Name],1)<>"~")AND(MSysObjects.Type)=5ORDERBYMSysObjects.Name;

窗體:

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;