Fórum ERRO AO FAZER SELECT! #204633

qryVerificaConta.Active := true;
   //Começa a inserção dos dados no Banco
      if (traVerificaConta.InTransaction) then
        traVerificaConta.commit;
      traVerificaConta.StartTransaction;
      with qryVerificaConta do begin
        Close;
        with SQL do begin
          Clear;
          Add(´select * from (HOSPEDE inner join CONTA on HOSPEDE.COD_HOSP = CONTA.COD_HOSP)´);
          Add(´inner join DESCRICAO_PRODUTO on DESCRICAO_PRODUTO.COD_CONT = CONTA.COD_CONT´);
          add(´where COD_HOSP=´ + txtCodHosp.text );
        end;
      end;
    try
      qryVerificaConta.Prepare;
      qryVerificaConta.ExecSQL;
    except
      on E: EIBError do
      begin
        traVerificaConta.Rollback;
        MessageDlg(Format(´¬s [¬d; ¬d]´, [E.message, E.SQLCode, E.IBErrorCode]),mtError,[mbOK],0);
        Abort;
        Exit;
      end;
     end;
    //Finalizando a transação com efetivação das modificações
    traVerificaConta.Commit;
    //refresh hospede
    with qryVerificaConta do begin
      close;
      Prepare;
      dmCondominio.idbCondominio.Close;
      dmCondominio.idbCondominio.Open;
      open;
    end;