Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

2 вопроса, 1) как проверить на компе есть ли ADO библ. 


Yuraz   (2002-04-15 15:26) [0]

2)как применить ADOQuery? Делаю ADOQuery1.ExecSQL;, как вывести результат в таблицу?

По 1 вопросу накопал, как проверить DAO:


procedure TForm1.FormCreate(Sender: TObject);
var
reg: TRegistry;

begin
//проверка установленного "Офиса" (97 или 2000)
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
if reg.OpenKey("DAO.DBEngine.35",false) then
DAODatabase1.DAOVersion:=Dao35
else
if reg.OpenKey("DAO.DBEngine.36",false) then
DAODatabase1.DAOVersion:=Dao36
else
begin
reg.Free;
ShowMessage("На комп не обнаружена "DAO.DBEngine"."+#13#13+"рекомендуем установить MS Access (97 или 2000).");
close;
end;
reg.Free;
end;



Yuraz   (2002-04-15 15:45) [1]

сорри, это вопрос в базы :)




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх







Память: 0.74 MB
Время: 0.019 c
14-94571          Nikolay               2002-03-21 18:26  2002.04.29  
Не совсема понимать :)


1-94453           Deadlock              2002-04-16 07:25  2002.04.29  
Функция Format


3-94310           Basile                2002-04-08 02:31  2002.04.29  
DbColumns


1-94476           Vik_R                 2002-04-16 10:03  2002.04.29  
hint


14-94550          copyr25               2002-03-21 22:05  2002.04.29  
Удивительный феномен Древней Греции.