我的代码
sdbname = App.Path & "\db.mdb"
sBackupName = App.Path & "\dbbak.mdb"
Set objJRO = New JRO.JetEngine
objJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sdbname & ";user id=admin;password=1111;Persist Security Info=True", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sBackupName & ";user id=admin;password=1111;Persist Security Info=True"
运行后最后一句老是报数据库已经被其他用户以独占方式打开的错误,各位给看看是怎么会事
sdbname = App.Path & "\db.mdb"
sBackupName = App.Path & "\dbbak.mdb"
Set objJRO = New JRO.JetEngine
objJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sdbname & ";user id=admin;password=1111;Persist Security Info=True", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sBackupName & ";user id=admin;password=1111;Persist Security Info=True"
运行后最后一句老是报数据库已经被其他用户以独占方式打开的错误,各位给看看是怎么会事
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货