第一步,建立服务器端。
新建一个窗体,引用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.开启服务器端后,客户端方可正常工作
注明:这个版本无后门,使用不受限。
1