Creating a Transactions

Dim _Connection As DbConnection = Nothing
Dim _Transaction As DbTransaction = Nothing

Try


Dim _DB As Database = DatabaseFactory.CreateDatabase(BL_DBCONNECTION_STRING)
_Connection = _DB.CreateConnection
_Connection.Open()
_Transaction = _Connection.BeginTransaction()

gvPurchasings.PostEditor()



With BLPurchasings
.PurchasingID = Convert.ToInt64(IIf(lblID.Text = String.Empty, 0, lblID.Text))
.VendorID = leVendors.EditValue
.PurchaseDate = dePurchaseDate.EditValue
.VoucherNo = teVoucherNo.EditValue
.Note = meeNote.EditValue
.TotalAmount = Convert.ToDecimal(IIf(Not IsDBNull(gvPurchasings.Columns("Amount")), gvPurchasings.Columns("Amount").SummaryText, 0))
.Discount = seDiscount.EditValue
.TaxAmount = seTaxAmount.EditValue
.TotalPayable = seTotalPayable.EditValue
.CreatedBy = UserID
.UpdatedBy = UserID
.Insert(_DB, _Transaction)
End With


With BLPruchasingsDescription
For i As Integer = 0 To Me.gvPurchasings.RowCount
If Not gvPurchasings.GetRowCellDisplayText(i, gvPurchasings.Columns(0)) = "" Then
.PurchasingID = BLPurchasings.NewPurchasingID
.StockID = Me.gvPurchasings.GetRowCellDisplayText(i, GridColumn1)
.Quantity = Val(Me.gvPurchasings.GetRowCellDisplayText(i, GridColumn4))
.PurchasePrice = Val(Me.gvPurchasings.GetRowCellDisplayText(i, GridColumn22))
.Discount = Val(Me.gvPurchasings.GetRowCellDisplayText(i, GridColumn5))
.Amount = Val(Me.gvPurchasings.GetRowCellDisplayText(i, GridColumn6))
.Insert(_DB, _Transaction)


.StockID = Me.gvPurchasings.GetRowCellDisplayText(i, GridColumn1)
.Amount = Val(Me.gvPurchasings.GetRowCellDisplayText(i, GridColumn4)) * Val(Me.gvPurchasings.GetRowCellDisplayText(i, GridColumn22))
.UpdateStockByPurchasings(_DB, _Transaction)

End If

Next

End With


_Transaction.Commit()

Dim frm As New frmSavedOk
frm.Text = BL_SAVESUCCESS_CONFIRMATION_TITLE
frm.lblTitle.Text = BL_SAVESUCCESS_CONFIRMATION_TITLELABEL
frm.lblDescription.Text = BL_SAVESUCCESS_CONFIRMATION_DESCRIPTIONLABEL
frm.ShowDialog()
Me.ClearFormData()



Catch ex As Exception
_Transaction.Rollback()
MessageError(ex.ToString)
Finally
If _Connection.State = ConnectionState.Open Then
_Connection.Close()
End If

End Try