关注! 我在打开一个连接后,即使强行关闭连接也没用,ldb会非常顽固地赖着不走! 为这事头疼了很久,那位解决了这个问题绝对功德无量!上次的提问: 一个mdb文件用Recordset对象打开,并绑定到DataEnvironment的一个Connection 对象上。 用以下代码可以正常关闭: If DataEnvironment.Connection.State = adStateOpen Then DataEnvironment.Connection.Close Set DataEnvironment = Nothing End If DataBase.Close Set DataBase = Nothing但是在调用了与Connection连接的DataReport报表并关闭后, 就再也没法关闭这个mdb文件了。(ldb文件总是存在) 除非结束整个程序。
'测 .ldb 不保险 '可用独占连接 + 错误处理 测试 Dim adoConnection As New ADODB.Connection On Error GoTo ErrorHandle adoConnection.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=D:\NWind97.mdb;Mode=Share Deny Read|Share Deny Write;Persist Security Info=False" On Error GoTo 0 Exit Sub ErrorHandle: If Err.Number = -2147467259 Then VBA.MsgBox "还有人用" Else VBA.MsgBox Err.Number & ":" & vbCrLf & Err.Description End If
我在打开一个连接后,即使强行关闭连接也没用,ldb会非常顽固地赖着不走!
为这事头疼了很久,那位解决了这个问题绝对功德无量!上次的提问:
一个mdb文件用Recordset对象打开,并绑定到DataEnvironment的一个Connection 对象上。
用以下代码可以正常关闭: If DataEnvironment.Connection.State = adStateOpen Then
DataEnvironment.Connection.Close
Set DataEnvironment = Nothing
End If
DataBase.Close
Set DataBase = Nothing但是在调用了与Connection连接的DataReport报表并关闭后,
就再也没法关闭这个mdb文件了。(ldb文件总是存在)
除非结束整个程序。
二 即然这么难,分数太少
关键是这个问题该如果去解决,如果去巧妙的解决。
谁能解决的话,告诉我一个可以给你分数的方法,我可以送200-300分给你。
还有,本人并没有说"不能让初学者进来",而是希望初学者"进来学习一下也好"
'可用独占连接 + 错误处理 测试
Dim adoConnection As New ADODB.Connection
On Error GoTo ErrorHandle
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=D:\NWind97.mdb;Mode=Share Deny Read|Share Deny Write;Persist Security Info=False"
On Error GoTo 0
Exit Sub
ErrorHandle:
If Err.Number = -2147467259 Then
VBA.MsgBox "还有人用"
Else
VBA.MsgBox Err.Number & ":" & vbCrLf & Err.Description
End If
然后覆盖,管他什么ldb
怎么可以不提供备份数据库的功能呢??
神啊,帮帮我吧。
其实,如果可以强制删除或覆盖的话,那………
windows和ACCESS都是M$的东东,结合的还真…