Question

vb 修改使用中的access数据库

怎样用 vb6 修改局域网用户正在使用使用中的access数据库？谢谢！

Answer 1

VB6可以使用数据访问API——“ADO”连接局域网中的Access数据库，然后用SQL语言读写数据库。下面是VB操纵网络中ACCESS数据库示范代码，供参考

请注意与MSSQL、MySQL等大中型数据库不同，网络中的ACCESS数据库必须存放在共享文件夹下才能被网络中的其它电脑访问。如果ACCESS数据库所驻留的电脑有防火墙，那么还要设置防火墙允许该共享文件夹可被外部访问及读写

首先要引用ADO类库。

菜单——工程——引用 打开引用对话框，勾选“Microsoft ActiveX Data Objects 2.5 Library”或其它版本,点击确定。

Private Sub Command1_Click()
Dim cn As New ADODB.Connection  '声明连接对象
Dim cnStr As String         '声明一个连接字符串变量
Dim sqlStr As String      '声明一个SQL查询字符串变量
'设置连接到局域网中某台电脑中ACCESS数据库的连接字符串
cnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source='\\192.168.1.100\Shared\TestDB.mdb';"
'打开连接
cn.Open cnStr
'创建学生表
sqlStr="create table students(sid varchar(10) primary key,sname varchar(50) not null,sex char(1) not null,DOB date);"
cn.Execute sqlStr
'向学生表插入一条记录
sqlStr="insert into students values('201500001','张三','男',#1997-01-01#);"
cn.Execute sqlStr
'删除学生表
sqlStr="drop table students;"
cn.Execute sqlStr
'释放连接对象
cn.Close
Set cn=Nothing
End Sub

   

至于使用中的数据库是可以同时被多个用户编辑的，access内部有并发处理和冲突解决机制，无需人为干预，当然前提是数据库没有被某个用户以独占方式打开。access数据库的默认打开方式就是共享方式。数据库以独占方式打开后，其他用户只能读取但是无法编辑数据库