Dim StrConn1 As String
Dim Sql As String
StrConn1 = WebConfigurationManager.ConnectionStrings("conn").ConnectionString
Dim Conn1 As New SqlConnection(StrConn1)
Conn1.Open()
Sql = "SELECT name FROM drug_sale GROUP BY name"
Dim sqlCom As New SqlCommand(Sql, Conn1)
Dim dr As SqlDataReader = sqlCom.ExecuteReader
While dr.Read
Me.aaa.Text = dr.Item("name") & "<br/>"
End While
dr.Close()
Conn.Close()
Dim StrConn1 As String
Dim Sql As String
StrConn1 = WebConfigurationManager.ConnectionStrings("conn").ConnectionString
Dim Conn1 As New SqlConnection(StrConn1)
Conn1.Open()
Sql = "SELECT name FROM drug_sale GROUP BY name"
Dim sqlCom As New SqlCommand(Sql, Conn1)
Dim dr As SqlDataReader = sqlCom.ExecuteReader
Dim str As String = ""
While dr.Read
str &= dr.Item("name") & "<br/>"
End While
me.aaa.Text = str;
dr.Close()
Conn.Close()