Valew Jumper, na pressa eu esqueci esse detalhe.
Em 23/10/07, Jumper <[EMAIL PROTECTED]> escreveu:
>
> Correção:
>
> wint Table1 do
> begin
> Open;
> Filtered := False;
> Filter := 'Nome = ' + QuotedStr(Edit1.Text+'*');
> Filtered := True;
> end;
> //o asterisco vem dentro da função quotedstr;
>
>
> Em 23/10/07, DelphiStar <[EMAIL PROTECTED] <delphistar%40i12.com>>
> escreveu:
> >
> >
> > Jorge,
> > Muito obrigado pela ajuda
> > Meu problema foi resolvido
> > Abraço
> > Ademir
> >
> > ----------------------------------------------------------
> >
> > Ademir,
> >
> > Se vc esta utlizando Table faça o seguinte:
> > wint Table1 do
> > begin
> > Open;
> > Filtered := False;
> > Filter := 'Nome = ' + QuotedStr(Edit1.Text);
> > Filtered := True;
> > end;
> >
> > Se estiver usando TQuery faça assim:
> > with query1 do
> > begin
> > Close;
> > Sql.Clear;
> > Sql.add('select * from cliente where nomecliente like :prNome');
> > Sql.ParambyName('prNome').Value := Edit1.Text+'%';
> > Open;
> > end;
> > end;
> >
> > Blz, espero te lhe ajudado.
> >
> > Em 23/10/07, DelphiStar <[EMAIL PROTECTED]
> > <delphistar%40i12.com><delphistar%
> 40i12.com>>
> > escreveu:
> > >
> > > Boa Tarde a todos
> > > Estou com um problema que não estou conseguindo resolver
> > > Estou usando Delphi 6
> > > e gostaria de saber, como eu faço para consultar parte do nome de um
> > > cliente no cadastro
> > > Estou usando SET FILTER
> > > por exemplo, gostaria de fazer um filtro no cadastrom de clientes
> > > para saber todos os clientes que comecem com AS.
> > > Agradeço desde já
> > > Abraço a todos
> > > Ademir
> > >
> >
> > .
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3965.2992 / 3039.1768
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
