access

Форум — Ответы ( К темам )

? 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) ;

?	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) ;