DUVIDA COM FILTRO NA TABELA PARADOX

Delphi

16/10/2010

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 ????

Fabio Oliveira......

Fabio Oliveira......

Curtidas 0

Respostas

Carlos Bernardo

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
GOSTEI 0
Fabio Oliveira......

Fabio Oliveira......

16/10/2010

obrigadaooo, cara
deu certo ....
mas qual e a função do igual???
GOSTEI 0
Eriley Barbosa

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.
GOSTEI 0
Fabio Oliveira......

Fabio Oliveira......

16/10/2010

no caso usando o like nao deu da erro na operação 
GOSTEI 0
POSTAR