F�rum Select para pesquisa com a op��o do usu�rio buscar por um ou varios campos #581062

08/05/2017

Ol�! Sou iniciante em delphi e estou com uma d�vida. No meu projeto tenho 4 edit como campo de pesquisa. Um editnome, que busca por nome do paciente, um editprontgrad que busca pelo numero do prontuario da gradua��o, um editprontpos, que busca pelo numero do prontu�rio da p�s e um editemerg, que busca pelo numero do prontuario da emergencia. No sql da query coloquei o seguinte c�digo:

select * from pacientes
where UPPER (nome_paciente) like UPPER (:NomePaciente)
and pront_grad like :ProntGrad
and pront_pos like :ProntPos
and pront_emerg like :ProntEmerg

No c�digo fiz assim para cada campo:
if EditGrad.Text <> ' ' then
begin
QueryPacientes.ParamByName('ProntGrad').AsString := EditGrad.Text;
end
else
begin
QueryPacientes.ParamByName('ProntGrad').AsString := '%%';

Mas n�o consigo trazer nenhum dado. Alg�em poderia me ajudar na solu��o??

Deise Souza

Curtir t�pico

+ 0

Responder

Post mais votado

08/05/2017

Bom dia,
O que deve se fazer e montar esse select dinamicamente conforme os campos estejam preenchidos. Como sua clausula � um and da formda que esta fazendo o registro deve conter todas as condi��es para ser retornado. Ent�o fa�a algo assim:

  minhaQuery.sql.add('Select * from suaTabela');
  minhaQuery.sql.add('Where <Condi��o_1>');

  if (EdtProntPos.text.empty) then 
     minhaQuery.add.('and campoProntPos =' + quotToStr(EdtProntPos.text));

  if (EdtProntGrad.text.empty) then 
     minhaQuery.add.('and campoProntGrad =' + quotToStr(EdtProntGrad.text));

  minhaQuery.open();

Gutierry Pereira

Responder

Gostei + 1