I have just started using IBObjects again, previously I had been using the IBO_Transaction bar
I am now trying to do multiple inserts in code, but the transaction is obviosuly not commiting.

I can't find anything in the help , or getting started guide ?

Can anyone tell me why the following code does not commit ?



If (IB_Connection1.Connected = True) then
begin
Try

Product_IB_Datasource.Insert;

Product_IB_Query.FieldByName('VENDOR_ID').AsInteger := StrToInt(Product.VendorID);
Product_IB_Query.FieldByName('VENDOR_NAME').AsString := Product.VendorName;
Product_IB_Query.FieldByName('PRODUCT_ID').AsInteger := StrToInt(Product.ProductID);
Product_IB_Query.FieldByName('PRODUCT_NAME').AsString :=Product.Description;
Product_IB_Query.FieldByName('LOW_WATERMARK').AsInteger := Product.LowWaterMark;
Product_IB_Query.FieldByName('FACE_VALUE').AsInteger := Product.FaceValue;
Product_IB_Query.FieldByName('BARCODE').AsString := Product.BarCode;
Product_IB_Query.FieldByName('CURRENCY').AsString := Product.Currency;
Product_IB_Query.FieldByName('ACTIVATION_INSTRUCTION').AsString := Product.ActivationInstructions;
Product_IB_Query.FieldByName('RECEIPT_MESSAGE').AsString := Product.ReceiptMessage;

Product_IB_Query.ApplyUpdates;
Product_IB_Query.CommitUpdates;


except
Product_IB_Query.CancelUpdates;
ShowMessage('Error Cancelling Product Updates');
end;
end ;


Rgds

Peter
Cyionics


[Non-text portions of this message have been removed]