Office中国论坛/Access中国论坛

标题: [求助]独占与共享的问题？ [打印本页]

作者: wzy_cz 时间: 2006-12-7 18:44
标题: [求助]独占与共享的问题？
我搞了个程序，用vba编程，用ado连接方法连接数据库。

因为有好几个窗体要连接到本地数据库，所以我在模块区建立一个公共模块，代码如下：

Option Compare Database
Option Explicit
Public cn As ADODB.Connection
Public strcnn As String
Public Sub connect()
Dim dbname

On Error Resume Next
' 打开数据库连接。
Set cn = New ADODB.Connection
dbname = Application.CodeProject.Path
If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
dbname = dbname & "ERP_label.mdb;"
strcnn = "provider=microsoft.jet.oledb.4.0;persist security info=false;data source=" + dbname
cn.Open strcnn
End Sub

在窗体打开事件过程中，设置了数据集变量如Set rs = New ADODB.Recordset

rs.Open "tbl_record_display", cn, , , adCmdTable

当我用共享方式打开数据库时，打开窗体然后进入窗体设计模式就显示错误：“目前你没有对该数据库的独立访问权限，如果继续进行更改，稍后不能将其保存。”

不过我用独占方式打开数据库时，打开窗体时显示错误：“运行时错误”3709“，连接无法用于执行此操作，在此上下文中它可能已被关闭或无效。”

当我将公共模块代码放在窗体打开事件过程中，在独占方式下就没有任何错误发生，请问高手这是什么原因？我希望连接数据库代码放在公共模块区，且在独占方式下没有任何错误？谢谢诶

作者: wuaza 时间: 2006-12-7 19:46
直接用

rs.Open "tbl_record_display", currentproject.connection, , , adCmdTable

不行吗？干吗整这么复杂？

作者: wzy_cz 时间: 2006-12-7 21:33
我加了currentproject.connection，可是说“加载dll错误”，在哪里添加dll？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)