繁體中文当前位置: 首页 > 图文教程 > 数据库 > Access > 获取access数据库中表的个数及名称
- Access
- 中文Access2000速成教程--1.2 使用“数据库向导”创建表
- 建立自由的会计日期的报表--1.2.创建让用户选择日期窗体
- 建立自由的会计日期的报表--1.1.认识几个有关时间的函数
- 建立自由的会计日期的报表
- 使用准则进行条件查询--1.5.常用的准则表达式
- 使用准则进行条件查询--1.4.从窗体中选择查询的条件
- 中文Access2000速成教程--1.1 使用“向导”设计数据库
- 获取ACCESS2000数据库中所有表的名称
- 中文Access2000速成教程--1.3 在“设计”视图中设计表
- 中文Access2000速成教程--1.4 使用“表向导”建立新表
- 中文Access2000速成教程--1.8 定义表之间的关系
- 中文Access2000速成教程--1.5 使用已有的数据自动建新表
- 中文Access2000速成教程--1.6 定义“主键”
- 中文Access2000速成教程--1.7 创建索引
- 解决Access中分组报表的问题
- 用 INNER JOIN语法联接多个表建记录集
- ACCESS学习日记
- Access保留字&变量名列表
- 如何 在Access中选择指定日期前的记录？
- ACCESS中关于SQL语句的转义字符
Access 中的 获取access数据库中表的个数及名称
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-17 浏览: 47 ::
收藏到网摘: n/a
| 以下为引用的内容： '功能：获取access库中表的个数及表的名称 '用ado怎样实现 '工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号） '---------------------------------------------------------------------------- Private Sub Form_Load() Dim adoCN As New ADODB.Connection '定义数据库的连接 Dim strCnn As New ADODB.Recordset Dim rstSchema As New ADODB.Recordset Dim I As Integer str1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:Northwind.MDB;Persist Security Info=False" adoCN.Open str1 Set rstSchema = adoCN.OpenSchema(adSchemaTables) Do Until rstSchema.EOF If rstSchema!TABLE_TYPE = "TABLE" Then out = out & "Table name: " & _ rstSchema!TABLE_NAME & vbCr & _ "Table type: " & rstSchema!TABLE_TYPE & vbCr I = I + 1 End If rstSchema.MoveNext Loop MsgBox I rstSchema.Close adoCN.Close Debug.Print out End Sub |
方法二：
Access 系统表 MsysObjects 包含了数据库对象列表。尽管未在文档中记载，你仍可通过查询它来获取你想要的。但是默认情况下无法操作系统表，必须手动设定权限收才能查询系统表。
请参考以下动画：如何获取对msysobject的操作权限
http://access911.net/eg/swf/msobject.swf
警告：不要修改任何ACCESS系统表，否则会出现不可意料的情况.
使用下列 SQL 语句来获取你想要的
查询:
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;
宏:
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left([Name],1)<>"~") AND (MSysObjects.Type)= -32766 ORDER BY MSysObjects.Name;
评论 (0) All
