Atualizar Idade

Question

Senhores(as),Estou usando o c�digo abaixo(que peguei aqui no f�rum) para calcular a Idade em anos e meses de uma pessoa... Ele funciona perfeitamente bem!Mas gostaria de fazer com que num evento(tipo ...

Micheus · Answer

[b:5f636f2347]alexandretavares[/b:5f636f2347], outra alternativa para c�lculo da idade separada por ANO e MES :

var
  mes, ano :integer;
begin
  Mes := MonthsBetween(MonthsBetween(EndOfTheMonth(Date), DMNutricao.TblCadClientesDTNASCIMENTO.AsDateTime);
  Ano := Mes div 12;
  Mes := Mes mod 12;
  DBEdit1.Text := IntToStr(Ano);
  DBEdit3.Text := IntToStr(Mes);
end;

Mas gostaria de fazer com que num evento(tipo click num bot�o) ele calculasse a idade de todos cadastrados no Banco de Dados...

Supondo que o campo que est� vinculado ao seu DBEdit1 seja TblCadClientesIDADE_ANO e ao DBEdit3 TblCadClientesIDADE_MES:

procedure TFrmCadastro.Botton1(Sender: TObject);
var
  Mes, Ano :Integer;
begin
  with DMNutricao do
  begin
    TblCadClientes.First; 
    while TblCadClientes.EOF do
    begin
      Mes := MonthsBetween(MonthsBetween(EndOfTheMonth(Date), TblCadClientesDTNASCIMENTO.AsDateTime);
      Ano := Mes div 12;
      Mes := Mes mod 12;

      TblCadClientes.Edit; 

      TblCadClientesIDADE_ANO.AsInteger := Ano;
      TblCadClientesIDADE_MES.AsInteger := Mes;

      TblCadClientes.Post; 
      TblCadClientes.Next; 
    end;
  end;
end;

Se os campos ANO e MES ficarem em outra tabela, ent�o antes do comando Edit, ela deve ser posicionada e a tabela do exemplo onde s�o utilizados o Edit e Post devem ser substituidos por esta tabela.

[]s

Alexandretavares · Answer

Al�m da sua dica inteligente, gostei tb dessa frase Micheus :
�H� sempre, pelo menos, dois modos de fazer uma mesma coisa. Mesmo que sejam certo e errado� (Eu)

Hoje a noite vou tentar tua dica e se tudo der certo, te envio msg...

Valeu!

Alexandre Tavares

Alexandretavares · Answer

Micheus, o c�digo que vc me passou(logo abaixo) n�o fez nada com o banco de dados... ele simplesmente n�o alterou em nada as idades!
Por exemplo: eu tenho cadastros que tem a data de nascimento preenchida e n�o foram afetados em nada pelo c�digo(n�o foi calculada a idade em Anos e Meses)! Alterei no proprio BD a data de nascimento de alguns registros e tb n�o fez nada...
Esqueci de te dizer que estou usando ADO(Access)

J� o c�digo anterior que vc me passou, o qual uso no evento OnExit do campo DBEdit6, funcionou perfeitamente bem(inclusive bem mais simples que o c�digo que eu usava antes pra fazer a mesma coisa)

Um abra�o!
...........................................................................................................
procedure TFrmCadastro.Botton1(Sender: TObject);
var
Mes, Ano :Integer;
begin
with DMNutricao do
begin
TblCadClientes.First;
while TblCadClientes.EOF do
begin
Mes := MonthsBetween(MonthsBetween(EndOfTheMonth(Date), TblCadClientesDTNASCIMENTO.AsDateTime);
Ano := Mes div 12;
Mes := Mes mod 12;

TblCadClientes.Edit;

TblCadClientesIDADE_ANO.AsInteger := Ano;
TblCadClientesIDADE_MES.AsInteger := Mes;

TblCadClientes.Post;
TblCadClientes.Next;
end;
end;
end;

Micheus · Answer

[quote:511473210e]Micheus, o c�digo que vc me passou(logo abaixo) n�o fez nada com o banco de dados... ele simplesmente n�o alterou em nada as idades!Por exemplo: eu tenho cadastros que tem a data de nascimento preenchida e n�o foram afetados em nada pelo c�digo(n�o foi calculada a idade em Anos e Meses)! Alterei no proprio BD a data de nascimento de alguns registros e tb n�o fez nada...Esqueci de te dizer que estou usando ADO(Access)[/quote:511473210e] [b:511473210e]exandretavares[/b:511473210e], saber que vc utiliza ADO j� ajuda a melhorar um palpite. Vc poderia informar corretamente, quais componentes e o nome dos dataset�s e campos envolvidos. Como vc deve ter lido em meu post, eu apenas sup�s seus nomes.[quote:511473210e]J� o c�digo anterior que vc me passou, o qual uso no evento OnExit do campo DBEdit6, funcionou perfeitamente bem[/quote:511473210e]por esta afirma��o, vemos que em, termos de c�lculo, a rotida deveria estar correta. Alguma coisa relacionada a tabela sendo alterada � que deve estar gerando este efeito.[]s...

Alexandretavares · Answer

Eu realmente n�o sei o que tentar mais!!!
O que � que pode estar havendo com isso, que aparentemente est� correto, [b:57396c86a6]e est� qdo executo o c�digo no evento OnExit de um Dbedit[/b:57396c86a6], e n�o funciona no Evento OnClick(para que ele atualize todo o BD) ???

Micheus · Answer

[b:42af4fd45f]alexandretavares[/b:42af4fd45f], vc j� acompanhou passo-a-passo(F8 ) a execu��o desta parte do c�digo para confirmar os valores atribuidos nas linhas:
TblCadClientesIDADE_ANO.AsInteger := Ano;
TblCadClientesIDADE_MES.AsInteger := Mes;
Inspecionando seus valores(CTRL+F7) ap�s a atribui��o?

N�o trabalho com ADO, mas d� uma verificada nas configura��es de sua conex�o.
Se vc utiliza TADOConnection, como est�o definidas as propriedades IsolationLevel, Mode, Atributs?

Alexandretavares · Answer

J� acompanhei!...

Micheus · Answer

[quote:9438fe74b8]� acompanhei![/quote:9438fe74b8]E....Os valores s�o atribuidos na depura��o e continuam ap�s o post?Vc talvez n�o precise comitar a transa��o (ADOConnection.CommitTrans)?E quanto aos outros questionamentos:[quote:9438fe74b8]Se vc utiliza TADOConnection, como est�o definidas as propriedades IsolationLevel, Mode, Atributs?[/quote:9438fe74b8]N�o estaria utilizando uma conex�o somente leitura?...

F�rum Atualizar Idade #329780