Pesquisa com seleção de campos
18/10/2008
0
Não consigo fazer este código funcionar
O erro ocorre justamente nesta linha, pois ´nome´ é u dos campos da minha tabela.
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
Curtir tópico
+ 0
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....
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
Clique aqui para fazer login e interagir na Comunidade :)