Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как определить версию ADO на компьютере клиента? [D6]

Brestmarket.com © (2002-09-18 16:37:00)
Прошу готовые участки кода при реализации с реестром, ADOConnection или другие рабочие варианты. Отблагодарю как смогу - ответьте пожалуйста на мыло!

Андрей Прокофьев (2002-09-18 17:46:00) [1]
Зачем Open-то делать

function ADO_and_All : String;
var
con : TADOConnection;
begin
try
AC := TADOConnection.Create(nil);
Result := AC.Version;
AC.Free;
except
on E:Exception do Result:= "";
end;
end;

sniknik (2002-09-18 17:27:00) [2]
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;

Андрей Прокофьев (2002-09-18 16:48:00) [3]
Какой ТАКОЙ код?
Может, у тебя ADOConnection = nil или плохая ссылка

Brestmarket.com (2002-09-18 16:46:00) [4]
МОгу кинуть какой компонент - если надо - большая коллекция. Есть мыло 10 млн. ящиков всего мира и т.д. Но вообще надо полная рабочая реализация ! У меня такой код почему -то вызывает исключительную ситуацию!

Андрей Прокофьев (2002-09-18 16:41:00) [5]
ADOConnection1.Version

Жду благодарностей ;)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »