Связывание данных с текстовыми полями

Question

Dim myconn As New SqlConnection("Server=server,Trusted_Connection=True,Database=database") 
    'selects from mt table linking the current pc to a row 
    Dim sql As String = "SELECT * from idset " & vbcrlf & 
    "Where pcname= '" & pcname & "'" 
    Dim ds As New DataSet 
    Dim da As New SqlDataAdapter(sql, myconn) 

    da.Fill(ds, "Setup") 


    txtClientID.DataBindings.Add("text", ds.Tables("idset"), "CLID") 

Я не знаю, почему его не работает по какой-либо причине, когда он не заполнял набор данных, я заявлял что-то не так?

Answer 1

Причина, по которой она не работает, заключается в том, что вы указываете, что входящая таблица должна быть сопоставлена ​​с таблицей Setup. Ваш набор данных не содержит таблицу с именем Setup, поэтому входящая таблица будет называться ... ну, Setup.

Попробуйте вместо этого:

da.Fill(ds, "idset") 

Кроме того, я сильно предложить вам:

• Набор option strict на
• Всегда используйте parameterized/prepared запросы SQL.
• Всегда используйте инструкцию Using при работе с одноразовыми объектами.

Серьезно.

---

Лучший способ отладки привязок заключается в использовании BindingSource и обрабатывать BindingComplete событие.

Private bs As BindingSource 
Private ds As DataSet 

Private Sub Initialize(pcname As String) 

    Me.ds = New DataSet() 

    Using connection As New SqlConnection("Server=server,Trusted_Connection=True,Database=database") 
     connection.Open() 
     Using command As New SqlCommand() 
      command.Connection = connection 
      command.CommandText = "SELECT * from [idset] Where [pcname] = @pcname;" 
      command.Parameters.AddWithValue("@pcname", pcname) 
      Using adapter As New SqlDataAdapter(command) 
       adapter.Fill(Me.ds, "idset") 
      End Using 
     End Using 
    End Using 

    Me.bs = New BindingSource(Me.ds, "idset") 

    AddHandler bs.BindingComplete, AddressOf Me.HandleBindingCompleted 

    Me.txtClientID.DataBindings.Add("Text", Me.bs, "CLID") 

End Sub 

Private Sub HandleBindingCompleted(sender As Object, e As BindingCompleteEventArgs) 
    If (Not e.Exception Is Nothing) Then 
     Debug.WriteLine(e.ErrorText) 
    End If 
End Sub