asked on
myTransaction = SQLConn.BeginTransaction(IsolationLevel.ReadUncommitted)
Dim sql As String = "Execute dbo.insertCancelInvoicePlan @InvoiceHeaderID, @PFCustomerOrderNumber"
Using comm As New SqlCommand(sql, SQLConn)
comm.CommandTimeout = 300
comm.Transaction = myTransaction
For Each InvoiceHeaderID As Integer In InvoiceHeaderIDList
Dim CustomerOrderNumber As String = GetRandomPO(8)
While True
' next line does a select against a table that is used in this transaction
If IsNewCustomerPO(CustomerOrderNumber) = True Then
Exit While
End If
CustomerOrderNumber = GetRandomPO(8)
End While
comm.Parameters.AddWithValue("@InvoiceHeaderID", InvoiceHeaderID)
comm.Parameters.AddWithValue("@PFCustomerOrderNumber", CustomerOrderNumber)
comm.ExecuteNonQuery()
comm.Parameters.Clear()
Next
End Using