DUVIDA COM FILTRO NA TABELA PARADOX
BOA TARDE PESSOAL
SOU INICIANTE NO DELPHI .. ESTOU FAZENDO UM SIMPLES PROGRAMA DE DELPHI CADASTRO E PESQUISA DE PESSOAS
O CADASTRO TA FUNCIONANDO BLZ ....
A PESQUISA TA PARCIALMENTE FUNCIONANDO...PQ PARCIAMENTE
QUANDO FAÇO O FILTRO NA TABELA E COLOCO O CAMPO QUAL QUERO FAZER O FILTRO ELE FUNCIONA
VEJA O EX:
Table1.Filtered := False;
if (edit1.Text <> '') then
Table1.Filter := 'NMPESSOA=' +QuotedStr(edit1.text + '*')
else
Table1.Filter := '';
Table1.Filtered := True;
NO CODIGO ACIMA PROCURO O NOME DA PESSOA .. QUANDO DIGITO NO EDIT.... ATE ENTAO TA "SUSSA"
SUSSA = A TRANQUILO
POIS BEM
IMAGINEI SE EU COLOCASSE O CAMPO EM QUE QUERO FAZER O FILTRO NO COMBOBOX...
AE LOGO FIZ ISSO
procedure TFRMPROCURARCART.FormCreate(Sender: TObject);
begin
comboBox1.Items.Add('NMPESSOA');
comboBox1.Items.Add('NMRUA');
O COMBOBOX RECEBE OS CAMPOS DA TABELA EM QUE QUERO BUSCAR.
AE VAMOS PARA O CODIGO Q TA DANDO P PROBLEMA
Table1.Filtered := False;
if (edit1.Text <> '') then
Table1.FILTER:=combobox1.Text +QuotedStr(edit1.text + '*')
else
Table1.Filter := '';
Table1.Filtered := True
quando digito no edit da a seguinte msg
filter expression incorrectly termined
AE AGORA JA NAO SEI MAIS ...O Q FAZER...
ALGUEM TEM ALGUMA IDEIA ????
SOU INICIANTE NO DELPHI .. ESTOU FAZENDO UM SIMPLES PROGRAMA DE DELPHI CADASTRO E PESQUISA DE PESSOAS
O CADASTRO TA FUNCIONANDO BLZ ....
A PESQUISA TA PARCIALMENTE FUNCIONANDO...PQ PARCIAMENTE
QUANDO FAÇO O FILTRO NA TABELA E COLOCO O CAMPO QUAL QUERO FAZER O FILTRO ELE FUNCIONA
VEJA O EX:
Table1.Filtered := False;
if (edit1.Text <> '') then
Table1.Filter := 'NMPESSOA=' +QuotedStr(edit1.text + '*')
else
Table1.Filter := '';
Table1.Filtered := True;
NO CODIGO ACIMA PROCURO O NOME DA PESSOA .. QUANDO DIGITO NO EDIT.... ATE ENTAO TA "SUSSA"
SUSSA = A TRANQUILO
POIS BEM
IMAGINEI SE EU COLOCASSE O CAMPO EM QUE QUERO FAZER O FILTRO NO COMBOBOX...
AE LOGO FIZ ISSO
procedure TFRMPROCURARCART.FormCreate(Sender: TObject);
begin
comboBox1.Items.Add('NMPESSOA');
comboBox1.Items.Add('NMRUA');
O COMBOBOX RECEBE OS CAMPOS DA TABELA EM QUE QUERO BUSCAR.
AE VAMOS PARA O CODIGO Q TA DANDO P PROBLEMA
Table1.Filtered := False;
if (edit1.Text <> '') then
Table1.FILTER:=combobox1.Text +QuotedStr(edit1.text + '*')
else
Table1.Filter := '';
Table1.Filtered := True
quando digito no edit da a seguinte msg
filter expression incorrectly termined
AE AGORA JA NAO SEI MAIS ...O Q FAZER...
ALGUEM TEM ALGUMA IDEIA ????
Fabio Oliveira......
Curtidas 0
Respostas
Carlos Bernardo
16/10/2010
Opa blz.. Acho q ta faltando o sinal de igual
Tenta assim:
Table1.Filtered := False;
if (edit1.Text <> '') then
Table1.FILTER:=combobox1.Text +' = ' +QuotedStr(edit1.text + '*')
else
Table1.Filter := '';
Table1.Filtered := True
if (edit1.Text <> '') then
Table1.FILTER:=combobox1.Text +' = ' +QuotedStr(edit1.text + '*')
else
Table1.Filter := '';
Table1.Filtered := True
GOSTEI 0
Fabio Oliveira......
16/10/2010
obrigadaooo, cara
deu certo ....
mas qual e a função do igual???
deu certo ....
mas qual e a função do igual???
GOSTEI 0
Eriley Barbosa
16/10/2010
Ao invés do = não seria assim:
Table1.Filtered := False;
if (edit1.Text <> '') then
begin Table1.Filter := combobox1.Text + ' like ' + QuotedStr(edit1.text + '*'); Table1.Filtered := True;
end; Like é para busca aproximada e igual, bom seria para buscar igual ao que foi digitado no edit1 na propriedade text.
if (edit1.Text <> '') then
begin Table1.Filter := combobox1.Text + ' like ' + QuotedStr(edit1.text + '*'); Table1.Filtered := True;
end; Like é para busca aproximada e igual, bom seria para buscar igual ao que foi digitado no edit1 na propriedade text.
GOSTEI 0
Fabio Oliveira......
16/10/2010
no caso usando o like nao deu da erro na operação
GOSTEI 0