用VB如何访问远程Access数据库

下面是转贴的代码,和访问自己电脑上的ACCESS *** 作是一样的,无非是登录以及访问的问题, 代码中的192168236可以换成你需要的远程电脑的IP

========================

如果想每次都能自动通过验证

在当前目录上建立一inf文件，如Serverinf(其它格式文件也可)

文件内容如下：

net use \\192168236 "密码" /user:administrator

Private Sub Form_Load()

Dim CnStr As String

Dim Fn As Integer

Fn = FreeFile

Open AppPath & "\Serverinf" For Input As #Fn

Line Input #Fn, ServerConn

Close #Fn

Shell (ServerConn)

CnStr = "Provider=MicrosoftJetOLEDB40;Data Source= \\192168236\c$\Program Files\Sygate\SON\Db\EventLogmdb;Jet OLEDB:Engine Type=5"

CnOpen CnStr

End Sub

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

锁定方式使用 adLockOptimistic 就行了

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

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

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

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

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

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

Private Sub Command1_Click()

Dim FileN$, PathN$

FileN = "Test001"

PathN = IIf(Right(AppPath, 1) = "\", AppPath, AppPath & "\")

MkDir PathN & FileN

Shell "cmd /c net share " & FileN & "=" & PathN & FileN

MsgBox "ok"

End Sub

以上就是关于用VB如何访问远程Access数据库全部的内容，包括:用VB如何访问远程Access数据库、用VB怎么实现多用户同时访问一个acess数据库能不能实现，如果能，具体怎么实现，最好能给出例子，谢谢！、vb 创建文件夹并共享这个文件夹等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！