数据绑定到文本框

debugcn 发表于 Dev

戈斯

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

我不知道为什么由于某种原因而无法正常工作，或者没有填写数据集，我是否声明了错误？

比昂·罗格·克林佐（Bjørn-RogerKringsjå）

它不起作用的原因是，您指定将传入表映射到名为的表Setup。您的数据集不包含名为的表Setup，因此传入的表将被命名为...嗯，Setup。

尝试以下方法：

da.Fill(ds, "idset")

另外，我强烈建议您：

设置选项严格上
始终使用参数化/准备好的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

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。