vba如何调用Access的查询,并显示查询结果?

1、首先，在电脑中找到并打开Access数据库，如下图所示。

2、然后点击“数据库工具”选项卡中的“Visual Basic”，如下图所示。

3、在d出的VBA界面中，先选择数据库，然后点击右键，选择“插入”，“模块”，不同于Excel中的VBA，Access中的VBA代码需要放置于模块中，如下图所示。

4、在模块中输入VBA代码，并点击“运行子程序”，如下图所示。

5、这样，所输入的VBA代码就会在Access数据库中运行，如下图所示。

第一步：你要知道那台电脑的计算机名或者ip地址；

第二步：共享数据库所在的文件夹，要将共享权限设置为能够读写的权限；

第三步：在你的电脑上运行一下那个共享路径：\\计算机名\

共享文件夹

，看能不能打开，如果能

打开，说明共享成功，才能调用代码连接，如果需要用户名和密码你要输入那台电脑的一组用户名和密码；

第四步：在第三步成功的情况下，调用以下代码：

dim

数据库路径

as

string

dim

数据库密码

as

string

数据库路径="\\计算机名\共享文件夹\数据库.mdb"

数据库密码=你的数据库密码（如果没设密码，就为空）

adodc1.ConnectionString="provider=Microsoft.Jet.OLEDB.4.0Data

source

="

_

&

数据库路径0

&

"Jet

OLEDB:Database

Password="

&

数据库密码

adodc1.recordsource="select

*

from

user"

adodc1.Refresh

1、定义模块：

在Access软件VB编辑界面中，单击插入，如图

定义子过程的名字为 “baidu”，并编写一个简单的子程序，如图：

模块定义已经完成了。

2、调用模块：

语法 call 模块名称

还是用刚才的例子，则可以直接调用 “baidu”这个模块：

call baidu

3、补充知识，模块的本质：

模块含义是在某个流程流转过程中可以创建一个新的流程并执行，结束后可以再次返回父流程。

---