Dim tran As SqlTransaction
Try
If cn.State = ConnectionState.Closed Then cn.Open()
tran = cn.BeginTransaction
Dim cmdDeleteUserActions As New SqlCommand("DELETE FROM UserActionDetails WHERE UserId = " & UserID, cn,tran)
updateUserActionDetails = cmdDeleteUserActions.ExecuteNonQuery()
Dim daUpdateUserActions As New SqlDataAdapter("SELECT * FROM UserActionDetails", cn)
Dim cmdBuilder As New SqlCommandBuilder(daUpdateUserActions)
Dim ds As New DataSet
daUpdateUserActions.Fill(ds, "UserActionDetails")
Dim dRow As DataRow
Dim rowNo As Int16 = 0
While rowNo < al.Count
dRow = ds.Tables("UserActionDetails").NewRow
dRow(0) = UserID
dRow(1) = al.Item(rowNo)
dRow(2) = 1
ds.Tables("UserActionDetails").Rows.Add(dRow)
rowNo += 1
End While
daUpdateUserActions.Update(ds, "UserActionDetails")
tran.Commit()
cmdDeleteUserActions.Dispose()
cn.Close()
Catch ex As Exception
tran.Rollback()
strEx = ex.Message
Finally
cn.Close()
End Try
End Function
|