Fórum Consulta Aparecer no DBGrid #287490

procedure TFrmConsutaEditora.BitBtnOKClick(Sender: TObject);
var ConsultaEditora: String;

begin
ClientDataSetConEdt.Close;
  ConsultaEditora:= ´Select Nome from EDITORA where ´;
ConsultaEditora:= ConsultaEditora + ´Nome like ´´´+EdtConsultaNome.Text+´¬´´´;
      try
        Transacao.TransactionID := 1;
        Transacao.IsolationLevel := xilREPEATABLEREAD;
        DM.SQLConnection1.StartTransaction(Transacao);
        DM.SQLQueryConEdt.Close;
        DM.SQLQueryConEdt.SQL.Clear;
        DM.SQLQueryConEdt.SQL.Append(ConsultaEditora);
        DM.SQLQueryConEdt.Open;
        DM.SQLConnection1.Commit(Transacao);
        IF DM.SQLQueryConEdt.IsEmpty then
          Begin
            MessageDlg(´Editora não encontrada!´,mtInformation,[mbOK],0);
          end;

          except
          on Exc:Exception do
          begin
             ShowMessage(´Ocorreu um erro na consulta: ´ + Exc.Message);
             DM.SQLConnection1.Rollback(Transacao);
           end; //do except
      end;  //do try
  ClientDataSetConEdt.open;
end;
procedure TFrmConsutaEditora.EdtConsultaNomeKeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
if not DM.SQLTable1.Active then
begin
try
  DM.SQLTable1.Open;
  DM.SQLTable1.Locate(´Nome´,varArrayof([EdtConsultaNome.Text]),[LopartialKey]);
except
  ShowMessage(´Oops´);
end;
end;
end;