visualizzazione di tutte le righe di una colonna specifica in una casella di testo - vb.net, visual-studio-2010, vb.net-2010

sto usando Visual Studio 2010 con SQL Server 2008 come back end, ho un problema nella visualizzazione tutte le righe di una particolare colonna in una casella di testo. ho provato questo,

cmd.CommandText = "select article_no from  main where name="" & TextBox1.Text & """

cmd.Connection = con

con.Open()

Dim dr As SqlDataReader

dr = cmd.ExecuteReader

If dr.HasRows Then

dr.Read()

TextBox2.Text = dr.Item("article_no")

End If

con.Close()

Ma sono in grado di visualizzare solo la prima riga diun nome particolare che inserisco nella casella di testo 1, invece, ho bisogno di visualizzare tutte le righe che sono costituite dallo stesso nome inserito nella casella di testo1 e dovrebbero essere visualizzate nella casella di testo 2.

quindi per favore qualcuno mi aiuti con la logica richiesta.

Grazie in anticipo

risposte:

forse non puoi visualizzare tutte le righe perché tustanno usando una casella di testo. Solo 1 record verrà aggiunto alla casella di testo, forse anche tu puoi farlo impostando la proprietà multiline textbox su true. Suggerisco invece di usare listbox e farlo

If dr.HasRows Then
While dr.Read()
ListBox1.Add(dr.Item("article_no"))
End While
End If

Sembra che tu abbia bisogno di impostare il TextBox su multilinea o potresti dover inserire interruzioni di riga manualmente.

Controlla la stessa risposta qui: (Risposta simile)

Per poter visualizzare tutte le righe, è necessario eseguire il loop del datatable.

If dr.HasRows Then

For Each _dr As DataRow In dr.Rows

_dr.Read()

TextBox2.Text = String.Concat(TextBox2.Text, ",", _dr.Item("article_no"))

Next
End If

Usando le virgole , come separatori nella tua casella di testo 2

Perché non renderlo multilinea con una barra di scorrimento verticale:

 TextBox2.Multiline = True
TextBox2.ScrollBars = ScrollBars.Vertical

Quindi quando attraversi, fai:

 TextBox2.Text &= dr.Item("article_no") & Environment.NewLine