Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];

Вниз

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

 
Yuraz   (2002-04-15 15:46) [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;


 
Johnmen   (2002-04-15 16:00) [1]

1. Наличие ADO проверяется взглядом на закладки палитр компонентов в Дельфи (если, конечно Дельфи установлен)
2. ADOQuery1.Open


 
Delirium   (2002-04-15 16:11) [2]

Что-же будем последовательны - проверим на наличие и провайдера, и версию ADO :

function ADO_and_Jet40:String;
var con:TADOConnection;
begin
try
con:=TADOConnection.Create(nil);
con.LoginPrompt:=False;
con.ConnectionString:="Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Text;Data Source=.\";
con.Open;
Result:=con.Version;
con.Free;
except
on E:Exception do Result:=E.Message;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ADO_and_Jet40);
end;


 
Yuraz   (2002-04-15 16:40) [3]

СПАСИБО!



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.005 c
1-26140
LiNkS
2002-04-24 14:31
2002.05.09
Form1 и Form2


4-26299
FFFF
2002-03-06 16:22
2002.05.09
Рисование на Desktop e


1-26197
HDD
2002-04-25 14:53
2002.05.09
Два маленьких вопроса!


1-26092
dnk
2002-04-26 16:25
2002.05.09
Вот проблема!


1-26122
Mic_2k
2002-04-24 17:11
2002.05.09
Как можно прорисовать табличку в Excel из Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский