textbox - executar consulta a cada caracter imputado

[henriquexande106]

Amigos boa tarde,

Preciso que, ao imputar algum valor em um text box, seja executado uma query e que esta query alimente o meu grid....

Tentei fazer da seguinteforma... mas não deu certo.

Código:

LCCODIGO = THISFORM.TExt1.Value
THISFORM.GRid1.RecordSource=""
THISFORM.GRid1.REFRESH()
SELECT CODIGO, NOME FROM FORNECED WHERE NOME LIKE '%&LCCODIGO%' ;
INTO CURSOR TMPFORNECED
THISFORM.GRid1.RecordSource="TMPFORNECED"
THISFORM.GRid1.REFRESH()

[m@r<3|o]

para funcionar o Like tente assim

Código:

lcPesq =  '%'+ ALLTRIM(THISFORM.TExt1.Value) + '%'
THISFORM.GRid1.RecordSource=""
THISFORM.GRid1.REFRESH()
SELECT CODIGO, NOME FROM FORNECED WHERE LIKE lcPesq ;
INTO CURSOR TMPFORNECED
THISFORM.GRid1.RecordSource="TMPFORNECED"
THISFORM.GRid1.REFRESH()

[m@r<3|o]

ql banco esta utilizando ?

[henriquexande106]

Valeu Amigo,

utilizei exatamente da forma que estava acima e deu certinho... Valeu!!!

Código:

LCCODIGO = '%' + ALLTRIM(THISFORM.TExt1.Value) +'%'
THISFORM.GRid1.RecordSource=""
THISFORM.GRid1.REFRESH()
SELECT CODIGO, NOME, ENDERECO, TELEFONE1 FROM FORNECED WHERE NOME LIKE LCCODIGO ;
INTO CURSOR TMPFORNECED
THISFORM.GRid1.RecordSource="TMPFORNECED"
THISFORM.GRid1.REFRESH()