7516
社区成员
vba如何取得access中已经定义好的query的个数名称等信息
要做一个查询access结构的小工具，关于表的部分已经做好，我需要得到access中已经定义好的query的个数，他们的名字，类型还有他们的sql语句。原来用c#做的但是得不到，改用vba，求各位大神帮助
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
WWWWA 2013-05-20
用ADO的OPENSCHEMA取得所有查询
OR
用DAO取得
ACMAIN_CHM 2013-05-19
AllQueries 集合包含 CurrentData 或 CodeData 对象中每个查询的 AccessObject 对象。
使用 AllQueries 集合
CurrentData 或 CodeData 对象具有一个 AllQueries 集合，其中包含描述由 CurrentData 或 CodeData 指定的所有查询的实例的 AccessObject 对象。例如，可以在 Visual Basic 中列举 AllQueries 集合来设置或返回该集合中单个 AccessObject 对象的属性值。
提示
For Each...Next 语句对列举集合非常有用。
可以引用 AllQueries 集合中的单个 AccessObject 对象，方法是：按照名称引用对象，或引用集合中对象的索引。如果要引用 AllQueries 集合中特定的对象，最好按照名称引用查询，因为查询的集合索引可能会更改。
AllQueries 集合的索引是从零开始的。如果通过索引来引用查询，则第一个查询是 AllQueries(0)，第二个查询是 AllQueries(1)，依此类推。
注释
AllQueries 集合仅包含 Microsoft Access 数据库 (.mdb) 中的 AccessObject 对象。Microsoft Access 项目 (.adp) 中不包含任何宏，请参阅 AllViews 集合。
若要列出数据库中所有打开的查询，可使用 AllQueries 集合中每个 AccessObject 对象的 IsLoaded 属性。然后，可使用每个单独的 AccessObject 对象的 Name 属性返回查询的名称。
无法在 AllQueries 集合中添加或删除 AccessObject 对象。
下面的示例将打印 AllQueries 集合中每个打开的 AccessObject 对象的名称。
Sub AllQueries()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for open AccessObject objects in AllQueries collection.
For Each obj In dbs.AllQueries
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub
wangxiuhui1225 2013-05-19
谢谢~那我如果想获得其他数据库中的查询名称呢。。
Dim Conn As New ADODB.Connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=C:\Users\user\Desktop\access review\access review\bin\Debug\ansh1.mdb"
Conn.Open ConnectionString
我要获取ansh1中的查询
Application.CurrentData应该怎么改？
excel中定义VBA 本课中,你已经掌握了VBA的一些基础知识,你会录制宏、编辑宏而且了解了录制宏的局限性.你很努力.并且已经为将来学习VBA甚至VB等编程语言打下了基础.关键是你已经了解了一个谜底,就是说,你了解了什么是编程.下面是些小...
access vba代码大全_这本VBA经典图书终于做活动了，还是5折！ HI~大家好。记得之前一直给大家推荐咱们EH论坛编著的VBA图书《Excel VBA经典代码应用大全》，这书出来有段时间了，但一直未见出有力的优惠活动。这次京东破天荒出了个5折，而且是没有任何附加条件的5折，有需要的...
access vba函数 access vba函数Abs 函数 返回参数的绝对值，其类型和参数相同。 语法Abs(number) 必要的 number 参数是任何有效的数值表达式，如果 number 包含 Null，则返回 Null，如果 number 是未初始化的变量，则返回 0。说明一...
Access基础教程--第八章 使用VBA编程 本章内容 ◆ VBA编程基础◆ 创建和设计VBA程序◆ VBA程序调试与运行 一、VBA编程基础知识 在执行简单的操作时，宏可以完成，如窗体的打开与关闭、工具栏的显示和隐藏等。对于稍复杂一些的任务，则可用Visual ...
access数据库：常见的VBA问题，ＦＱＡ一。 先在VBA中引用"Microsoft Office 10.0 Object Library"以上的版本.只用ado列出所有的表:Public Function listalltable() Dim rstSchema As ADODB.Recordset Dim strCnn As String Set cnn2 = CurrentProject.Conn
小白福音——VBA编程常用——命令三百例 # Excel VBA编程常用语句300句 * 本文转自：**http://blog.sina.com.cn/codelee** 博主：**代码农夫** 感谢大佬总结并分享出来~ ************** # * VBA 语句集 * * (第 1 辑) * ************** ***************...
VBA编程常用语句(转载） Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一个下标为 1 2、On Error Resume Next '忽略错误...
Excle 2007 VBA 参考大全——第一章Excle VBA基础 介绍了vba编程和excle对象模型的基础知识 ——介绍了VBA语言及其特征，阐明了集合、对象、属性、方法和事件的关系，并展示了如何通过对象模型将这些概念与Excle产生联系 Ⅱ 第2—27章 （使用特定对象）...
vba在excel中的使用之vba语句解释 vba在excel中的使用之vba语句解释*********************************************************************************(1) Set objExcel = CreateObject("Excel.Application")objExcel.Workbooks.Add ‘创建Excel...
vba错误编号所对应的错误信息（备查） 457此键已经与集合对象中的某元素相关 458变量使用的型态是 Visual Basic 不支持的 459此部件不支持事件 460剪贴板格式无效 461未找到方法或数据成员 462远程服务器机器不存在或不可用 463类未在本地机器上注册 480...
excel vba 数据分析 VBA(Visual Basic for Application)是Microsoft Office系列软件的内置编程语言，其语法结构与Visual Basic编程语言互相兼容，采用的是面向对象的编程机制和可视化的编程环境。 第一节 标识符 一．定义 标识符是一...
VBA 和 Windows API Office VBA 和 Windows API 我们都知道，Visual Basic® for Applications (VBA) 是一种功能强大的编程语言，可用来开发自定义 Microsoft Office 解决方案。将 VBA 和一个或多个 Office 应用程序对象模块配合使用，...
Word VBA 常用语句 原文地址：WordVBA常用语句作者：cathay 转帖：从n多地方google出来的。。。。。。。。。 '定制模块行为 '(1)强制对模块内所有变量进行声明 Option Explicit '标记模块为私有，仅对同一工程中其它模块有用，在宏...
Office VBA 和 Windows API 转自：http://www.cnblogs.com/james.wong/articles/95185.html 我们都知道，Visual Basic® for Applications (VBA) 是一种...将 VBA 和一个或多个 Office 应用程序对象模块配合使用，您可以轻松地修改 Office 应用
Excel VBA编程常用语句300句 Excel VBA编程常用语句300句 ************** * VBA 语句集 * * (第 1 辑) * ************** **************** * 定制模块行为 * **************** (1) Option Explicit '强制对模块内所有变量进行声明 ...
EXCEL VBA常用语句100句 以下转自：http://www.bbioo.com/blog/bio/guohui/1524.htm EXCEL VBA常用语句100句定制模块行为Option Explicit 强制对模块内所有变量进行声明*****Option Private Module 标记模块为私有，仅对同一工程中其它...
VB中对EXCEL的各种操作 objExl.Sheets(objExl.Sheets.Count).Name = "book1" '修改工作薄名称 objExl.Sheets.Add , objExl.Sheets("book1") '增加第二个工作薄在第一个之后 objExl.Sheets(objExl.Sheets.Count)....
