ADO - descobrindo a versao

Top  Previous  Next

uses ComObj;

 

function VersaoADO: string;

var

  ADO: Variant;

begin

  try

    ADO    := CreateOLEObject('adodb.connection');

    Result := ADO.Version;

    ADO    := NULL;

  except

    Result := 'ADO not FOUND';

  end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  Label1.Caption := VersaoADO;

end;