| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Упаковка Access базы из программы [D6, Access]
diabolik_krsk © (2004-10-27 09:25:00)Доброго времени суток уважаемые мастера.
Вопрос такой:
Как в программе через событие Button1.OnClick реализовать сжатие базы данных Access, как это происходит через сам Access через меню Сервис->Служебные программы->Сжать и восстановить базу данных?
Заранее благодарен.
diabolik_krsk (2004-11-03 08:02:00) [1]Прошу прощения. Параметр Unassigned относится к юниту Variants, который в свою очередь не был прописан в Uses моей формы. Теперь все заработало. Спасибо.
sniknik (2004-11-02 08:16:00) [2]неправ, должно быть именно так как было.
diabolik_krsk (2004-11-02 04:56:00) [3]ИМХО кажется ошибочка в коде
> Vit@ly © (29.10.04 10:35) [8]
> V := Unassigned;
Должно быть V.Unassigned;
Поправьте если я не прав.
Vit@ly (2004-10-29 10:35:00) [4]Попробуй
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;
diabolik_krsk (2004-10-29 09:18:00) [5]
> Erik1 © (27.10.04 11:00) [5]
> Ну что еще нужно для счастья, почему все время дают сылки
> на кикието идеотские примеры?!
А чем плох тогда Microsoft Jet and Replication Objects 2.x Library (Version 2.5)/ библиотека msjro.dll/ Вроде смысл тот же. Только там JRO, а у тебя DAO??
В чем разница?
REP (2004-10-27 11:03:00) [6]Erik1 © (27.10.04 11:00) [5]
Ну человек искал больше часа.
Я поискал одну минуту.
Erik1 (2004-10-27 11:00:00) [7]{ Microsoft DAO 3.6 Object Library }
{ The Microsoft Jet database engine. }
_DBEngine = interface(_DAO)
['{00000021-0000-0010-8000-00AA006D2EA4}']
procedure CompactDatabase(const SrcName, DstName: WideString; DstLocale, Options, SrcLocale: OleVariant); safecall;
procedure RepairDatabase(const Name: WideString); safecall;
Ну что еще нужно для счастья, почему все время дают сылки на кикието идеотские примеры?!
REP (2004-10-27 10:53:00) [8]Может поможет?
REP (2004-10-27 10:53:00) [9]Забыл:
http://delphi.about.com/library/weekly/aa091801a.htm
diabolik_krsk (2004-10-27 10:50:00) [10]
> Kuusiniemi (27.10.04 09:36) [1]
> Поиск рулит.
> Постоянно спрашивают ведь!
Спрашивать спрашивают, а найти проблематично. Час лазил по поиску - не нашел.
Kuusiniemi (2004-10-27 09:36:00) [11]Поиск рулит.
Постоянно спрашивают ведь!
| |
