Erro gravação banco de dados.

[hintz 10]

Preciso de ajuda para um erro muito estranho. Já estou à quase uma semana tentando resolver o problema e não encontrei solução. Fiz muitas pesquisas na internet, mas nada resolveu.

Uso o delphi xe8 com firebird 2.5.9. Estou usando o zeos 7.2.6-stable.

Tenho um cadastro de produtos/itens que de vez em quando quando cadastro produtos, saio da tela de cadastro e o produto some.

Quando vou atualizar a tabela de olho no imposto as vezes atualiza corretamente as vezes atualiza sómente alguns itens. Obs. quando estou atualizando e verifico num

dbgrid, todos eles são atualizados. Se eu sair do programa e entrar novamente, somem praticamente todos..

propriedade do TZConnection:

AutoCommit = true

Protocol = firebird-2.5

TransactIsolationLevel = tiRepeatableRead  - já usei o tiReadUncommitted e também não funcionou.

Na TZQuery no Evento AfterPost:
begin
   qItem.ApplyUpdates;
   qItem.CommitUpdates;

end;

Achei que era o Zeos e troquei para o Firedac.

Aconteceu o mesmo problema.

Achei que era o arquivo de dados corrompido:

Criei um novo banco de dados e copiei as informações:

O problema persiste.

Alguem teria alguma ajuda???

Att. Hintz

 

[hintz 10]

7 minutos atrás, hintz disse:

Preciso de ajuda para um erro muito estranho. Já estou à quase uma semana tentando resolver o problema e não encontrei solução. Fiz muitas pesquisas na internet, mas nada resolveu.

Uso o delphi xe8 com firebird 2.5.9. Estou usando o zeos 7.2.6-stable.

Tenho um cadastro de produtos/itens que de vez em quando quando cadastro produtos, saio da tela de cadastro e o produto some.

Quando vou atualizar a tabela de olho no imposto as vezes atualiza corretamente as vezes atualiza sómente alguns itens. Obs. quando estou atualizando e verifico num

dbgrid, todos eles são atualizados. Se eu sair do programa e entrar novamente, somem praticamente todos..

propriedade do TZConnection:

AutoCommit = true

Protocol = firebird-2.5

TransactIsolationLevel = tiRepeatableRead  - já usei o tiReadUncommitted e também não funcionou.

Na TZQuery no Evento AfterPost:
begin
   qItem.ApplyUpdates;
   qItem.CommitUpdates;

end;

Achei que era o Zeos e troquei para o Firedac.

Aconteceu o mesmo problema.

Achei que era o arquivo de dados corrompido:

Criei um novo banco de dados e copiei as informações:

O problema persiste.

Alguem teria alguma ajuda???

Att. Hintz

 

Obs. Utilizo o comando append e post para gravar um item novo e o comando Edit e Post para atualizar a tabela de olho no imposto.