Visual Basic

<br />
	Public Function UpdateFieldErrors(ByRef conn As SqlConnection, ByRef dt As DataTable) As Integer<br />
<br />
		'counter of the number of records updated<br />
		Dim counter As Integer = 0<br />
		Dim corrected_fl As String<br />
		Dim trans As SqlClient.SqlTransaction<br />
<br />
		'submit all the corrected values and the comments to the database<br />
		For Each row As DataRow In dt.Rows<br />
			'ensure that the columns that were not corrected were not submitted<br />
			Try<br />
				'only require a transaction that will allow all to rollback if required<br />
				'since there is a lock on the image other users updating or querying<br />
				'the data is of no concern<br />
				trans = conn.BeginTransaction(IsolationLevel.ReadCommitted)<br />
<br />
				Dim cmd As New SqlCommand("dbo.mySproc", conn)<br />
				cmd.CommandType = CommandType.StoredProcedure<br />
				cmd.Parameters.Add("@err_id", row.Item("err_id"))<br />
				cmd.Parameters.Add("@new_value", row.Item("new_value"))<br />
				cmd.Parameters.Add("@comments", row.Item("comments"))<br />
<br />
				'only set the error to corrected if there is user input in the newvalue field<br />
				If row.Item("new_value") = "" Or row.Item("new_value") Is DBNull.Value Then<br />
					cmd.Parameters.Add("@corrected_fl", "N")<br />
				Else<br />
					cmd.Parameters.Add("@corrected_fl", "Y")<br />
				End If<br />
<br />
				cmd.ExecuteNonQuery()<br />
<br />
				'update the answer string containing all the students answers<br />
				DbAnswerUpdate.UpdateAnswerString(conn, row)<br />
				trans.Commit()<br />
<br />
				counter += 1<br />
			Catch ex As Exception<br />
				trans.Rollback()<br />
				MessageBox.Show("Exception occured when inserting one of the updated rows.")<br />
			End Try<br />
		Next<br />
<br />
		dt.AcceptChanges()<br />
<br />
		Return counter<br />
<br />
	End Function<br />