Форум - Ответы     (  К темам )
 ?  error: access (15-04-2003 08:40:02)
подскажите плз как программно сжать базу данных Access (эквивалент меню: "Сервис -> Служебные программы -> Сжать и восстановить базу данных")
 error (16-04-2003 07:29:28)
спасибо всем...... я и сам додумался
если кому нибудь интересно:

AnsiString Provider = "Provider=Microsoft.Jet.OLEDB.4.0;";
AnsiString DatabaseName = Edit1->Text;
AnsiString DestDatabaseName = Edit2->Text;
AnsiString Src,Dest;
Variant V;
Src = Provider + "Data Source=" + DatabaseName;
Dest = Provider + "Data Source=" + DestDatabaseName;
V = CreateOleObject("jro.JetEngine");
V.OleFunction("CompactDatabase", (TVariant)Src, (TVariant)Dest) ;


support@cbuilder.ru