Главная страница
    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.45 MB
Время: 0.005 c
4-26293
Ted
2002-03-06 09:57
2002.05.09
Помогите, плиз.......отключить локальные винты


6-26209
Sergo
2002-02-26 17:46
2002.05.09
ПРИВЕТ ВСЕМ МАСТЕРАМ...И ВОТ ВОПРОСИК ТАКОЙ ВСПЛЫЛ!!!


3-25981
Sewix
2002-04-12 13:10
2002.05.09
Помогите сформировать SQL запрос


14-26269
Sergey13
2002-03-28 11:09
2002.05.09
Ваш


14-26243
LazorenkoX
2002-04-01 22:39
2002.05.09
Artificial Intelligence





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский