I used for loop, but only the field value from last row of RoleUsers table is selected in the checkboxlist.
Here is my code
Expand|Select|Wrap|Line Numbers
- Private Sub DisplayRoleUser()
- Dim conn As SqlConnection
- Dim cmd As SqlCommand
- Dim drDataReader As SqlDataReader
- Dim dtDataTable As New DataTable
- conn = New SqlConnection("Data Source=(local);Initial Catalog=BHPTrackingSystem;User ID=sa;Password=Safetec2011")
- conn.Open()
- cmd = New SqlCommand("SELECT UserID ,RoleID FROM RoleUsers WHERE RoleID=@RID ", conn)
- cmd.Parameters.Add("@RID", SqlDbType.Int)
- cmd.Parameters("@RID").Value = lstRole.SelectedValue
- drDataReader = cmd.ExecuteReader()
- dtDataTable.Load(drDataReader)
- Dim i As Integer
- If dtDataTable.Rows.Count > 0 Then
- For i = 0 To dtDataTable.Rows.Count - 1
- chkUser.SelectedValue = dtDataTable.Rows(i).Item("UserID")
- Next
- End If
- cmd.Dispose()
- conn.Close()