Array
(
)

Pesquisa com seleção de campos

Peninha
   - 18 out 2008

Não consigo fazer este código funcionar
#Código


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.


Max.jgs
   - 18 out 2008

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....