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 

(Resolvido)contar e somar numero registo

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


Registrado: Domingo, 16 de Janeiro de 2005
Mensagens: 135
Localização: lisboa

MensagemEnviada: Sáb Jun 19, 2010 4:33 pm    Assunto: (Resolvido)contar e somar numero registo Responder com Citação

Como poderei autonumerar os campos a partir de um valor dador conforme vou dando append ou insert em um registo!!!!!!!

queria dar por exemplo o numero 100 para o registo X do cliente e sempre que vou inserir novo registo gostava que ele pega-se o Ultimo registo e soma-se mais 1??

alguem tem uma dica


Obrigado


Editado pela última vez por mflopes em Dom Jun 20, 2010 6:58 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

MensagemEnviada: Sáb Jun 19, 2010 5:57 pm    Assunto: Re: contar e somar numero registo Responder com Citação

mflopes escreveu:
Como poderei autonumerar os campos a partir de um valor dador conforme vou dando append ou insert em um registo!!!!!!!

queria dar por exemplo o numero 100 para o registo X do cliente e sempre que vou inserir novo registo gostava que ele pega-se o Ultimo registo e soma-se mais 1??

alguem tem uma dica


Obrigado
Que banco vc usa? Aqui no forum tem varios exemplos (posts) mostrando.

Qualquer coisa faça uma busca por AUTOINCREMENTO.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
coderfenrir
Aprendiz
Aprendiz


Registrado: Sexta-Feira, 7 de Mai de 2010
Mensagens: 172

MensagemEnviada: Sáb Jun 19, 2010 6:21 pm    Assunto: Responder com Citação

se nao for autoincremento que com ctza nao é ...

pegue o valor do ultimo da tabela e jogue em uma variavel ..

ex :
Código:

var
numreg : String;
begin
   numreg := adoquery.fieldbyname('nomedocampo').asString; // ou
   //numreg := adotable1nomedocampo.value;
   edit1.text := numreg + 1;
end;


Acho que e isso
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
pestana
Colaborador
Colaborador


Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP

MensagemEnviada: Sáb Jun 19, 2010 6:38 pm    Assunto: Responder com Citação

mflopes, qual é o banco de dados que você esta utilizando?

você quer acrescentar este valor na chave primária da tabela? é um autoincremento para o campo da chave?
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
mflopes
Aprendiz
Aprendiz


Registrado: Domingo, 16 de Janeiro de 2005
Mensagens: 135
Localização: lisboa

MensagemEnviada: Sáb Jun 19, 2010 8:50 pm    Assunto: Responder com Citação

Banco Access pelo Ado. não autoincremetado ja que ele existe na Tabela.
Queria ficar com uma numeração seguida das vezes que fiz um relatorio para o cliente X e por ai em diante.


Obrigado
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
pestana
Colaborador
Colaborador


Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP

MensagemEnviada: Dom Jun 20, 2010 12:38 pm    Assunto: Responder com Citação

E se você fazer um select na tabela para pegar o maior valor e depois incrementava + 1.

mais ou menos isso:
Código:
var
   valor : integer;
begin
   query.close;
   query.sql.add('select max(campo) from tabela');
   query.open;
   if not query.isEmpty then
     valor := query.fields[0].AsInteger + 1;
end;

_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
mflopes
Aprendiz
Aprendiz


Registrado: Domingo, 16 de Janeiro de 2005
Mensagens: 135
Localização: lisboa

MensagemEnviada: Dom Jun 20, 2010 6:58 pm    Assunto: Responder com Citação

Brigado
já tinha conseguido efectuar da seguinte maneira.
Quando abro o cliente guardo o ultimo registo na Variavel NRelatorio e quando necessito inserir novo registo busco ela.


Sub_TRelFinal.FieldByName('NRelatorio').AsInteger :=numeroReg+1 ;
Sub_TRelFinal.Post;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
pestana
Colaborador
Colaborador


Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP

MensagemEnviada: Seg Jun 21, 2010 11:55 am    Assunto: Responder com Citação

Ok, qualquer coisa volte a postar!


Boa Sorte!
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso.
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