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 

Tela de Pesquisa - Resultado Vazio

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


Registrado: Segunda-Feira, 15 de Abril de 2013
Mensagens: 175

MensagemEnviada: Ter Mar 03, 2015 8:41 am    Assunto: Tela de Pesquisa - Resultado Vazio Responder com Citação

Bom dia, Pessoal

Tenho a seguinte situação:

Existe uma tela de pesquisa de pessoas para que essa tela retorne os campos preenchidos em uma anterior. Acontece que se o resultado dessa pesquisa for vazio e eu selecionar no grid esse resultado vazio, o sistema retorna o erro:

Código:
Could not convert variant of type (Null) into type (OleStr)


Como faço para que quando for vazio ele não faça nada ?

Já tentei o código abaixo e não funcionou.

Código:
if (frmPesquisaPessoa.ModalResult = mrOk) and not(dmDados.cdsPesquisaPessoa.IsEmpty) then


Alguém pode ajudar ?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
viox
Colaborador
Colaborador


Registrado: Sábado, 22 de Outubro de 2011
Mensagens: 1090
Localização: SINOP - MT

MensagemEnviada: Qui Mar 05, 2015 10:15 am    Assunto: Responder com Citação

Seu grid ou query deve ter algum método e ou evento que está fazendo alguma manipulação. Poe breakpoint nos eventos e verifique aonde para quando da a exceção
_________________
Just another Delphi guy.


http://www.soft42.com
http://www.nortaonegocios.com.br
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail Visitar a homepage do Usuário MSN Messenger
joemil
Moderador
Moderador


Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 8954
Localização: Sinop-MT

MensagemEnviada: Qui Mar 05, 2015 11:39 am    Assunto: Responder com Citação

fala viox. vc mora em sinopolis tb?
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
wjuniordias
Profissional
Profissional


Registrado: Sexta-Feira, 16 de Março de 2012
Mensagens: 667

MensagemEnviada: Ter Mar 10, 2015 3:43 pm    Assunto: Re: Tela de Pesquisa - Resultado Vazio Responder com Citação

Teste assim por ex:

Código:

if FormPesq.ShowModal = mrOk then
begin
    if datasetPesq.recordCount > 0 then
    // preencher campos
end;


Tipo, separe as condições testadas no if. Wink
_________________
"O sábio nunca diz tudo o que pensa, mas pensa sempre tudo o que diz." (Aristóteles)
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário MSN Messenger
mikelustosa
Aprendiz
Aprendiz


Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 193

MensagemEnviada: Qui Mar 12, 2015 7:21 am    Assunto: Responder com Citação

Após efetuar a consulta não esqueça de dar open da query.

tente assim:

dmDados.cdsPesquisaPessoa.open;

if dmDados.cdsPesquisaPessoa.IsNull = false then
begin

showmessage('Nenhum registro para exibir');

end else
begin

//sua rotina aqui....

end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
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