您正在使用 IPV4 [34.204.198.73] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
悟空收录网       [公益]保护绿色环境,构建和谐社会      

【腾讯云】2核2G4M云服务器新老同享99元/年,续费同价      
[公益] 地球是我家,绿化靠大家      
2024年 七夕节 025
2025年 高 考 326
2025年 元 旦 169
2025年 春 节 197
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
asp 获取access系统表,查询等操作代码
内容摘要: 方法一:直接用ado的OpenSchema()方法打开adSchemaTables,建立一个schema记录集Code:%ConstadSchemaTables=20adSchemaColumns=4dimConn,dbdimConnStrdb='temp.mdb''ACCESS数据库的文件名,请使用相对于网站根目录的的绝对路径ConnStr='Provid......
方法一:直接用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;

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:ASP中字符与数字内置操作函数整理

 

下一篇:asp实现后台添加wma视频文件前台显示

发布日期:2024/6/29
手机扫二维码直达本页
发布时间:21:59:13
点  击:4
录  入:壹家怡园
相关文章
Baidu
YiJiaCMS 7.5.1 build240527(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,速盾网络提供加速防护
运行时间载入中.....