Caros, sou novo aqui e também sou novo com a ferramenta Delphi. Estou com um pequeno projeto que está dando erro quando vou salvar uma alteração de cadastro. Estou utilizando os componentes do Interbase e os DBControl's. Segue abaixo a parte que está dando erro.
Question
Guest - Júnior -
Boa Tarde!
Caros, sou novo aqui e também sou novo com a ferramenta Delphi. Estou com um pequeno projeto que está dando erro quando vou salvar uma alteração de cadastro. Estou utilizando os componentes do Interbase e os DBControl's. Segue abaixo a parte que está dando erro.
If x = 0 then //Cadastro Novo
Begin
Qry_CadastroCOD.Value := Qry_Consulta.RecordCount + 1;
Qry_CadastroPDV.AsString := CbPdvs.Text;
ShowMessage ('O código do chamado é: ' + Qry_CadastroCOD.Text);
Qry_CadastroDTABERTURA.Value := DtAbertura.Date;
Qry_Cadastro.ApplyUpdates;
Transacao_Cadastro.Commit;
Qry_Consulta.Close;
Qry_Consulta.Open;
Qry_Cadastro.Close;
Qry_Cadastro.Open;
Qry_Cadastro.Active:=False;
End Else
Begin //Alteração de Cadastro
Qry_CadastroDTCONCLUSAO.Value := DtConclusao.Date;
Qry_Cadastro.ApplyUpdates; //Quando vai executar essa linha está dando erro, abaixo vai a mensagem do erro.
Transacao_Cadastro.Commit;
Qry_Consulta.Close;
Qry_Consulta.Open;
Qry_Cadastro.Close;
Qry_Cadastro.Open;
Qry_Cadastro.Active:=False;
End;
MENSAGEM DE ERRO
Projetct IBM.exe raised excepeption class EIBClientError with message "Update Failed". Process stopped. Use Step or Run continue.
Caso alguém possa me ajudar, desde já agradeço.
Júnior
Link to comment
Share on other sites
2 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.