如何用vba将ACCESS窗体和查询导入另一个数据库中

Access是微软Office组件的数据库软件，使用它可以进行简单的数据库软件的开发。但Access的图表功能和数据分析功能不如Excel强大，常用的做法可以将Access中的数据导入Excel中再进行处理。

代码利用ADO组件可以方便地对各种数据进行连接和访问。ADO组件中的Connection对象可以实现对数据库的连接，并可以快速实现SQL语句的执行，然后再用VBA将SQL查询的结果输出到Excel表格中。

打开VBE窗口，选择菜单“工具”一“引用”，勾选MicrosoftActiveXDataObjects28Library，并单击“确定”按钮。

利用ADO连接数据库ADO的全称是ActiveXDataObject，是一个用于存取数据源的COM组件，用以快速实现各种数据库的连接、读取、写入。在ADO组件中有一个Connection对象，利用Connection对象的Open方法可以实现数据库的连接。

在基于微软IIS/PWS的网络平台上，通过服务器端运行的ASP程序来访问后台数据库，是一种最常见的模式了。而对于小型的数据库应用需求，微软的Access数据库，应该是与ASP程序配套使用的首选。由于Access数据库的ODBC驱动程序支持的SQL指令全，执行效率高，所以Access后台数据库+ASP服务器端程序+客户端IE浏览器，是一个精练实用高效的组合模式。

在这种使用模式中，ASP程序无疑是最重要的，是沟通客户端和后台数据库之间的桥梁。在ASP程序中，通过VB Script，建立对Access数据库的连接，是客户能够访问后台数据库的前提。

一、建立Access数据库连接的常用方法

在ASP中建立对Access数据库连接的一般格式如下：

<%

DbPath=ServerMapPath(数据库名)

Set Conn=ServerCreatObject(“ADODBConnection”)

ConnOpen “driver={Microsoft Access Driver (mdb)};dbq=”& DbPath

Set rs=ServerCreatObject(“ADODBRecordset”)

RsOpen 数据表名或SQL指令,Connection对象，Recordset类型，锁定类型

… …

%>

它的各步骤及参数意义如下：

第一行程序：利用Server对象的MapPath函数，取得要打开数据库的完整的文件路径，并存储在变量DbPath中。这其中，数据库名是我们需要指定的参数，应该用我们要打开的数据库的实际名称替代。如果数据库名是直接作为常量出现，要用引号将其括起来，并且不能丢掉扩展名。例如数据库是Testmdb，则该行程序成为：DbPath=ServerMapPath(“Testmdb”)。

第二行程序：建立一个ADO对象集中的Connection对象，也即连接对象。这是建立数据库连接的初始步骤。执行这行程序后，Conn成为一个连接对象。

第三行程序：利用连接对象Conn的Open方法打开一个指定的数据库。因为我们要打开的是Access数据库，所以要指定ODBC驱动程序参数，表示要透过Access的ODBC驱动程序来访问数据库：driver={Microsoft Access Driver (mdb)};。另一个参数dbq= & DbPath，运算后等效于dbq=ServerMapPath(数据库名) ,是利用了第一行的ServerMapPath(数据库名)函数，用来指定要打开的数据库文件。到这里，就已经打开了数据库名指定的数据库。如果数据库名是“testmdb”，则打开Access数据库Testmdb。在这一行里指定的参数，要严格按照格式原样写出，不能省略或改动，也没有可变参数。

第四行程序：建立一个ADO对象集中的Recordset对象，以便利用Recordset对象 *** 作数据库（当然，这只是对数据库 *** 作的多种方式之一）。执行这行后，rs就成为一个Recordset对象。

第五行程序：利用rs对象的Open方法打开数据库中的数据表。这其中有四个参数，其意义如下：

数据表名或SQL指令串：在这个参数里指定要打开的数据库内的数据表名称，或者是用SQL的Select指令串确定的数据表的指定范围数据，例如，数据库Testmdb中有数据表Number，则该参数成为“Number”，注意引号不能丢；若想打开数据表Number中xh字段值小于90的数据记录，则该参数可能成为如下的形式：

“Select From Number Where xh < 90”。

Connection对象：指定已经打开的数据库的Connection对象，在这里固定是Conn，注意无须引号的。

Recordset类型：表示打开数据表的方式，有四种选择。数字0表示只读方式，且当前记录只能下移；数字1表示可读写方式，当前记录可自由上下移动，但不能及时看到别的用户建立的新记录，除非重新启动；数字2表示可读写方式，当前记录可自由移动，而且可以及时看到别的用户增加的新记录；数字3表示只读方式，但当前记录可以自由移动。一般选择2为好，除非为了禁止数据被修改。

锁定类型：这个参数指定数据库的锁定功能。因为网络上的数据库都是多用户的，很可能同时有多个用户在 *** 作数据库。为了避免错误，让同一时间只可能有一个用户修改数据，就要用锁定功能。有四种选择：数字1表示只读方式锁定，用户不能更改数据；数字2表示悲观锁定，当一个用户用rs对象开始修改数据时就锁定数据库，直到用户用rsUpdate更新记录后，才解除锁定；数字3表示乐观锁定，只有在数据写入数据库中时候才锁定，不保险，慎用！数字4表示批次乐观锁定，只有在使用rsUpdateBatch成批更新数据时候才锁定数据记录。属于很少使用的。一般地，使用悲观锁定比较安全，但是效率要低些。

二、使用Recordset对象 *** 作数据

用上面的方法打开数据库，是利用了Recordset对象建立的数据库连接，然后的对数据 *** 作，也要使用该对象。

用rsopen “数据表名”，Conn，2，2 方式打开数据表，就可以方便的对数据进行 *** 作：

常见的 *** 作对象：

rsaddnew :添加一个新记录在数据表末尾。

rsdelete :删除当前记录。

rseof :判断是否已过最后记录。

rsbof :判断是否移过首记录。

rsupdate :数据修改生效。

rs(“字段名”)：当前记录指定字段的值。

从数据表中提取数据：用x=rs(“字段名”)的格式，提取数据表中当前记录指定字段的值。

向数据表中填入或修改数据：用rs(“字段名”)=数据值或变量的方式，修改当前记录指定字段的值。

三、使用SQL指令 *** 作数据库

在使用SQL指令对数据库进行 *** 作时，要用如下方式打开数据库和 *** 作：

<%

DbPath=ServerMapPath(数据库名)

Set Conn=ServerCreatObject(“ADODBConnection”)

ConnOpen “driver={Microsoft Access Driver (mdb)};dbq=”& DbPath

Sql= *** 作数据库的指令串

ConnExecute sql

… …

%>

四、使用DSN连接数据库

在以上连接数据库的方式中，都是在程序中指定数据库，指定ODBC驱动程序。如果数据源有变化，就需要修改程序。如果在系统级别上，预先定义好数据源DSN，就可以避免这个麻烦。

在定义DSN的过程中，就已经指定好了数据源需要的ODBC驱动程序，也指定好了数据库文件的实际路径和名字，我们在程序中，只需要引用预先定义的数据源名DSN即可。

设定义好的DSN为test，则打开数据库的方式为：

五、结束语

在ASP程序中，建立数据库的连接和访问数据库，有很多方式和技术细节，在此难以一一详述。实际上，对SQL Server数据库，DBF数据库，文本文件，电子表格文件等，也都可以很方便的打开和访问，与对Access数据库的访问大同小异而已。如果说方便，Access应该是首选。如果考虑安全保密性，SQL数据库更好些。使用系统数据源DSN的方式建立对数据库的连接，具有更大的灵活性，也更简便些。

有两种办法实现跨库查询

方法1）

将外数据库表链接到本数据库，然后就像使用本数据库表一样使用这些链接表进行查询了。

方法2）

在查询语句里使用in关键字+数据库存储路径，来查询外部ACCESS数据库表。

例如：

select a from members a,

(SELECT from customers in "C:\Users\Lenovo_user\Desktop\db1mdb")b

where am_name=bname;

这个例子使用in关键子，将本数据库表与桌面上的外部数据库db1mdb中表进行对等连接，返回相关的记录集。

使用的SystemData;

使用SystemDataOleDb;

私人的OleDbConnection CON

/ / /

/ / /打开数据库连接

/ / /

/ / /的数据库路径（包括数据库名称）

私人无效公开赛（弦乐DBPATH）

{（CON == NULL）

CON =新的OleDbConnection（“供应商= MicrosoftJetOLEDB40;数据源=”+ DBPATH）;

（：conState == ConnectionState。已结业）

conOpen（）;

}

/ / /

/ / /创建一个命令对象，并返回对象

/ / /

/ / / 数据库语句

/ / / 数据库所在的路径

/ / / 的OleDbCommand

私人的OleDbCommand createCommand（的字符串sqlStr串文件）

{

打开（文件）;

OleDbCommand的CMD =新的OleDbCommand（）;

cmdCommandType = CommandTypeText;

cmdCommandText = sqlStr

CMD。连接= CON;

返回CMD;

}

/ / /

/ / /执行

/ / / / / / / 的SQL语句

/ / /的数据库所在的路径 / / / 的回报成功执行时，当它没有返回值真，假

公共：布尔ExecuteNonQury（sqlStr字符串，字符串文件）

OleDbCommand的CMD = CreateCommand（sqlStr文件）;

结果= cmdExecuteNonQuery（）;

如果（结果== -1 |结果== 0）

{

CMD。 Dispose（）方法;

关闭（）;

返回FALSE;

}

其他

{

cmdDispose（）;

关闭（ ）;

返回true;

}

/ / /

/ / /执行数据库查询

/ / / <BR / / / / 的查询

/ / / 的填充数据集的表名

/ / / 数据库路径

/ / / 的查询数据集

公共数据集GetDataSet已（字符串，字符串文件sqlStr）

{

数据集DS =新的DataSet（）;

OleDbCommand的CMD = CreateCommand（sqlStr文件）;

OleDbDataAdapter的DataAdapter的新OleDbDataAdapter的（CMD）;

DataAdapterFill方法（DS）

cmdDispose（）;

关闭（）;

dataAdapterDispose（）;

返回DS;

}

/ / /

/ / /生成的数据读取器OleDbDataReader也返回OleDbDataReader也

/ / /

/ / / 的数据库查询参数

> / / / 返回一个DataReader对象

，公共OleDbDataReader也GetReader（sqlStr字符串，字符串文件）

{

OleDbCommand的CMD = CreateCommand（sqlStr文件）; OleDbDataReader也读卡器= cmdExecuteReader（CommandBehaviorCloseConnection）;

/ / CommadnBehavior的形象尤其将DataReader的相关的数据库链接

/ /自动关闭时接近DataReader对象链接

返回读写器;

}

/ / /

/ / /关闭数据库

/ / /

公共无效关闭（）

{

（con! = NULL） conclose（）;

CON = NULL;

}

传记传入的路径是取名字的Access数据库

以上就是关于如何用vba将ACCESS窗体和查询导入另一个数据库中全部的内容，包括:如何用vba将ACCESS窗体和查询导入另一个数据库中、连接Access数据库常用方法有哪些、如何实现ACCESS数据库跨库查询等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！