Fórum Erro na consulta #426894

23/10/2012

0

Delphi

A onde estou errando com este código?
procedure TFrm_Principal.BtPesquisaClick(Sender: TObject);
Var
 Campo:String;
begin
 WITH Dmdados.IBqCliente do
       Begin
        Close;
        Sql.Clear;
        Sql.Text:='Select * From TabOrcamento Where '+ Campo +' LIKE :ParamNome';
        ParamByName('ParamNome').asString:='%'+EdtPesquisa.Text+'%';
        SQL.Add('Order By Nome_cli');
        Open;
       end;

Me retorna um erro dizendo que o LIKE não existe:
Erivan Marinho

Erivan Marinho

Responder

Posts

23/10/2012

Bruno Leandro

voce ta declando a variavel Campo mas nao ta atribuindo nenhum valor pra ela informando qual o campo sera pesquisado
Responder

Gostei + 0

23/10/2012

Erivan Marinho

Tem como me explicar melhor amigo?
Por favor.
Responder

Gostei + 0

23/10/2012

Alessandro Yamasaki

Esta linha
Sql.Text:='Select * From TabOrcamento Where '+ ???Campo??? +' LIKE :ParamNome';

Se verificar seu trecho, verificará que a variavel "Campo" não é preenchida.
Responder

Gostei + 0

24/10/2012

Alisson Santos

Poderia postar o código inteiro dessa ação, pois tem que declarar a variavel campo atribuindo a ela o seu edit entendeu. pois no seu select você passa o campo e como parametro pede o que está digitado no edit.
Responder

Gostei + 0

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

Aceitar