用VB怎么实现多用户同时访问一个acess数据库？能不能实现，如果能，具体怎么实现，最好能给出例子，谢谢！

你的ADO控件或者ADODB对像在打开ACCESS时

锁定方式使用 adLockOptimistic 就行了

adLockReadOnly 1 缺省值，Recordset对象以只读方式启动，无法运行AddNew、Update及Delete等方法

adLockPrssimistic 2 当数据源正在更新时，系统会暂时锁住其他用户的动作，以保持数据一致性。

adLockOptimistic 3 当数据源正在更新时，系统并不会锁住其他用户的动作，其他用户可以对数据进行增、删、改的 *** 作。

adLockBatchOptimistic 4 当数据源正在更新时，其他用户必须将CursorLocation属性改为adUdeClientBatch才能对数据进行增、删、改的 *** 作

对于在局域网内部的ACCESS访问 把那个文件设置为共享 再用\\IP\数据库名即可

不可推荐使用SQL 用共享连接的数据库不稳定

Adodc1.Refresh

If Adodc1.Recordset.RecordCount = 0 Then

MsgBox "没有您输入的 *** 作员，请重新输入！ ", vbOKOnly + vbExclamation, "提示"

Adodc1.RecordSource = "select * from login order by user_name"

Adodc1.Refresh

DataCombo1.SetFocus

Else

'解析密码

Dim strmima As String

Dim mima As String

Dim i As Integer

strmima = Adodc1.Recordset.Fields("pass_word")

For i = 1 To Len(strmima)

mima = mima &Chr(Asc(Mid$(strmima, i, 1)) - 5)

Next i

If Trim$(DataCombo1.text) <>"" And Trim$(Text2.text) <>"" And Trim$(Text2.text) = mima Then

logouser = Trim(DataCombo1.text)

'检测用户级别,设置相应权限

logojb = Adodc1.Recordset.Fields("user_class")

With frm_main

If logojb = "管理员" Then

.Toolbar1.Buttons(1).Enabled = False'日结算

.Toolbar1.Buttons(2).Enabled = False'结帐分析

.Toolbar1.Buttons(3).Enabled = False'开台管理

.Toolbar1.Buttons(4).Enabled = False'客人买单

.Toolbar1.Buttons(5).Enabled = False'挂帐管理

.Toolbar1.Buttons(6).Enabled = False'应付帐款

.Toolbar1.Buttons(7).Enabled = False'应付帐款

.Toolbar1.Buttons(8).Enabled = False'应付帐款

.Toolbar1.Buttons(9).Enabled = False'应付帐款

.Toolbar1.Buttons(10).Enabled = False'应付帐款

.Toolbar1.Buttons(11).Enabled = False'应付帐款

.Toolbar1.Buttons(12).Enabled = False'应付帐款

.bdwdy.Enabled = True '本单位定义

.bmxxgl.Enabled = True '部门信息管理

.ftlx.Enabled = True'房间台号类型

.fjthgl.Enabled = True '房间台号管理

.gys.Enabled = True '供应商管理

.spxxgl.Enabled = True '商品信息管理

.ckinf.Enabled = True '仓库信息管理

.ygjbgl.Enabled = True '员工级别管理

.ygxxgl.Enabled = True '员工信息管理

.jhgl.Enabled = True'进货管理

.jhcxtj.Enabled = True '进货查询统计

.kccx.Enabled = True'库存查询

.ktgl.Enabled = False'开台管理

.mdgl.Enabled = False'买单管理

.rjzfx.Enabled = True '当日结帐数据分析

.rjsgl.Enabled = False '日结算管理

.yjsgl.Enabled = False '月结算管理

.yyyfx.Enabled = True '月营业分析

.nyyfx.Enabled = True '年营业分析

.yfgl.Enabled = False'应付帐款

.gzgl.Enabled = False'应收帐款

.lsgz.Enabled = False'历史挂帐查询

.pcjs.Enabled = False '陪唱查询

.usergl.Enabled = True '用户管理

.editpass.Enabled = True'修改密码

.bakdata.Enabled = True '备份数据

.redata.Enabled = True '恢复数据

.syscsh.Enabled = True '系统数据库初始化B

.xtwh.Enabled = True'系统维护向导

ElseIf logojb = "前台接待" Then

.Toolbar1.Buttons(1).Enabled = True'日结算

.Toolbar1.Buttons(2).Enabled = False'结帐分析

.Toolbar1.Buttons(3).Enabled = True'开台管理

.Toolbar1.Buttons(4).Enabled = True'客人买单

.Toolbar1.Buttons(5).Enabled = True'挂帐管理

.Toolbar1.Buttons(6).Enabled = True'应付帐款

.Toolbar1.Buttons(7).Enabled = True'应付帐款

.Toolbar1.Buttons(8).Enabled = False'应付帐款

.Toolbar1.Buttons(9).Enabled = False'应付帐款

.Toolbar1.Buttons(10).Enabled = False'应付帐款

.Toolbar1.Buttons(11).Enabled = False'应付帐款

.Toolbar1.Buttons(12).Enabled = False'应付帐款

.bdwdy.Enabled = False '本单位定义

.bmxxgl.Enabled = False '部门信息管理

.ftlx.Enabled = False'房间台号类型

.fjthgl.Enabled = False '房间台号管理

.gys.Enabled = False '供应商管理

.spxxgl.Enabled = False '商品信息管理

.ckinf.Enabled = False '仓库信息管理

.ygjbgl.Enabled = False '员工级别管理

.ygxxgl.Enabled = False '员工信息管理

.pcjs.Enabled = True '陪唱查询

.jhgl.Enabled = False'进货管理

.jhcxtj.Enabled = False '进货查询统计

.kccx.Enabled = False'库存查询

.ktgl.Enabled = True'开台管理

.mdgl.Enabled = True'买单管理

.rjzfx.Enabled = True '当日结帐数据分析

.rjsgl.Enabled = True '日结算管理

.yjsgl.Enabled = False '月结算管理

.yyyfx.Enabled = True '月营业分析

.nyyfx.Enabled = True '年营业分析

.yfgl.Enabled = False'应付帐款

.gzgl.Enabled = False'应收帐款

.lsgz.Enabled = False'历史挂帐查询

.usergl.Enabled = False '用户管理

.editpass.Enabled = True'修改密码

.bakdata.Enabled = True '备份数据

.redata.Enabled = False '恢复数据

.syscsh.Enabled = False '系统数据库初始化B

.xtwh.Enabled = False'系统维护向导

ElseIf logojb = "总经理" Then

.Toolbar1.Buttons(1).Enabled = False'日结算

.Toolbar1.Buttons(2).Enabled = True'结帐分析

.Toolbar1.Buttons(3).Enabled = True '开台管理

.Toolbar1.Buttons(4).Enabled = True '客人买单

.Toolbar1.Buttons(5).Enabled = False '挂帐管理

.Toolbar1.Buttons(6).Enabled = True '应付帐款

.Toolbar1.Buttons(7).Enabled = False '应付帐款

.Toolbar1.Buttons(8).Enabled = False '应付帐款

.Toolbar1.Buttons(9).Enabled = True'应付帐款

.Toolbar1.Buttons(10).Enabled = True'应付帐款

.Toolbar1.Buttons(11).Enabled = True'应付帐款

.Toolbar1.Buttons(12).Enabled = True'应付帐款

.bdwdy.Enabled = False '本单位定义

.bmxxgl.Enabled = False '部门信息管理

.ftlx.Enabled = False'房间台号类型

.fjthgl.Enabled = False '房间台号管理

.gys.Enabled = False '供应商管理

.spxxgl.Enabled = False '商品信息管理

.ckinf.Enabled = False '仓库信息管理

.ygjbgl.Enabled = False '员工级别管理

.ygxxgl.Enabled = True '员工信息管理

.pcjs.Enabled = True '陪唱查询

.jhgl.Enabled = False'进货管理

.jhcxtj.Enabled = True '进货查询统计

.kccx.Enabled = True'库存查询

.ktgl.Enabled = False'开台管理

.mdgl.Enabled = False'买单管理

.rjzfx.Enabled = True '当日结帐数据分析

.rjsgl.Enabled = False '日结算管理

.yjsgl.Enabled = True '月结算管理

.yyyfx.Enabled = True '月营业分析

.nyyfx.Enabled = True '年营业分析

.yfgl.Enabled = True'应付帐款

.gzgl.Enabled = True'应收帐款

.lsgz.Enabled = True'历史挂帐查询

这是我写的程序里的关于不同身份的不同权限的设置.我想这是你要的东西!!

在局域网里,要能多用户,方法:

方法一：如果 *** 作系统为xp 之类的，采用共享文件夹的方式，虽然可以，但是用户数最多为10个，超过就提示错误。我看网上到处介绍如何破解用户数10 的限制，看了很多，但是实际没有解决。可能是我还没有摸到关键。

方法二：用户数超过10的，建议服务器安装Windows Server，我一直在使用的就是用此方法，我安装的是Windows Server 2003，100多个用户也没有问题。

当你方法二，用得熟了，不仿尝试使用 Windows Server 2003 + SQL server

其实这个方法与方法二，相差不大，只要在服务器端，把access导入到SQL就可以了，客户断的程序，唯一要修改的就是连接数据库，其它完全一样。它的好处，是不采用共享方式，相对安全。

---