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