- 在线时间
- 0 小时
- 最后登录
- 2007-9-23
- 注册时间
- 2004-9-10
- 听众数
- 3
- 收听数
- 0
- 能力
- 0 分
- 体力
- 9975 点
- 威望
- 7 点
- 阅读权限
- 150
- 积分
- 4048
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 1893
- 主题
- 823
- 精华
- 2
- 分享
- 0
- 好友
- 0

我的地盘我做主
该用户从未签到
 |
前段时间很多人问远程(如通过互联网)连接access数据库的方法,最近写了个例子,与大家共享:
* q- c' x4 {5 U N, [. r3 R, g6 H& Y. s6 `3 _) \2 o0 Z
. n- v: e0 F$ i2 v# Q
< >
2 }4 |5 r& b( Y/ `% h/ w使用了TCP/IP,ADO及XML(需要安装Microsoft XML 4.0。)。分服务器和客户端两部分,服务器可以多用户同时连接。远程连接Access数据库有很多方法,我以前已经比较详细的回答过(见下面所列的5种方法),我现在这个例子属于其中的第3种方法(不需要使用RDS或Web服务器)。</P>
! _" z9 c" t: k6 W6 K< >-------------------------------------</P>
! F: ?5 E; {& e* ]< >远程连接access数据库的几个方法:</P>
1 z" M5 ^; A. M1 K5 p< >1.建立VPN(Virtual Private Network),这样你的电脑和主机的连接就与局域网无异,然后把服务器中mdb文件所在的Folder共享即可。ADO连接如下:
r( I. G/ `: ~* m1 r$ DoConn.Open " rovider=Microsoft.Jet.OLEDB.4.0;Data Source=\\ServerName\DatabaseFolder\Database.mdb;Jet OLEDB atabase Password=databasepw ersist Security Info=False"</P>* O* x; |9 K1 z- K$ Y
< >2.把Database放在Web Server上,使ADO或RDO通过RDS(Remote Data Service)及IIS来实现:</P>; z6 {4 o7 s& R8 w, Y; r8 C. r6 m9 A
< >如果服务器像上面Jave大侠说那样设置了ODBC DSN的话:</P>
+ X( Z, g, k" s" z' k: ]" m< >oConn.Open " rovider=MS Remote;" & _
7 L5 w( ?7 S+ [/ A& g "Remote Server=http://myServerName;" & _
5 v9 o8 j, t$ o0 E9 k1 M7 W "Remote Provider=MSDASQL;" & _9 l5 |4 Q! Q) ~+ E$ O2 A
"DSN=AdvWorks;" & _
0 b* j t* }; ? "Uid=myUsername;" & _
# d4 ]7 }3 D2 a6 [( d " wd=myPassword" </P>
) @- F# u" w4 M# \1 ?< >如果设置的是OLE DB Provider 的话:</P>+ h5 b5 N# X; k, L) D& W
< >
% T: ?0 }* ]: f& [7 w3 d7 YoConn.Open " rovider=MS Remote;" & _
5 q. [7 S5 r& _1 S A* O; j/ { "Remote Server=http://myServerName;" & _. n) e8 p/ y8 @2 ~) v: o- @# u9 m
"Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _5 U& W9 I. [$ G- c
"Data Source=c:\somepath\mydb.mdb", _3 b* C$ _8 w6 P4 \' z) O. R, O
"admin", ""</P>
; `' |7 W& D0 ^9 r7 k< >3.自己编写服务器程序,通过TCP/IP,传递Recordset。</P>
7 U) J) U6 Z7 l8 V& K l: v< >4.使用第三方控件,如:ADO Anywhere或UDAParts RDB等。具体查看7 @# H/ ?( e$ K$ W+ g) b
http://www.adoanywhere.com
# h/ w1 @2 f S9 J% z: |! b- ghttp://www.udaparts.com/</P>
' A# c0 W, H3 _# o A# K+ s< >5.使用XMLHTTP</P> p' z- m0 j) P' _0 ^! c: @* j5 e
< >--------------------------------------</P>
# u( ?1 `5 c8 k) ^: {: e/ Y/ D" y< >附 远程连接SQL Server的方法:
3 P# h0 d8 Q6 ~( `ConnStr = " rovider=SQLOLEDB.1;Network Library=DBMSSOCN ersist Security Info=True;User ID=UserName assword=Password;Initial Catalog=远程数据库名;Data Source=203.129.92.1"
4 A: I& {/ r r/ T! y</P> |
zan
|