Pesquisa com seleção de campos

18/10/2008

0

Não consigo fazer este código funcionar
procedure TFrm_principal.BtLocalizarClick(Sender: TObject);
Var
 Campo: String;
begin
 IF EdtPesquisa.Text=´´ THEN
      Begin
       Showmessage(´Entre com um valor a ser pesquisado´);
       EdtPesquisa.SetFocus;
      end;
  IF RadioButonNome.Checked Then
     Campo:=´Nome´
  ELSE
  IF RadioButtonIpLan.Checked THEN
     Campo:=´IpLan´
  ELSE
  IF RadioButtonIpWan.Checked THEN
     Campo:=´IpWan´
  ELSE
  IF RadioButtonMac.Checked THEN
     Campo:=´Mac_Adres´;
 With DmDados.IBQ_Ip DO
      Begin
       Close;
       Sql.Clear;
       Sql.Text´Select * From Tab_IP Where ´+ Nome +´ Like :dado´;          ParamByName(´Dado´).AsString:= ´¬´ + Edit1.Text + ´¬´;
       Open;
      end;
 end;

O erro ocorre justamente nesta linha, pois ´nome´ é u dos campos da minha tabela.


Peninha

Peninha

Responder

Posts

18/10/2008

Max.jgs

Está assim..
IF RadioButonNome.Checked Then
Campo:=´Nome´

Mas oque acontece você colocou ´nome´ mas oqué nome uma variável? constante? Um campo de uma tabela?

Para um campo de uma tabela seria assim.

IF RadioButonNome.Checked Then
Campo:= Table1.FieldByyName(´Nome´).AsString;

Veja se é isso....


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar