Каким образом можно ручками сделать сабж.
Желательно на VB.

Здравствуйте Tom, Вы писали:

Tom>Каким образом можно ручками сделать сабж.
Tom>Желательно на VB.

DBEngine.RepairDatabase.

V>DBEngine.RepairDatabase.
Надо без DAO

Здравствуйте Tom, Вы писали:

V>>DBEngine.RepairDatabase.
Tom>Надо без DAO

тут написано, как это сделать через OLE DB:
http://support.microsoft.com/default.aspx?scid=KB;EN-US;Q230496&
P.S.:
The IJetCompact interface exposes maintenance operations on the OLE DB Provider for Microsoft Jet. Compact is the only supported method on this interface. It does both database compaction and repair.

P.P.S : на SQL'е этого по-моему не сделать — база-то битая и для восстановления должна быть закрыта.

P.P.P.S. — RTFM.

Здравствуйте Tom, Вы писали:

Tom>Каким образом можно ручками сделать сабж.
Tom>Желательно на VB.
Исходники на шарпе, но думаю на VB все будет похоже

JetEngineClass jec = new JetEngineClass();
jec.CompactDatabase(GetConnectionString(),GetConnectionString()+".temp");

JetEngineClass берется из JRO коя должна устанавливаться вместе с Jet OLEDB Provider.

... Янус версия 1.0 alpha 2

Здравствуйте Tom, Вы писали:

Tom>Надо без DAO
Можно на более высоком уровне, чем OLE DB — с использованием JRO.
Пример на VBвот тут