невозможное уплотнение и восстановление базы данных MS ACCESS двумя способами:
RepairDatabase()
, тогда как в DAO360 есть CompactDatabase()
В качестве примера, в VB6 (старый, старый, старый ...) выполните следующее:
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db_to_repair.mdb;Jet OLEDB:Database Password=mypass", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\repaired_db.mdb;Jet OLEDB:Engine Type=4;Jet OLEDB:Database Password=mypass"
Как вы что функция требует, чтобы вы указали имя восстанавливаемой базы данных и имя восстановленной базы данных.