ADO连接局域网服务器中的后台数据库

时　间:2012-05-04 08:47:52
作　者:麥稥   ID：23882  城市：黄山
摘　要:我是好人。
正　文:

      用access做一个小模块的功能就没没什么了，ado里currentproject.connection 就行了。当然拆分数据库后前台数据库连接后台数据库表，进行ADO访问数据的时候也可以用currentproject.connection。这里呢我就说一说局域网中前台用ADO访问后台数据库的方法。

      对于ADO连接后台数据库有好多种类，这里我就上传一个word，这个word呢也是网站上 别人分享的。 

附   件:

点击下载此附件

      我只说对于我的情况，我用的办法，至于其他的办法不是我讨论的范围。

      我的情况就是对07版access数据库文件进行拆分，局域网共享后台数据库所在文件夹，局域网中分发前台数据库，客户端访问后台。服务器电脑上共享的文件是“共享服务器”，服务器计算机名为“Zhongguoan”，后台数据库中有个表“用户表”。

      首先使用ADO访问后台数据库，必须能访问到服务器上的文件夹就是有权限访问服务器，第二数据库中必须引用ADO库，这些基本知道，接下来就是我讲的重点了，先贴代码。

  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  cn.CursorLocation = adUseClient
  cn.Provider = "Microsoft.ACE.OLEDB.12.0"
  cn.Open "Data Source= " & " \\Zhongguoan\共享服务器\金属部_be.accdb"
  rs.Open "用户表", cn, adOpenKeyset, adLockOptimistic
  MsgBox rs.RecordCount
  rs.Close
  Set rs = Nothing

至于每一行代码是什么意思，就需要你自己去看ADO的用法了。这里主要是ado.connection的设置。

上面呢是 对应数据库为accdb格式的也就是07版本以上创建的数据库文件。引擎也就是cn.provider是Microsoft.ACE.OLEDB.12.0的。

如果是03以下的数据库文件即mdb格式，就要换一句话，就是访问引擎换成Microsoft.Jet.OLEDB.4.0。当然第五句后面的数据库就得换成mdb格式的。

我只写亲身经历的文章，有感情的文章，这里没图没真相，只有个人愚见。