Problemas de Atualização de Registros usando Query
Saudações,
estou com o seguinte problema: Quero ajustar os valores de uma tabela utilizando uma query porém esta só faz a atualização até o segundo registro e não passa pro próximo. Vou explicar melhor:
Tenho uma tabela com os movimentos de alunos do ano de 2005 e preciso ajustar os valores para que batam com um relatório de faturamento. Ex: O mês de janeiro possui 1000 alunos e um valor total de R$ 10.000,00 porém no meu relatório eu tenho R$ 8.000,00. O que eu faço é uso uma query pra me listar da tabela principal apenas o mês 1 e uso um while pra retirar R$ 2,00 de cada aluno ( no código pode ser para mais ou para menos, o fonte é o mesmo). No primeiro registro ele atualiza blz porém ele entra no segundo e não sai mais dele (fica somando ou subtraindo eternamente). Vai o código:
While not eof do
begin
Edit;
Fieldbyname(´Valor´).value := Fieldbyname(´valor´).value - ValCalc (Variável com valor a subtrair ou retirar)
Post;
Next;
end;
Estou usando Delphi 5 Pro, o banco é o MySql 5.0, a paleta de acesso é o MyDAC e o cliente MySql é o MySql Front 2.5. Muito obrigado
estou com o seguinte problema: Quero ajustar os valores de uma tabela utilizando uma query porém esta só faz a atualização até o segundo registro e não passa pro próximo. Vou explicar melhor:
Tenho uma tabela com os movimentos de alunos do ano de 2005 e preciso ajustar os valores para que batam com um relatório de faturamento. Ex: O mês de janeiro possui 1000 alunos e um valor total de R$ 10.000,00 porém no meu relatório eu tenho R$ 8.000,00. O que eu faço é uso uma query pra me listar da tabela principal apenas o mês 1 e uso um while pra retirar R$ 2,00 de cada aluno ( no código pode ser para mais ou para menos, o fonte é o mesmo). No primeiro registro ele atualiza blz porém ele entra no segundo e não sai mais dele (fica somando ou subtraindo eternamente). Vai o código:
While not eof do
begin
Edit;
Fieldbyname(´Valor´).value := Fieldbyname(´valor´).value - ValCalc (Variável com valor a subtrair ou retirar)
Post;
Next;
end;
Estou usando Delphi 5 Pro, o banco é o MySql 5.0, a paleta de acesso é o MyDAC e o cliente MySql é o MySql Front 2.5. Muito obrigado
Zooropa
Curtidas 0
Respostas
Leonardobhbr
18/01/2006
Tipo que eu nao me lembro mais como funciona a query no Delphi 5 pois utilizo Delphi7 tente utilizar duas querys ela deve ta perdendo a referencia quando vc da o post pois nunca vi isso :lol:
GOSTEI 0
Christian_adriano
18/01/2006
Olá colega,
se vc estiver usando TQuery (BDE) vc tem q ´setar´ a propriedade ´RequestLive´ como TRUE.
Espero ter ajudado.
[]´s.
se vc estiver usando TQuery (BDE) vc tem q ´setar´ a propriedade ´RequestLive´ como TRUE.
Espero ter ajudado.
[]´s.
GOSTEI 0