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

jilijun

通常在局域网中建立基于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

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

jiulongpo

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

luyan2006

用NetDataClient1.SendQuery.Open 怎写？谢谢

sunsoncheng

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

EH2003

在VBA中如何使用

zgj7712

谢谢！！！

wenvay

哈哈,学习应用一下.

mayiwan

谢谢楼主的大力分享

zyg365

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