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

asp 取得access系统表 查询等操作代码：

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

Code:

<%

Const adSchemaTables = 20

adSchemaColumns = 4

dim Conn,db

dim ConnStr

db="temp.mdb"       'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径

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

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open connstr

Dim rstSchema

Dim I

Set rstSchema = Conn.OpenSchema(adSchemaTables) 

Do while not rstSchema.EOF

  response.write("Table name: "& rstSchema("TABLE_NAME") & vbCr & _

  "Table type: " & 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的安全性。

Code:

查询:

SELECT MSysObjects.Name FROM MsysObjects WHERE (Left([Name],1)<>"~") AND (MSysObjects.Type)=5 ORDER BY MSysObjects.Name; 

窗体:

SELECT MSysObjects.Name FROM MsysObjects WHERE (Left([Name],1)<>"~") AND (MSysObjects.Type)=-32768 ORDER BY MSysObjects.Name; 

表:

SELECT MSysObjects.Name FROM MsysObjects WHERE (Left([Name],1)<>"~") AND (Left$([Name],4) <> "Msys") AND (MSysObjects.Type)=1 ORDER BY MSysObjects.Name; 

报表:

SELECT MSysObjects.Name FROM MsysObjects WHERE (Left([Name],1)<>"~") AND (MSysObjects.Type)= -32764 ORDER BY MSysObjects.Name; 

模块:

SELECT MSysObjects.Name FROM MsysObjects WHERE (Left([Name],1)<>"~") AND (MSysObjects.Type)= -32761 ORDER BY MSysObjects.Name; 

ame.

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!