Findnearest
Estou com um problema. Como eu faco uma pesquisa no evento onchange de um edit porque no IBDataset nao e possivel o comando FindNearest. Pesquisando no forum, vi uma dica que era o seguinte:
[color=blue:9da987dd91]select *
from cliente
where NOME STARTING WITH ´J´
´J´ é a inicial do nome [/color:9da987dd91]
Onde eu coloco?
outra era o seguinte:
[color=blue:9da987dd91]Tipo, vc poderia fazer da seguinte forma, no evento onchange do Componente Edit:
With Query Do
Begin
Close;
Sql.Clear;
Sql.ADD(´Select * from Clientes Where Nome Like ´+QuotedStr(Edit1.Text)´+´¬´);
Sql.Open;
End;
A função QuotedSTR(Edit1.Text) joga o conteúdo do Edit1.Text já com as aspas simples.
Espero ter ajudado... [/color:9da987dd91]
So que quando eu coloco no evento on change do edit aparece a seguinte mensagem:
Dynamic SQL error
SQL Error code = -104
token unkown - line 1, char 41
¬
Alguem pode me ajudar?
[color=blue:9da987dd91]select *
from cliente
where NOME STARTING WITH ´J´
´J´ é a inicial do nome [/color:9da987dd91]
Onde eu coloco?
outra era o seguinte:
[color=blue:9da987dd91]Tipo, vc poderia fazer da seguinte forma, no evento onchange do Componente Edit:
With Query Do
Begin
Close;
Sql.Clear;
Sql.ADD(´Select * from Clientes Where Nome Like ´+QuotedStr(Edit1.Text)´+´¬´);
Sql.Open;
End;
A função QuotedSTR(Edit1.Text) joga o conteúdo do Edit1.Text já com as aspas simples.
Espero ter ajudado... [/color:9da987dd91]
So que quando eu coloco no evento on change do edit aparece a seguinte mensagem:
Dynamic SQL error
SQL Error code = -104
token unkown - line 1, char 41
¬
Alguem pode me ajudar?
Aflsilva
Curtidas 0
Respostas
Delphox
26/10/2003
8) Olá!!!!!!!
Eu acho que a bronca tá na função quoted,pois o ´¬´ tb tem que está entre aspas do tipo:´select * from tabelas where campo like ´A¬´,mude o codigo que vc falou para:
With Query Do
Begin
Close;
Sql.Clear;
Sql.ADD(´Select * from Clientes Where Nome Like ´+#39+Edit1.Text+´¬´+39);
Sql.Open;
End;
Onde 39 é carac. ascii da aspa simples...
Uma dica minha:
Use uma propriedade do TTable chamada filter,mudando uma outra propriedade chamada filtered para true e em execução no OnChange de algum edit use o codigo:
TTable.filter:=´(Campo=´+39+edit.text+´*´+39+´)´);
Valeu!!!!!!!!!!!!!!!!!1 8)
Eu acho que a bronca tá na função quoted,pois o ´¬´ tb tem que está entre aspas do tipo:´select * from tabelas where campo like ´A¬´,mude o codigo que vc falou para:
With Query Do
Begin
Close;
Sql.Clear;
Sql.ADD(´Select * from Clientes Where Nome Like ´+#39+Edit1.Text+´¬´+39);
Sql.Open;
End;
Onde 39 é carac. ascii da aspa simples...
Uma dica minha:
Use uma propriedade do TTable chamada filter,mudando uma outra propriedade chamada filtered para true e em execução no OnChange de algum edit use o codigo:
TTable.filter:=´(Campo=´+39+edit.text+´*´+39+´)´);
Valeu!!!!!!!!!!!!!!!!!1 8)
GOSTEI 0