Fórum Como cria Ado Query em tempo de execução #238811

function TDataModule1.AbreADODataSet(SQLText: string): TADODataSet;
var
  oADODataSet: TADODataSet;
begin
  oADODataSet := TADODataSet.Create(nil);
  oADODataSet.Connection := ADOConnnection1;
  oADODataSet.CommandText := SQLText;
  oADODataSet.Open;
  Result := oADODataSet;
end;

procedure TDataModule1.CloseDataSetAndFree(ADODataSet: TADODataSet);
begin
  if Assigned(ADODataSet) then
  begin
    if ADODataSet.Active then
      ADODataSet.Close;
    FreeAndNil(ADODataSet);
  end;
end;

function TDataModule1.ExecutaCommando(SQLText: string): integer;
var
  oADOCommand: TADOCommand;
begin
  oADOCommand := TADOCommand.Create(nil);
  try
    oADOCommand.Connection := ADOConnnection1;
    oADOCommand.CommandText := SQLText;
    oADOCommand.Execute(Result, SQLText);
  finally
    FreeAndNil(oADOCommand);
  end;
end;

procedure TDataModule1.FormCreate(Sender: TObject);
var
  oADODataSet: TADODataSet;
  Teste: string;
begin
  try
    oADODataSet := AbreADODataSet(´SELECT...´);
    Teste := oADODataSet.FieldByName(´TESTE´).AsString;
    //...
  finally
    CloseDataSetAndFree(oADODataSet);
  end;

  ExecutaCommando(´DELETE FROM...´);
end;