Mega Code Archive

 

Categories / Delphi / ADO Database

 

Ado versiyonu bulma

function GetADOVersion: Double; var ADO: Variant; begin try ADO := CreateOLEObject('adodb.connection'); Result := StrToFloat(ADO.Version); ADO := Null; except Result := 0.0; end; end; //kullanımı: procedure TForm1.Button1Click(Sender: TObject); const ADOVersionNeeded = 2.5; begin if GetADOVersion < ADOVersionNeeded then ShowMessage('Need to install MDAC version 2.7') else ShowMessage(Format('ADO Version %n, is OK', [GetADOVersion])); end;