CompactDatabase в ADO

← →
qqqq (2002-04-25 10:43) [0]

Можно ли с помощью ADO сжимать и ремонтировать базы
или это можно делать только через DAO?
И для работы программы с mdb через ADO достаточно только
MDAC_TYP.EXE или нужно что бы MS Access то же был установлен?
Классного вам дня!

← →
SelfDestructor (2002-04-25 12:04) [1]

>>И для работы программы с mdb через ADO достаточно только
>>MDAC_TYP.EXE или нужно что бы MS Access то же был установлен?

Установленный Access не нужен. Учти, что для WinNТ следует устанавливать MDAC2.5 не позже! Так как начиная с версии 2.6 из него исключили компоненты ODBC, нужные для работы с Access через ADO.

Вопрос про сжатие меня тоже интересует - жду ответа с нетерпением =))

← →
qqqq (2002-04-25 12:18) [2]

Сжатие есть тут:
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1019570761&n=1
Но через DAO.
А зачем компоненты ODBC для работы с Access через ADO?

← →
SelfDestructor (2002-04-25 15:07) [3]

qqqq, так ведь ADO через ODBC работает, разве нет?
факт, что на NT после установки MDAC 2.7, при запуске ругается "не найден поставщик данных", если не был установлен офис, который их тоже ставит. Поставил 2.5 - всё заработало.
При сравнении, что ставит MDAC 2.5 и не ставит MDAC 2.7 я обнаружил, что это компоненты ODBC. Поэтому он и похудел на два мега.

← →
McSimm © (2002-04-25 15:12) [4]

>SelfDestructor (25.04.02 15:07)
ADO может, но не обязан работать через ODBC.

Для Access надо использовать провайдер Jet OLE DB Provider.
Вот его,кстати, в 2.7 действительно не включили - надо ставить отдельно.

← →
SelfDestructor (2002-04-25 15:26) [5]

Признаю, ошибся. Я думал, что OLE DB всё равно через ODBC работает.

А вот про сжатие в ADO хотелось бы всё таки услышать...

procedure TForm1.Button2Click(Sender: TObject);
var DD1, DD2, DD3: TTimeStamp;
d1, d2: TDateTime;
begin
ShowMessage(ParamStr(0));
exit;
{ DecodeDate(StrToDateTime(Edit1.Text), yy, mm, dd);
Button2.Caption := IntToStr(yy) + "/" +
IntToStr(mm) + "/" +
IntToStr(dd);
}
d1 := StrToDateTime(Edit1.Text);
d2 := StrToDateTime(Edit2.Text);
{
dd1 := DateTimeToTimeStamp(d1);
dd2 := DateTimeToTimeStamp(d2);
dd1.Time := dd1.Time - dd2.Time;
dd1.Date := dd1.Date - dd2.Date;
dd3 := DateTimeToTimeStamp(d1-d2);
}
//Button1.Caption := FormatDateTime( "hhhh:mm:ss ", d1-d2);
Button1.Caption := DateTimeToStr(d1+d2);
end;

Ой, пардон! Не то в клипбоарде было
смотрите сюда:
http://delphi.mastak.com/cgi-bin/forum.pl?look=1&id=1019045709&n=1

CompactDatabase в ADO Найти похожие ветки