【分享】 VB+ACCESS 轻松升级为网络版应用程序 (C/S架构)

jilijun · 发表于 2008-10-27 21:11

通常在局域网中建立基于ACCESS数据库的程序时，都要将服务器磁盘共享，这样很不安全，比如MDB被复制或恶意替换等。现在可以实现不共享磁盘，仅用一个控件即可实现数据库连接，原单机版程序修改2 行代码即可升级为多用户网络版。
————————————————————————————————————————————————————

这里用到的是 NetData_Server.ocx 控件（附件下载）

第一步，建立服务器端。
新建一个窗体，引用NetData_Server后，在窗体中放入一个NetDataServer1
  1. 在Form_Load事件中加入:
            NetDataServer1.Start "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DATA.mdb;", "8080"（8080为端口号，可以随意修改成您需要的）
2. 在Form_Unload事件中加入：
NetDataServer1.Down  '关闭服务,释放内存...
这样服务端就完成了！！很简单吧。。。。
————————————————————————————————————————————————————
第二步，修改客户端。
单机版中的连接字串符：
取消：CONN.OPEN "provider=Microsoft.jet.OLEDB.4.0;data source=D:\sys\data\data.mdb"
改成：NetDataClient1 .Start "192.168.0.1", "8080"
把CONN.Close 改成 NetDataClient1.Down
其他代码保持不变，这样就完成了客服端的升级！！！
————————————————————————————————————————————————————
要点：
1.服务器端，把数据库文件MDB放到与服务端程序同一文件夹里。
2.客户端如果有多个窗体，连接时要加窗体名如：Form1.NetDataClient1 .Start "192.168.0.1", "8080"
（NetDataClient1 .Start "服务器IP地址", "端口号"）也可放到模块里定义成共用的。
3.开启服务器端后,客户端方可正常工作

[ 本帖最后由 jilijun 于 2009-4-8 12:25 编辑 ]

huhuri · 发表于 2008-10-27 23:20

学习了,一直以为ACCESS不能用成C/S模式呢,所以我编的都是用SQL SERVER用数据后台

jiulongpo · 发表于 2008-10-28 17:00

先收藏了,持续学习中.
做个记号先

luyan2006 · 发表于 2008-12-3 08:46

用NetDataClient1.SendQuery.Open 怎写？谢谢

sunsoncheng · 发表于 2009-3-16 09:35

但始终ACC都不如SQL2000快,也不够大
不过一定更方便

EH2003 · 发表于 2009-3-17 17:02

在VBA中如何使用

zgj7712 · 发表于 2009-4-7 15:27

谢谢！！！

wenvay · 发表于 2009-4-7 16:24

哈哈,学习应用一下.

mayiwan · 发表于 2009-4-7 16:42

谢谢楼主的大力分享

zyg365 · 发表于 2009-4-7 16:50

楼主：您好！
详细点好吗？？？？

		自动登录	找回密码
密码			免费注册

【分享】 VB+ACCESS 轻松升级为网络版应用程序 (C/S架构)

评分

很好的例子，问题是又如何做对数据的查询

回复 1楼 jilijun 的帖子