如何在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()

以下是用ADO对象连接ACCESS数据库:

在使用ADO之前,在工程中引用,打开"工程"/"引用"命令,打开"引用"对话框.选择"Microsoft

ActiveX

Data

Object

2.5

Library"选项,单击"确定".<2.8以下可以选择><向下兼容>.

Dim

cnn

As

New

ADODB.Connection

Dim

rs

As

New

ADODB.Recordset

___________________________________________

Private

sub

Form_Load()

cnn.Open

"driver={microsoft

access

driver

(*.mdb)}dbq="

&

App.Path

&"\数据库名.mdb"<注意:此处第二个driver后面必须有空格>

rs.Open

"表名",cnn,

adOpenKeyset,adLockBatchOptimistic

......

......

end

sub

希望对你有所帮助.可能存在个别字符错误.请在程序中试用.

---