Fórum Acentos no Firebird - Erro de gravação #378413

Olá amigo,

  Teria como mandar o banco de dados e uma aplicação de teste ? Pois tudo que você falou é a mesma forma que faço quando utilizo o FB, fica mais fácil analisando ok ?

Um abraço

Wesley Y

Oi, Amigo Wesley Y.

Eu de novo! Como vai? Como disse antes, sou iniciante, rsrs. Enviei parte da aplicação, como você pediu. Está disponível em http://video.devmedia.com.br/discovirtual/198119/TesteAplicacao/TesteAplicacao-2.rar. Um abraço, e, desde já, obrigado.

Olá amigo,

   Vendo aqui seu sistema, no meu Firebird, funcionou sem problemas, na hora de colocar o banco de dados eu fiz exatamente como você falou, usuário senha, servidor, faça um teste, crie uma nova aplicação e um novo banco, apenas com um campo, descricao varchar(20). E teste os acentos para ver se funciona, caso não funcione vemos outra solução ok ?

Att,

Wesley Y

Olá, Wesley Y.
Considerando o fato de que a aplicação funcionou normalmente em seu FireBird, eu desinstalei e reinstalei o Firebird (Firebird-1.5.2.4731-Win32) em meu computador. Fiz o mesmo com o Delphi 7. Infelizmente, isto não resolveu o problema do erro Project Teste.exe raised exception class EDatabaseError with message 'arithmetic exception, numeric overflow, or string truncation Cannot transliterate character between character sets '. Process stoped.
Então, fiz uma nova aplicação, utilizando o mesmo banco de dados, tudo do mesmo jeito, e, neste caso, não deu erro.   Voltando a aplicação anterior, estava usando em SQLQuery1, SQL=SELECT * FROM REGNAS; Mas, a tabela pussui +- 75.000 registros e, ao mudar para SELECT * FROM REGNAS WHERE NUMERO = :NUMERO (Mudei SQLQuery1.Params[0]->DataType=ftInteger e ParamType=ptImput), deu erro no momento de abrir o ClientDataSet (dm.ClientDataSet1.Open). O erro foi ‘(…) raised exception class EAccessViolation with message 'Access violation at address 004023D2 in module…   Então, fiz uma nova aplicação aplicando o novo conceito e, não deu erro.   O problema é que não faz sentido eu refazer a aplicação cada vez que der um erro! Preciso resolver o problema na própria aplicação, que continua com os erros.
Eu devo estar fazendo alguma coisa errada em tempo de desenvolvimento. Por exemplo, manter  SQLConnection, Connected=True provoca este tipo de erro? O que você sugere que eu faça para evitar este tipo de situação?

Um abraço,   Francisco Rodrigues

Olá amigo,
Desculpe a demora. Vamos por parte

Voltando a aplicação anterior, estava usando em SQLQuery1, SQL=SELECT * FROM REGNAS; Mas, a tabela pussui +- 75.000 registros e, ao mudar para SELECT * FROM REGNAS WHERE NUMERO = :NUMERO (Mudei SQLQuery1.Params[0]->DataType=ftInteger e ParamType=ptImput), deu erro no momento de abrir o ClientDataSet (dm.ClientDataSet1.Open). O erro foi ‘(…) raised exception class EAccessViolation with message 'Access violation at address 004023D2 in module…

Access violation, so acontece quando um objeto que não esta criado ou já foi destruído esta sendo acessado. Veja se o seu DataModule, esta criado antes de utilizar o ClientDataSet.



Quanto ao erro de funciona em uma nova aplicação e não na antiga, você pode adicionar os formulários nesta nova aplicação um de cada vez, e ir testando, mas acho que você esqueceu ou fez algo na nova aplicação que não fez na velha. Tente adicionar um form por vez, e ir testante, primeiro comece pelo datamodule, depois pelos demais.

Já tive problemas com o ClientDataSet, coisas inesplicáveis, já apaguei uma vez, e coloquei um novo, e funcionou, tente fazer a mesma coisa, de repente funciona, faça o mesmo com o seu SQLConnection. OK?

Um abraço

Wesley Y  

Olá, Wesley.
Compilei o programa no Delphi 2007 e os erros foram corrigidos.
Um abraço.
Francisco Rodrigues

Blz amigo.

Um abraço, até o próximo.

Wesley Y