Sql 如何将表行详细信息复制到visual studio窗体

我有一张桌子，试试“uid，pwd，mob和name”

---

我想从表中调用visual basic表单中的值，并在相应的文本框中显示值。我知道这方面的SQL查询-->

select*from try where uid=“CL001”

这是一个函数，允许您在数据库上执行select语句。在调用它之前，必须声明一个新的datatable，如：

Dim dt as New DataTable
dt = doSQL("select * from try where uid='CL001'")

    Public Function DoSQL(ByVal sqlCmd As String) As DataTable
    Dim cmd As New SQL.SqlCommand()
    Dim cnn As New SQL.SqlConnection(My.Settings.cnnString) ' your connection string here
    Dim sqlDT As New DataTable
    With cmd
        .Connection = cnn
        .CommandText = sqlCmd
        .CommandType = CommandType.Text
    End With
    Dim da As New SQL.SqlDataAdapter()
    da.SelectCommand = cmd
    da.Fill(sqlDT)

    Return sqlDT

End Function

datatable将具有匹配的记录。所以，如果你知道只有一张唱片，你可以这样做：

textbox.text = dt.Rows(0).Item("uid").ToString

或者，您可以将其绑定到文本框，并使用bindingmanagerbase跟踪您喜欢的位置：

Private WithEvents bm As BindingManagerBase ' Class scope

Private Sub partBind(ByVal dt As DataTable)
txtBox.DataBindings.Add("Text", dt, "uid")
End Sub

然后，您可以使用bm.position控制翻阅记录，如下所示：

Private Sub btnNavClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click, btnPrevious.Click, btnLast.Click, btnFirst.Click
    Dim btnClicked As Button = DirectCast(sender, Button)

    Select Case btnClicked.Name
        Case "btnNext"
            If bm.Position < bm.Count - 1 Then
                bm.Position += 1
            Else
                bm.Position = 0
            End If

        Case "btnPrevious"
            If bm.Position > 0 Then
                bm.Position -= 1
            Else
                bm.Position = bm.Count
            End If
            bm.Position -= 0
        Case "btnLast"
            bm.Position = bm.Count
        Case "btnFirst"
            bm.Position = 0
    End Select

End Sub

Private Sub btnNavClick（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理btnNext。单击，btnPrevious。单击，btnLast。单击，btnFirst。单击
Dim btnClicked As Button=DirectCast（发送方，按钮）
选择案例btnClicked.Name
案例“btnNext”
如果bm.位置0，则
bm.位置-=1
其他的
bm.位置=bm.计数
如果结束
bm.位置-=0
案例“btnLast”
bm.位置=bm.计数
案例“btnFirst”
bm.位置=0
结束选择
端接头

不要以为您已经阅读了《数据库》一书中的章节？它在Visual studio中！我知道SQL语言，但如何在visual studio vb窗体应用程序中使用？我不知道！我可以成功地插入评论！“在tablename（column1，column2）中插入值（‘“&textbox1.text&’，‘“&textbox2.text&’）”）“亲爱的朋友们，请不要给我负面评价，因为我有很多疑问！！我的上一个账户我不能再问任何问题了，这就是为什么我创建了这个账户，我也将在5天内无法回复或评论，因为我将在我的umra（朝圣）上，所以请耐心地帮助我。。。。

Private Sub btnNavClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click, btnPrevious.Click, btnLast.Click, btnFirst.Click
    Dim btnClicked As Button = DirectCast(sender, Button)

    Select Case btnClicked.Name
        Case "btnNext"
            If bm.Position < bm.Count - 1 Then
                bm.Position += 1
            Else
                bm.Position = 0
            End If

        Case "btnPrevious"
            If bm.Position > 0 Then
                bm.Position -= 1
            Else
                bm.Position = bm.Count
            End If
            bm.Position -= 0
        Case "btnLast"
            bm.Position = bm.Count
        Case "btnFirst"
            bm.Position = 0
    End Select

End Sub