BorlandTalk.com

Lars Sondergaard · Guest

We use this to check the version:

uses
ComObj,
Sysutils;

function GetADOVersionRaw: string;
var
ADO: Variant;
begin
try
ADO:=CreateOLEObject('adodb.connection');
Result:=ADO.Version;
ADO:=Null;
except
Result:='Unknown';
end;
end;

function GetADOVersion(var Major,Minor: integer): boolean;
var
S: string;
begin
S:=GetADOVersionRaw;
result:=(S<>'Unknown');
if result then begin
Minor:=pos('.',S);
Major:=StrToIntDef(Copy(S,1,Minor-1),0);
Minor:=StrToIntDef(Copy(S,Minor+1,100),0);
end
else begin
Major:=0; Minor:=0;
end;
end;

--

Lars Sondergaard