Interbase6.5 - Não consigo gravar os dados no GDB
Amigos do Fórum!
Estou enfrentando um problema... Quando executo uma rotina para gravar os dados no Interbase via CommitRetaing, o mesmo não funciona. Sempre que tento gravar um novo registro, após a inserção, surge a exceção ´Violation of PrimaryKey...´. Qualquer comentário será bem vindo! Eis o código abaixo, disparado pelo evento OnClick do TButton.
procedure TfrmCadastro.BtnGravarContatoClick(Sender: TObject);
begin
if not (DatamoduleDados.IBTransaction.InTransaction) then
with DatamoduleDados do
begin
IBTransaction.StartTransaction;
IBDataSetContato.Post;
IBDataSetContato.ApplyUpdates;
IBTransaction.CommitRetaining;
end;
end;
Um abraço
Leoback
Estou enfrentando um problema... Quando executo uma rotina para gravar os dados no Interbase via CommitRetaing, o mesmo não funciona. Sempre que tento gravar um novo registro, após a inserção, surge a exceção ´Violation of PrimaryKey...´. Qualquer comentário será bem vindo! Eis o código abaixo, disparado pelo evento OnClick do TButton.
procedure TfrmCadastro.BtnGravarContatoClick(Sender: TObject);
begin
if not (DatamoduleDados.IBTransaction.InTransaction) then
with DatamoduleDados do
begin
IBTransaction.StartTransaction;
IBDataSetContato.Post;
IBDataSetContato.ApplyUpdates;
IBTransaction.CommitRetaining;
end;
end;
Um abraço
Leoback
Leoback
Curtidas 0
Respostas
Rodrigo Curvêllo
06/11/2003
Caro LeoBack.
O erro declarado por vc nada tem a ver com o seu código e sim com a chave primária da tabela, verifique se vc está inserindo alguma lógica no seu código para não repetir a chave(cont:=cont+1).
Um Abraço.
O erro declarado por vc nada tem a ver com o seu código e sim com a chave primária da tabela, verifique se vc está inserindo alguma lógica no seu código para não repetir a chave(cont:=cont+1).
Um Abraço.
GOSTEI 0
Torres Delphi
06/11/2003
Eh isso mesmo, nao tem nada de errado com seu codigo. Utilizo generator para chave primarias com ou sem procedures.
GOSTEI 0