首页
后端开发
VB
VB NetData_Server远程访问ACCESS控件及演示

VB NetData_Server远程访问ACCESS控件及演示

26 次浏览 0 条评论
rar
rar

首先，在服务器端建立一个新窗体，引用NetData_Server。在窗体中添加一个NetDataServer1控件。在Form_Load事件中添加代码：NetDataServer1.Start "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DATA.mdb;", "8080"（端口号可自定义）。在Form_Unload事件中添加代码：NetDataServer1.Down。至此，服务器端设置完成。接下来，修改客户端。将连接字符串从CONN.OPEN "provider=Microsoft.jet.OLEDB.4.0;data source=D:\sys\data.mdb"改为NetDataClient1.Start "192.168.0.1", "8080"，并将CONN.Close改为NetDataClient1.Down。其他代码保持不变。客户端升级完成！要点：1. 将数据库文件MDB放置于服务器端程序同一文件夹内。2. 若客户端有多个窗体，连接时需加入窗体名。3. 开启服务器端后，客户端方可正常工作。这个版本无后门，使用不受限。

rar 文件大小：182.11KB