Главная / Веб-программирование / Базы данных / Упаковка и проверка базы Access

Упаковка и проверка базы Access

{
here is a function i have made to compact and repair an access database.
exclusive access to the db is required!!
}

uses
comobj;

function compactandrepair(db: string): boolean; {db = path to access database}
var
v: olevariant;
begin
result := true;
try
v := createoleobject(‘jro.jetengine’);
try
v.compactdatabase(‘provider=microsoft.jet.oledb.4.0;data source=’+db,
‘provider=microsoft.jet.oledb.4.0;data source=’+db+’x;jet oledb:engine type=5′);
deletefile(db);
renamefile(db+’x’,db);
finally
v := unassigned;
end;
except
result := false;
end;
end;

О нас seoexpert

продвижение сайта,seo оптимизация,поисковое продвижение,раскрутка сайтов,поисковая оптимизация,продвижение сайта в гугл,seo раскрутка,продвижение сайтов в яндексе,продвижение сайта в google,продвижение сайтов в топ 10,Оптимизация и продвижение сайтов,услуги продвижения сайта,заказать продвижение,продвижение сайтов в топ,сео раскрутка сайта

Смотрите также

Использование простой базы данных SQLite в Android-приложении

В этом руководстве я подробно расскажу о том, как использовать базу данных Android SQLite. Что ...