Public Shared Function GetUsernames() As Object Dim cmdUsernames As SqlCommand = New SqlCommand("crc_GetUsernameForAccountNoChangesMadeReport", CType(GetConnection(), SqlConnection)) Dim user As String cmdUsernames.CommandType = CommandType.StoredProcedure With cmdUsernames .Connection.Open() Dim results As New List(Of Usernames)() Using reader As SqlDataReader = .ExecuteReader() While reader.Read() user = reader.GetString(0) Dim item As New Usernames() With {.Name = user} results.Add(item) End While reader.Close() .Connection.Close() Return results End Using End With End Function
Private Sub frmAcctNoChgsMadeFilters_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Users As List(Of Usernames) = GetUsernames() cboUsername.DataSource = Users cboUsername.ValueMember = "Name" cboUsername.DisplayMember = "Name" End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)