Fórum DUVIDA COM FILTRO NA TABELA PARADOX #388616

16/10/2010

0

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

Responder

Posts

16/10/2010

Carlos Bernardo

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
Responder

Gostei + 0

17/10/2010

Fabio Oliveira......

obrigadaooo, cara
deu certo ....
mas qual e a função do igual???
Responder

Gostei + 0

18/10/2010

Eriley Barbosa

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.
Responder

Gostei + 0

03/11/2010

Fabio Oliveira......

no caso usando o like nao deu da erro na operação 
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar