用ado修复压缩数据库出现错误 达人来 送风
Accsee2000数据库 用的ADO
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Db1.mdb;Jet OLEDB:Database Password=enetbar;Persist Security Info=False "
Adodc1.RecordSource = "Select * From Data "
Adodc1.Refresh
End sub

Private Sub Command9_Click()
Adodc1.Recordset.Close
Set Adodc1.Recordset = Nothing
Set lole = CreateObject( "JRO.JetEngine ")
lole.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Db1.mdb;Jet OLEDB:Database Password=123; ", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Db1.mdb;Jet OLEDB:Engine Type=4 "
End Sub

当command9 click后
显示标题 "adodc1 " 内容 "[Microsoft][ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱动程序 "
点击以上消息确定后显示标题 "Microsoft visual basic "内容 "实时错误-2147467259(80004005)不能执行这项操作；在低版本的数据库中该版本的特性不可用 "

按照上面的提示是没发现db1.mdb
把command9里的Password=123密码改成别的又显示密码不对，说明文件它已经找到

把command9里的
Adodc1.Recordset.Close
Set Adodc1.Recordset = Nothing
取消又提示文件尝试打开的文件以被其它方式打开


[解决办法]
LZ说---
把command9里的
Adodc1.Recordset.Close
Set Adodc1.Recordset = Nothing
取消又提示文件尝试打开的文件以被其它方式打开
-----------------------------------
我以前也碰到过，当时是因为我一边运行着程序，同时该Access数据库也打开了，
所以提示文件尝试打开的文件以被其它方式打开