problema con delphi7,firebird 1.5 y dbxpress
Saludos a todos, vereis tengo una pequeña aplicacion y no consigo guardar los datos en la bd. Se guardan correctamente pero cuando cierro la aplicacion se pierden los cambios. Este es el codigo que estoy usando:
dm.SQLConnection1.StartTransaction(a);
try
dm.CdsLib.Append;
dm.CdsLib.FieldByName('Titular').AsString:=EdTitular.Text;
dm.CdsLib.FieldByName('Descripcion').AsString:=EdDesc.Text;
dm.CdsLib.FieldByName('Codigo').AsInteger:=StrToInt(EdCod.Text);
dm.CdsLib.FieldByName('numapuntes').AsInteger:=StrToInt(EdApuntes.Text);
dm.CdsLib.FieldByName('saldo').AsInteger:=StrToInt(EdSaldo.Text);
dm.CdsLib.Post;
dm.CdsLib.ApplyUpdates(0);
dm.SQLConnection1.Commit(a);
except
dm.SQLConnection1.Rollback(a);
Raise Exception.Create('Error al guardar los datos');
end;
Tengo linkado un sqlquery, el datasetprovider,clientdataset y datasource, ¿alguno tiene idea de pq no consigo guardar los datos? la verdad el codigo esta bien y no se donde puede estar el error, salvo que sea una incompatibilidad entre firebird 1.5 y los dbxpress, gracias
|