Como realizar um select usando parametros digitados em um EDIT ?

Delphi

Banco de Dados

25/01/2017

Bom dia estou usando o seguinte código , porem quando eu não uso as linhas que definem os parametros o selct funciona , estou usando ADO
Desde já agradeço !
 Q_Busca.Close;
             Q_Busca.SQL.text :='SELECT CODCLICL CODIGO, NOMCLICL CLIENTE,CNPJCLICL CNPJ,FONE1CLICL FONE1,FONE2CLICL FONE2,NOMVENDEDOR VENDEDOR,NOMOPEOP OPERADOR'+
             ' FROM GTELCLI LEFT '+
             ' OUTER JOIN GTELCADVEND ON (GTELCADVEND.ID = GTELCLI.CODVEND) LEFT OUTER JOIN GTELOPE ON (GTELOPE.CODOPEOP = GTELCLI.OPEATUCL)'+
             ' WHERE CODCLICL=:WPARAM order by NOMCLICL ';
             Q_Busca.Parameters.parambyname('WPARAM').Value := PARAM.text;
             Q_Busca.Open;
Rodrigo Oliveira

Rodrigo Oliveira

Curtidas 0

Respostas

Paulo Hendrix

Paulo Hendrix

25/01/2017

Vc fez tudo na segunda linha, que por sinal e tudo..
Q_Busca.SQL.text :='SELECT CODCLICL CODIGO, NOMCLICL .. ate aqui você já setou que precisa. dependendo.. não sei como esta seu cod nem que lg esta usando..
ou posso ter entendido de forma errada sua pergunta....
GOSTEI 0
POSTAR