如何在VBA中用ADO连接远程的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()

一、用有源ODBC

DSN的方法和无源OLE

DB的方法连接数据库：

1、无源OLE

DB：

string

strConn="Provider=Microsoft.Jet.OLEDB.4.0

Data

Source=intels.mdb"

2、有源ODBC

DSN：

string

strConn="Data

Source=intels"

如果采用ADO.NET连接SQL

Server或者Oracle，方法和VB中连接相应数据的连接字符串一致。

二、开始连接数据库：

ADOConnection

Conn

=

new

ADOConnection(strConn)

三、执行一个select

SQL

查询：

string

strSQL

=

"Select

id

from

test"

ADOCommand

ADOCmd=new

ADOCommand(conn,Conn)

Conn.Open()

ADODataReader

reader

ADOCmd.Execute(out

reader)

四、得到ADODataReader中包含的数据：

先执行：

reader.Read()

然后就可以取得数值：

reader["id"].ToString()

依次类推。

五、delete（删除）语句，insert和update相同：

strSQL="delete

from

test

where

id=’1’"

//strSQL="insert

into

test

values(’1’)"

//strSQL="update

test

set

id=’1’"

ADOCommand

ADOCmd=new

ADOCommand(conn,Conn)

Conn.Open()

ADOCmd.Execute()