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

← →
Brestmarket.com (2002-09-18 16:37) [0]

Прошу готовые участки кода при реализации с реестром, ADOConnection или другие рабочие варианты. Отблагодарю как смогу - ответьте пожалуйста на мыло!

← →
Андрей Прокофьев (2002-09-18 16:41) [1]

ADOConnection1.Version

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

← →
Brestmarket.com (2002-09-18 16:46) [2]

МОгу кинуть какой компонент - если надо - большая коллекция. Есть мыло 10 млн. ящиков всего мира и т.д. Но вообще надо полная рабочая реализация ! У меня такой код почему -то вызывает исключительную ситуацию!

← →
Андрей Прокофьев (2002-09-18 16:48) [3]

Какой ТАКОЙ код?
Может, у тебя ADOConnection = nil или плохая ссылка

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 17:46) [5]

Зачем 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;

Как определить версию ADO на компьютере клиента? Найти похожие ветки