| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
pestana
Colaborador
Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP
|
 Enviada: Ter Mar 15, 2022 5:27 pm Assunto: EIBInterBaseError with message invalid transaction handle |
 |
|
Eu estou migrando um sistema antigo desenvolvido em Delphi 7 + IBX + Firebird 2.1.7 W32 para o Delphi 10.4 + IBX + Firebird 2.1.7 W64
Este sistema estava em produção em uma máquina com o Windows XP.
Começou aparecer este erro que antes não existia: | Citação: | | EIBInterBaseError with message 'invalid transaction handle (expecting explicit transaction start) |
e as vezes também aparece este erro: | Citação: | | EIBInterBaseError with message 'Error writing data to the connection.' |
Eu não alterei nada no código fonte. Alguém sabe o porque deste erro?
Estes erros ocorre logo após executar um select simples:
| Código: | with DM.qryPesq do
begin
Close;
SQL.Clear;
SQL.Add('SELECT id_pessoa, senha');
SQL.Add(' FROM usuario');
SQL.Add(' WHERE login = :login');
Params[0].AsString := Trim(edtLogin.Text);
Open;
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 |
|
 |
pestana
Colaborador
Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP
|
| Enviada: Dom Mar 20, 2022 3:55 pm Assunto: |
|
|
Eu descobri que estes erros citado no post acima ocorre depois de registrar eventos com o componente IBEvents, mas não sei qual é o motivo do erro.
depois que o sistema registrou os eventos através desta função:
| Código: | // registrar os eventos no sistema para que as estações sejam atualizadas
procedure TfrmPrincipal.RegistrarEventos;
var
arqEventos: TStringList;
caminho: string;
begin
arqEventos := TStringList.Create;
try
try
caminho := ExtractFilePath(Application.ExeName)+'Eventos.cfg';
if FileExists(caminho) then
begin
arqEventos.LoadFromFile(caminho);
with evEventoAlerta do
begin
UnRegisterEvents;
Events.Text := arqEventos.Text;
RegisterEvents;
end;
end;
except
on e: Exception do
begin
Application.Terminate;
raise Exception.Create(e.Message);
end;
end;
finally
arqEventos.Free;
end;
end; |
ocorre o erro quando é executado o select citado no post acima, se eu não registrar os eventos excluindo a função RegistrarEventos não ocorre o erro.
Alguém poderia me ajudar com este problema?
Obrigado!
_________________
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 |
|
|
pestana
Colaborador
Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP
|
| Enviada: Ter Mar 22, 2022 5:31 pm Assunto: |
|
|
Alguém poderia me ajudar?
_________________
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 |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
