Problema com pesquisa

Question

Ola gente, estou ainda sofrendo com esta pesquisa.N�o tenho id�ia o porque esta dando errado, j� mudei a forma da pesquisa e ela ainda n�o funciona.Coloquei 3 radiobuton no form e fiz o c�digo sql da ...

Sremulador · Answer

se vc postar o erro vai ser bem melhor para que posssamos identifica-lo mas vamos ver com o cod abaixo..

procedure TFrm_ConsCliCod.BtLocalizarClick(Sender: TObject);Var Campo: String;
begin 
If Edit1.Text=�� Then   
 Begin     
   ShowMessage(�Entre com um valor a ser pesquisado�);                  Edit1.SetFocus;   
end; 
    IF RadioButtonCodigo.Checked THEN   
 Campo:=�Cod_Cli�
 ELSE 
    IF RadioButtonNome.Checked THEN     
        Campo:=�Nome�
   ELSE  IF RadioButtonTel.Checked THEN     
Campo:=�Tel_1�; 
With Dmdados.IBQ_Cliente DO     
 Begin       
 Close;       
 Sql.Clear;       
Sql.Text:=�Select * From Tab_Cliente Where �+ Campo+� Like :Dado�;       
 ParamByName(�Dado�).AsString:= ��� + Edit1.Text + ���;         Open;       
 end;
end;

Peninha · Answer

Amigo, eese � o problema, n�o me retorna erro nenhum.Qunado cliko no bot�o localizar pelo que me parece o c�digo � acinado corretemente....

Rjun · Answer

Fiz uma modifica��o no seu c�digo. Veja se funciona:

begin
  if (Edit1.Text = ��) then
  begin
    ShowMessage(�Entre com um valor a ser pesquisado�);
    Edit1.SetFocus;
    Exit;
  end;

  if (RadioButtonCodigo.Checked) then
    Campo := �Cod_Cli�
  else if (RadioButtonNome.Checked) then
    Campo := �Nome�
  else if (RadioButtonTel.Checked) then
    Campo := �Tel_1�;
  else
  begin
    ShowwMessage(�Voc� deve selecionar um campo para efetuar a pesquisa.�);
    Exit;
  end;

  dmDados.IBQ_Cliente.Close;
  dmDados.IBQ_Cliente.SQL.Clear;
  dmDados.IBQ_Cliente.SQL.Text := �SELECT * FROM Tab_Cliente WHERE � + Campo + �Like :Dado�;
  dmDados.IBQ_Cliente.ParamByName(�Dado�).AsString := ��� + Edit1.Text + ���;
  dmDados.IBQ_Cliente.Open;
end;