日期:2013-09-14  浏览次数:20510 次

    前段时间很多人问近程(如通过互联网)连接access数据库的方法,最近写了个例子,与大家共享:

 使用了TCP/IP,ADO及XML(需求安装Microsoft XML 4.0。)。分服务器和客户端两部分,服务器可以多用户同时连接。近程连接Access数据库有很多方法,我以前曾经比较详细的回答过(见下面所列的5种方法),我如今这个例子属于其中的第3种方法(不需求使用RDS或Web服务器)。
  -------------------------------------
 近程连接access数据库的几个方法:

 1.建立VPN(Virtual Private Network),这样你的电脑和主机的连接就与局域网无异,然后把服务器中mdb文件所在的 Folder共享即可。ADO连接如下:

   oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ServerNameDatabaseFolderDatabase.mdb;Jet OLEDB:Database Password=databasepw;Persist Security Info=False"

 2.把Database放在Web Server上,使ADO或RDO通过RDS(Remote Data Service)及IIS来实现:

 如果服务器像上面Jave大侠说那样设置了ODBC DSN的话:

   oConn.Open "Provider=MS Remote;" & _
      "Remote Server=http://myServerName;" & _
      "Remote Provider=MSDASQL;" & _
      "DSN=AdvWorks;" & _
      "Uid=myUsername;" & _
      "Pwd=myPassword"
 如果设置的是OLE DB Provider 的话:

   oConn.Open "Provider=MS Remote;" & _
      "Remote Server=http://myServerName;" & _
      "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=c:somepathmydb.mdb", _
      "admin", ""

 3.本人编写服务器程序,通过TCP/IP,传递Recordset。

 4.使用第三方控件,如:ADO Anywhere或UDAParts RDB等。

 5.使用XMLHTTP
  --------------------------------------

   附 近程连接SQL Server的方法:
   ConnStr = "Provider=SQLOLEDB.1;Network Library=DBMSSOCN;Persist Security Info=True;User&nbs
   p;ID=UserName;Password=Password;Initial Catalog=近程数据库名;Data Source=203.129.92.1"