ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

TQUery(PARADOX) com Filter [Resolvido]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
ric_rio2
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 1 de Outubro de 2018
Mensagens: 108

MensagemEnviada: Qui Nov 28, 2019 11:20 am    Assunto: TQUery(PARADOX) com Filter [Resolvido] Responder com Citação

Bom dia..

Estou usando o Delphi 7 com Parados e tentando fazer o seguinte filtro

Código:
1       Qy_Planoc.Filtered:= False;
2       Qy_Planoc.Filter:=  'PlanodeConta  LIKE '+QuotedStr('GEM %');
3       Qy_Planoc.Filtered:= True;


Mas na linha 2 esta me retornando o seguinte erro..
'Operation not Applicable'

Em vários exemplos na net esse tipo de filtro é normal.
algum dos senhores sabe porque não estou conseguindo fazer esse tipo de filtro com like?


Editado pela última vez por ric_rio2 em Qui Nov 28, 2019 2:33 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Qui Nov 28, 2019 11:47 am    Assunto: Responder com Citação

Bom dia,

Não fiz nenhum teste mas acho que com TQuery não funciona mesmo.
De qualquer forma, você pode conseguir esse filtro utilizando código no evento OnFilterRecord da TQuery em vez de utilizar a propriedade Filter.

Espero que ajude


Editado pela última vez por imex em Ter Fev 27, 2024 11:00 am, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
ric_rio2
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 1 de Outubro de 2018
Mensagens: 108

MensagemEnviada: Qui Nov 28, 2019 12:23 pm    Assunto: Responder com Citação

Boa tarde imex..
Também acho que com o TQUERY não irá rolar..
Funciona perfeitamente com o TZQUERY. ( tendo que trocar o coringa % para * )

Eu ate tentei usar o evento OnFilterRecord mas ele não dispara..

Você saberia a forma correta de usa-lo?

Valeu pela atenção Smile
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Qui Nov 28, 2019 12:31 pm    Assunto: Responder com Citação

Boa tarde,

Não dispara? Você mudou a propriedade Filtered para True?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
ric_rio2
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 1 de Outubro de 2018
Mensagens: 108

MensagemEnviada: Qui Nov 28, 2019 2:32 pm    Assunto: Responder com Citação

Boa tarde.. novamente Smile
Então eu esqueci de mencionar que estou usando o oncheng do maskedit..
o negocio era saber como usar o OnFilterRecord..

Ficou do seguinte modo..

No on Change do MaskEdit..:

Código:
Var
    AAA : Boolean;
begin
   Qy_C.Filtered:= False;
   Qy_C.Filtered:= True;
   Qy_C.OnFilterRecord(DataSource_C.DataSet,AAA);



no Evento OnFilterRecord ficou assim..:

Código:
Accept := Pos(Me_Filter_C.Text , Qy_C.FieldByName('campo1').AsString) > 0;


Então ai tudo funcionou.. Smile

Mais uma vez.. obrigado pela atenção imex Smile
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB