如何在VBA中用ADO连接远程的access数据库

远程连接access数据库的几个方法：

1．建立VPN(Virtual Private Network)，然后把服务器中mdb文件所在的 Folder 共享即可。连接方法如下：

“Provider=Microsoft.Jet.OLEDB.4.0Data Source=\\服务器名\\文件夹 \\mydata.mdbJet

OLEDB:Database Password=datapassPersist Security Info=False”

2．把数据库放在Web 服务器上，使ADO或RDO通过RDS（Remote Data Service） 及IIS来实现：

如果服务器设置了ODBC DSN的话，连接方法如下：

"Provider=MS RemoteRemote Server=http://服务器名Remote Provider=MSDASQLDSN=AdvWorksUid=dataUserNamePwd=dataPassWord"

如果设置的是OLE DB Provider 的话，连接方法如下：

　"Provider=MS RemoteRemote Server=http://服务器宽埋橡名Remote

Provider=Microsoft.Jet.OLEDB.4.0Data Source=数据库文慎旁件路径,"+ "admin,"+"" (数据库用户名为：admin；密码为空)

3．编液裂写服务器程序，通过TCP/IP，传递Recordset。

4．使用第三方控件，如：ADO Anywhere或UDAParts RDB等。

5．使用XMLHTTP

应用举例

OledbConnection myconn = null

myconn = new OledbConnection("192.168.1.155", "DSN=mydataDRIVER={Microsoft Access Driver (*.mdb)}UID=testPWD=test")//其中服务器IP是 192.168.1.155 数据库名是 mydata 数据库用户名这密码都是test myconn.Open()

用TADOConnection连接你所需要连接的Access，双击TADOConnection后点击build，提供程饥卖序选择“Microsoft

Jet

4.0

OLE

DB

Provider”，下一步，选择你目录团岁下的Access数据库文件，测试连接d出“测试连接成功塌肢睁”即可，一般会把TADOConnection属性的LoginPromit设为False，KeepConnection设为True，当然这个只是静态链接的，你也可以根据需要动态修改TADOConnection的ConnectionString即可。

然后用TADOQuery连接TADOConnection，TDataSource连接TADOQuery，表格连接TDataSource就差不多了，具体的你得看书中的基础用法。

希望对你有用!

---