Выход форматирования данных чтения

Question

Я использую следующую функцию для создания списка пользователей, подключенных к выбранной базе данных. Как я могу изменить это на одну строку для нескольких одинаковых результатов? Например: «sa (3) - MYCOMPUTER», а не «sa - MYCOMPUTER» три раза?

Function ConnectedUsers(ByVal SelectedDatabase As String, ByVal SelectedInstance As String) 
    Dim myCommand As SqlCommand 
    Dim dr As SqlDataReader 
    Dim mystring As String = String.Empty 
    Try 
     Dim myConn As New SqlConnection(ConnectionString) 
     myConn.Open() 
     myCommand = New SqlCommand("select loginame,hostname from sysprocesses where db_name(dbid) = '" & SelectedDatabase & ";", myConn) 
     dr = myCommand.ExecuteReader() 
     While dr.Read() 
         mystring += GetFullName(dr(0).ToString().Trim()) & " - " & dr(1).Trim() & vbCrLf 
     End While 
     dr.Close() 
     myConn.Close() 
    Catch e As Exception 
     MessageBox.Show(e.Message) 
    End Try 
    Return mystring 
End Function 

Thanks.

Answer 1

SQL-команды должны быть

select loginame, count(*) as Nbr, hostname from sysprocesses where db_name(dbid) = '" & SelectedDatabase & "' group by loginame;" 

и вы должны изменить дисплей для отображения счетчика (НБР в этом примере), чтобы быть что-то вроде:

mystring += GetFullName(dr(0).ToString().Trim()) & "(" & dr(1).Trim() & ") - " & dr(2).Trim() & vbCrLf