| Меню сайта |
|
 |
| ФИЗИКА!!! NEW!!! |
|
|
| Русский!!! NEW!!! |
|
|
| Категории раздела |
|
|
| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
|
Упаковка и проверка базы 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;
|
Категория: php и базы данных | Добавил: ceg (08 Авг 2007)
| Автор: realcoding.net 
|
| Просмотров: 419
| Рейтинг: 0.0/0 |
|
|
|
| Форма входа |
|
|
| Реклама |
|
|
| Поиск |
|
|
|
