• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 240
  • Last Modified:

Displaying all rows in vb .net from sqll query

I have a aspx pages that will restore a database when all the fields are populate by the Admin user. The first thing it does is check to see if there's any open connections. If there is let the admin user know by displaying all loginname via a label text box. However, I'm only able to get it to display the first row and only the first row. I wrote a store procedure that will query the master table in the database the Admin user is attempting to restore. What can I do this display all loginames? Any help is appreciated. Thanks

Here is the code that I'm using:


Private Sub CheckLiveConnections()
        Try
            'Define database connection
            myconnection = New SqlClient.SqlConnection("server=" & DropDownList1.SelectedItem.Value & ";user=xxxx; password=xxxx;database = ADMIN")
 
            myconnection.Open()
 
            Dim OpenConnections As New SqlClient.SqlCommand("EXEC GetConnections '" & DropDownList2.SelectedValue & "'", myconnection)
 
            'Call the sproc...
            Dim reader As SqlClient.SqlDataReader = OpenConnections.ExecuteReader()
 
            If reader.Read() Then
                Label9.Text = reader.Item(0)
            End If
 
        Catch ex As System.Exception
            Label9.Text = ex.Message
        End Try
 
    End Sub

Open in new window

0
redouard
Asked:
redouard
  • 2
1 Solution
 
Guy Hengel [angelIII / a3]Billing EngineerCommented:
>What can I do this display all loginames?
you need 2 things:
* an idea about how you want to display it (GUI)
* use a while reader.Read() instead of a if reader.Read() to loop through the records...
0
 
yossi_intlockCommented:
as angel said - this will do the job..
Private Sub CheckLiveConnections()
        Try
            'Define database connection
            myconnection = New SqlClient.SqlConnection("server=" & DropDownList1.SelectedItem.Value & ";user=xxxx; password=xxxx;database = ADMIN")
 
            myconnection.Open()
 
            Dim OpenConnections As New SqlClient.SqlCommand("EXEC GetConnections '" & DropDownList2.SelectedValue & "'", myconnection)
 
            'Call the sproc...
            Dim reader As SqlClient.SqlDataReader = OpenConnections.ExecuteReader()
 
            While reader.Read()
                Label9.Text += reader.Item(0) + "<BR/>"
            End While
 
        Catch ex As System.Exception
            Label9.Text = ex.Message
        End Try
 
    End Sub

Open in new window

0
 
Guy Hengel [angelIII / a3]Billing EngineerCommented:
after reflection... you might want to use a listbox instead of a textbox, and show each item in a dedicated row of output... depends how you want to display the data...
0

Featured Post

Configuration Guide and Best Practices

Read the guide to learn how to orchestrate Data ONTAP, create application-consistent backups and enable fast recovery from NetApp storage snapshots. Version 9.5 also contains performance and scalability enhancements to meet the needs of the largest enterprise environments.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now