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 

Como validar o último registro de uma variável [Resolvido]

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


Registrado: Sexta-Feira, 24 de Janeiro de 2014
Mensagens: 12

MensagemEnviada: Sex Jan 24, 2014 4:36 pm    Assunto: Como validar o último registro de uma variável [Resolvido] Responder com Citação

Olá pessoal sou novo no mundo delphi tenho uma dúvida, como verifico o último registro contido em uma variável e comparo com o novo registro?
EXP.:

Código:
procedure TFTeste.tAtualizarTempos(Sender: TObject);
var a: integer;
begin

  tAtualiza.Close;
  tAtualiza.CommandText := ' Select blablabla'
  tAtualiza.Open;

  a := tAtualiza.RecordCount;

end;


Nâo sei se he a melhor forma, mas o exep. a cima estará contido em um TIMER e se executara de 10 em 10 mim por exep. verificando o banco, gostaria que quando a variável A trocasse de valor uma ação fosse lançada.

Agradeço.


Editado pela última vez por MaiconDutra em Ter Jan 28, 2014 4:22 pm, num total de 1 vez
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: Sex Jan 24, 2014 5:52 pm    Assunto: Responder com Citação

Armazene o valor em um record e dentro do procedimento que vai trazer o novo valor você verifica if (talcoisa = valornorecord) then blablabla
_________________
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
MaiconDutra
Novato
Novato


Registrado: Sexta-Feira, 24 de Janeiro de 2014
Mensagens: 12

MensagemEnviada: Ter Jan 28, 2014 7:30 am    Assunto: Responder com Citação

viox escreveu:
Armazene o valor em um record e dentro do procedimento que vai trazer o novo valor você verifica if (talcoisa = valornorecord) then blablabla


Brigado pela atenção, teria como mostrar um exemplo não conheço muito de record, agradeço. Tentei usar record com ponteiro mais não tive sucesso.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
joemil
Moderador
Moderador


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

MensagemEnviada: Ter Jan 28, 2014 7:36 am    Assunto: Responder com Citação

eu nao entendi mto bem oq vc quer fazer.

pegar o valor do ultimo registro? valor de quem? da PK? de qq outro campo?

no MySQL, podemos fazer assim pra pegar o ultimo registro:

Código:
SELECT * FROM tabela ORDER BY campo_FK DESC LIMIT 1

_________________
<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
MaiconDutra
Novato
Novato


Registrado: Sexta-Feira, 24 de Janeiro de 2014
Mensagens: 12

MensagemEnviada: Ter Jan 28, 2014 8:05 am    Assunto: Responder com Citação

joemil escreveu:
eu nao entendi mto bem oq vc quer fazer.

pegar o valor do ultimo registro? valor de quem? da PK? de qq outro campo?

no MySQL, podemos fazer assim pra pegar o ultimo registro:

Código:
SELECT * FROM tabela ORDER BY campo_FK DESC LIMIT 1


Obrigado pela atenção.

Opa, Vamos ver se eu explico melhor Smile eu tenho um Select contido em um CommandText este Select de 10 em 10 segundos se conecta ao banco me fornecendo um valor, de quantos registros tem em uma tabela um exemplo:

procedure TFTeste.tAtualizarTempos(Sender: TObject);
var a: integer;
begin

tAtualiza.Close;
tAtualiza.CommandText := ' Select Codigo from unidadenegocio'
tAtualiza.Open;

a := tAtualiza.RecordCount; // a := recebe a quantidade total de registros contidos na coluna código no meu caso 87, só que em um determinado momento o CommandText se conectará ao banco mudando o valor de (a) e vai me trazer 88, neste momento eu quero disparar uma Ação, informando ao usuário que agora ele possui 88 registros e não mais 87.


end;

Espero ter me expressado melhor Smile
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
AndersonWorkInfo
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 14 de Outubro de 2013
Mensagens: 222
Localização: Belém - Pará

MensagemEnviada: Ter Jan 28, 2014 3:00 pm    Assunto: Re: Como validar o último registro de uma variável Responder com Citação

MaiconDutra,

Respondi no meu blog porque é uma pergunta comum, então dá uma olhada aqui nesse link.

http://andersonworkinfo.wordpress.com/2014/01/28/verificando-quantidade-base-de-dados/

Espero ter ajudado.


MaiconDutra escreveu:
Olá pessoal sou novo no mundo delphi tenho uma dúvida, como verifico o último registro contido em uma variável e comparo com o novo registro?
EXP.:

Código:
procedure TFTeste.tAtualizarTempos(Sender: TObject);
var a: integer;
begin

  tAtualiza.Close;
  tAtualiza.CommandText := ' Select blablabla'
  tAtualiza.Open;

  a := tAtualiza.RecordCount;

end;


Nâo sei se he a melhor forma, mas o exep. a cima estará contido em um TIMER e se executara de 10 em 10 mim por exep. verificando o banco, gostaria que quando a variável A trocasse de valor uma ação fosse lançada.

Agradeço.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário MSN Messenger
MaiconDutra
Novato
Novato


Registrado: Sexta-Feira, 24 de Janeiro de 2014
Mensagens: 12

MensagemEnviada: Ter Jan 28, 2014 4:25 pm    Assunto: Responder com Citação

Valwww fera isso mesmo que eu precisava Abrass a todos pela atenção brigadão o blog já está nos favoritos Smile
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
AndersonWorkInfo
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 14 de Outubro de 2013
Mensagens: 222
Localização: Belém - Pará

MensagemEnviada: Ter Jan 28, 2014 6:42 pm    Assunto: Valeu Ai... Responder com Citação

Valeu ai cara... precisando pergunta que agente ajuda.

Abraço.

MaiconDutra escreveu:
Valwww fera isso mesmo que eu precisava Abrass a todos pela atenção brigadão o blog já está nos favoritos Smile
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário MSN Messenger
joemil
Moderador
Moderador


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

MensagemEnviada: Qua Jan 29, 2014 7:20 am    Assunto: Responder com Citação

se é so pra saber qtos registros tem, pode-se fazer assim:

Código:
SELECT COUNT(campo) AS qtde FROM tabela

_________________
<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
AndersonWorkInfo
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 14 de Outubro de 2013
Mensagens: 222
Localização: Belém - Pará

MensagemEnviada: Qua Jan 29, 2014 12:26 pm    Assunto: Responder com Citação

Sim, verdade... mais uma opção.

joemil escreveu:
se é so pra saber qtos registros tem, pode-se fazer assim:

Código:
SELECT COUNT(campo) AS qtde FROM tabela
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário MSN Messenger
joemil
Moderador
Moderador


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

MensagemEnviada: Qui Jan 30, 2014 8:57 am    Assunto: Responder com Citação

se vc usar assim:

SELECT campo FROM tabela

e depois

Query.RecordCount

tb funciona, mas imagina se sua tabela tiver 100.000 registros ou mais?

melhor usar as funcoes do BD q fica mais rapido a consulta
_________________
<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
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