以Oracle为例说明如何通过ODBC将数据库中的指定表导出到MDB数据库

原理

先在MDB文件中建立目标表的Link表然后用本地操作MDB数据库的方式复制一个表的全部或者部分删除Link表

至此已经完成数据库的备份此方法不通过循环速度还算理想

实现

首先假设ODBC中设置了一个Oracle的数据源其数据库服务名为LinkDataBaseDSN为ORAODBC用户名是Administrator密码Password把表Oracle_Table导入到C:\Tempmdb的MDB_DATABASE中间步骤链接表的名称为TempLink

Dim DB As DAODatabase 数据库对象DAO

Dim tbLink As DAOTableDef 表对象

打开备份目标MDB

Set DB = OpenDatabase(C:\Tempmdb)

以下开始创建Link表

Set tbLink = DBCreateTableDef(TempLink)

设置连结字符串

tbLinkConnect = ODBC;DATABASE=LinkDataBase;UID=Administrator;PWD=Password;DSN=ORAODBC

tbLinkSourceTableName = LinkDataBaseOracle_Table

DBTableDefsAppend tbLink

复制表（可加条件）

DBExecute select * into MDB_DATABASE from TempLink

删除链接表

DBTableDefsDelete TempLink