文件名称:VB NetData_Server 远程访问 ACCESS 控件及示例
文件大小:182KB
文件格式:RAR
更新时间:2013-08-29 14:43:48
VB 远程访问 ACCESS 控件 C/S
第一步,建立服务器端。 新建一个窗体,引用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.开启服务器端后,客户端方可正常工作 注明:这个版本无后门,使用不受限。
【文件预览】:
cs.mdb
Client.exe
服务器端
----cs.mdb(1.17MB)
----Form1.frm(2KB)
----MSSCCPRJ.SCC(193B)
----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.vbw(99B)