🚀 go-pugleaf

I have a data entry form with one TdADOConnection object and two TdADOQuery
objects, two TDataSource objects, and numerous TEdit fields assoicate with
both data sources.

For my post button, I have code roughly as follows:


void __fastcall TEditForm::OnPost(void)
{
    try
    {
        // Start transaction
        _ADOConnection->BeginTrans();

      // Post
       _ADOQuery1->Post();
       _ADOQuery2->Post();

        // Commit
        _ADOConnection->CommTrans();

       // Close dialog
       ModalResult = mrOk;
    }

    // Error handling
    catch (Exception & objException)
    {
        // Rollback transaction
        _ADOConnection->RollbackTrans();

        // Display Error
        InformationWindows::DisplayError(objException);
    }
}

My problem is as follows:

If an exception is thrown because of a CONSTRAINT error, the error is
displayed. If the user corrects the problem and presses the Post button
again, I get an exception with the following error message:

'ITransaction::Commit() or ITransaction::Abort() was called, and object is
in a Zombie state'.

The only solution I have is as follows:

If an exception is thrown, copy all the current field values, reopen the two
queries, reset the user's values.

Is there a correct (better) way, or is this it???

Regards,

Shane