Оператор SELECT Microsoft SQL Server

Question

Мне нужна помощь, чтобы получить столбец ReceiptNO из таблицы базы данных и сохранить его в TextBox или Label для ссылки.

КОД:

Dim da2 As New SqlDataAdapter 
da2.SelectCommand = New SqlCommand("SELECT RecepitNO FROM Receipt WHERE (PaidFor=@PaidFor AND RegNO=@RegNO)") 
da2.SelectCommand.Parameters.Add("@paidFor", SqlDbType.VarChar).Value = cbMonth.Text 
da2.SelectCommand.Parameters.Add("@RegNO", SqlDbType.Int).Value = lblRegNO.Text 

cn.Open() 
da2.Update(ds.Tables("Receipt")) 
'da2.SelectCommand.ExecuteNonQuery() 
da2.SelectCommand.ExecuteReader() 
cn.Close() 

Answer 1

Вы должны использовать SqlDataReader, а затем начать цикл для чтения значений, возвращенных
Этот пример будет работать в предположении ReceiptNO это текстовое поле

cn.Open() 
Dim reader = da2.SelectCommand.ExecuteReader() 
while reader.Read() 
    textBox1.Text = reader("ReceiptNO").ToString() 
End While 

В альтернативном случае, если вы уверены, что ваш запрос возвращает ноль или только одну запись, и вас интересует только поле ReceiptNO, вы можете использовать ExecuteScalar

Dim cmd = New SqlCommand("SELECT RecepitNO FROM Receipt WHERE (PaidFor=@PaidFor AND RegNO=@RegNO)") 
cmd.Connection = cn 
cmd.Parameters.Add("@paidFor", SqlDbType.VarChar).Value = cbMonth.Text 
cmd.Parameters.Add("@RegNO", SqlDbType.Int).Value = lblRegNO.Text 
cn.Open() 
Dim result = cmd.ExecuteScalar() 
if result IsNot Nothing Then 
    textBox1.Text = result.ToString() 
End If 

Here the MSDN docs on ExecuteScalar