VB NetData_Server 远程访问 ACCESS 1

时间:2013-08-29 14:48:53
【文件属性】:

文件名称:VB NetData_Server 远程访问 ACCESS 1

文件大小:183KB

文件格式:RAR

更新时间:2013-08-29 14:48:53

VB NetData_Server 远程访问 ACCESS

第一步,建立服务器端。 新建一个窗体,引用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.开启服务器端后,客户端方可正常工作 本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/qing205/archive/2010/08/09/5799634.aspx


【文件预览】:
cs.mdb
Client.exe
服务器端
----cs.mdb(1.17MB)
----Form1.log(190B)
----Form1.frm(2KB)
----MSSCCPRJ.SCC(193B)
----组1.vbg(81B)
----Project1.vbw(49B)
----Project1.vbp(754B)
注册控件.bat
NetData_Server.ocx
卸载控件.bat
Server.exe
客户端
----Client.exe(36KB)
----Form1.frm(5KB)
----工程1.vbp(1KB)
----MSSCCPRJ.SCC(190B)
----Form2.frm(6KB)
----组1.vbg(75B)
----工程1.vbw(99B)

网友评论

  • 非常好用~~~~
  • 东西确实好用,但又出了一个新的问题,只要知道服务器IP和端口号,任何人都可随意更改数据内容,太恐怖了!
  • 测试过,好用
  • 经实际测试的确可行 谢谢分享