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.开启服务器端后,客户端方可正常工作 注明：这个版本无后门，使用不受限。