, отображающий все строки определенного столбца в текстовом поле

Question

Я использую визуальную студию 2010 с SQL Server 2008 в качестве задней части, у меня есть проблема при отображении всех строк определенного столбца в текстовом поле. я попытался это,

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() 

Но я могу показать только первую строку конкретного имени, которое я войти в TextBox1 вместо мне нужно, чтобы отобразить все строки, которые состоят из одной и того же названия, в TextBox1 и должны отображение в текстовом поле2.

так что, пожалуйста, помогите мне справиться с необходимой логикой.

заранее спасибо

Answer 1

может быть, вы не можете отобразить все строки, потому что вы используете текстовое поле. В текстовое поле будет добавлено только 1 запись, также возможно, вы можете сделать это, установив для многострочного свойства textbox значение true. Я предлагаю использовать ListBox вместо этого, и сделать это

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

Answer 2

Это звучит, как вы должны установить TextBox быть многострочным или вам может понадобиться поместить разрывы строк вручную.

Заканчивать один и тот же ответ здесь: (Similar Answer)

Answer 3

Чтобы иметь возможность отобразить все строки, вы должны цикла в 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 

Использование запятых , в качестве разделителей в tyour TextBox2

Answer 4

Почему бы не сделать его многострочного с вертикальной полосой прокрутки:

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

Затем, когда вы пройти, вы делаете:

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