Показать запись с SQL Server 2008 в текстовом поле в vb.net 2010 не работает

Question

conn = New SqlConnection("Data Source=JOODAY-PC;Initial Catalog=dblogin;Persist Security Info=True;User ID=sa;Password=12345") 
    Dim dt As New DataTable 
    conn.Open() 
    Dim da As New SqlDataAdapter("SELECT * FROM tblRiceAllocationPassbook WHERE [Month] = '%" & ComboBox1.Text & "%' and [Year] = '%" & txtyear.Text & "%'", conn) 
    da.Fill(dt) 
    txtmonthlyallocation.Text = dt.Rows(0)("[IBSP Weekly Allocation]").ToString 
    conn.Close() 

это мой код для отображения значения столбца «Еженедельное распределение IBSP» в текстовом поле txtmonthlyallocation. Что не так с этим кодом и почему оно не работает? Благодарю.

Answer 1

Вариант с использованием DataReader, чтобы найти что-то и показать поле, связанное с найденной строки

Dim searchValue As String = "BE-2349" 

Using cn As New SqlClient.SqlConnection With {.ConnectionString = My.Settings.ConnectionString} 
    Using cmd As New SqlClient.SqlCommand With 
     { 
      .Connection = cn, 
      .CommandText = "SELECT ProductID, Name, ProductNumber FROM Production.Product WHERE ProductNumber = @ProductNumber"} 
     cmd.Parameters.AddWithValue("@ProductNumber", searchValue) 

     cn.Open() 
     Dim reader As SqlClient.SqlDataReader = cmd.ExecuteReader 
     reader.Read() 
     If reader.HasRows Then 
      TextBox1.Text = reader.GetSqlString(1) 
     End If 

    End Using 
End Using 

С помощью XML литералов для команды текста

Dim searchValue As String = "BE-2349" 

Using cn As New SqlClient.SqlConnection With {.ConnectionString = My.Settings.ConnectionString} 
    Using cmd As New SqlClient.SqlCommand With 
     { 
      .Connection = cn, 
      .CommandText = 
      <SQL> 
       SELECT 
        ProductID, 
        Name, 
        ProductNumber 
       FROM Production.Product 
       WHERE ProductNumber = @ProductNumber 
      </SQL>.Value} 
     cmd.Parameters.AddWithValue("@ProductNumber", searchValue) 

     cn.Open() 

     Dim reader As SqlClient.SqlDataReader = cmd.ExecuteReader 
     reader.Read() 

     If reader.HasRows Then 
      TextBox1.Text = reader.GetSqlString(1) 
     End If 

    End Using 
End Using