Mega Code Archive

 

Categories / Delphi / ADO Database

 

How to detect, which version of ADO is installed

Title: How to detect, which version of ADO is installed function GetADOVersion: Double; var ADO: OLEVariant; begin try ADO := CreateOLEObject('adodb.connection'); Result := StrToFloat(ADO.Version); ADO := Null; except Result := 0.0; end; end; // To use this function try something like: procedure TForm1.Button1Click(Sender: TObject); const ADOVersionNeeded = 2.5; begin if GetADOVersion then ShowMessage('Need to install MDAC version 2.7') else ShowMessage(Format('ADO Version %n, is OK', [GetADOVersion])); end;