从以前的TextBox的值自动填充TextBox / Checkbox（VB.NET数据库）

Question

注意：我使用的是Visual Studio，原始工作在SQL Server上，移至VB.NET

我有一个文本框“ ViewStatusTxt”，旁边有一个按钮“ ViewStatusBtn”，下面有一个文本框“ ViewNAMETxt”，另一个文本框“ ViewACTIVITYTxt”，然后有一个复选框“ ModifyStatusCB”

我正在尝试根据那里的ID输入自动填充“复选框”和“文本框”，但是由于我是VB.NET的新手，所以我对此一无所知

这是使用的代码

Private Sub IDSearch(StatusViewBtn As String)
    ' ADD SEARCH QUERY PARAMETERS - WITH WILDCARDS
    SQL.AddParam("@StatusViewBtn", StatusViewBtn)

    'RUN QUERY - SEARCH GIVES THOSE RESULTS
    SQL.ExecQuery(" SELECT
                        aID,
                        Name,
                        Status,
                        Activity

                    FROM
                        [dbo].[initialTable]

                    WHERE
                        aID = @StatusViewBtn

                    ORDER BY
                        aID ASC")
End Sub

那是该函数的代码，因为它是我在搜索页中使用的同一版本的较小版本，因此可以正常运行

这是按钮的功能，除非有必要向ViewNAMETxt添加特定功能，否则我确定这是我遇到问题的地方

Private Sub StatusViewBtn_Click(sender As Object, e As EventArgs) Handles StatusViewBtn.Click
    IDSearch(StatusViewBtn.Text)
    ViewNAMETxt.Text = SQL.ExecQuery("SELECT
                                            Name
                                        FROM
                                            initialTable
                                        WHERE
                                            aID = @StatusViewBtn")
End Sub

而且我什至还没有开始使用Checkbox，而是查看第一个复选框如何引起我的问​​题。 希望解决方案将与他们两个相似。 感谢您的来信，对于新手问题，我们深表歉意

Answer 1

1-假设您有一个名为YourTable（int KeyColumn，string StringColumn，boolean BooleanColumn）的表

2-创建一个表单，并在其上放置2个文本框和一个复选框以及一个按钮。 KeyColumnTextBox，StringColumnTextBox，BooelanColumnCheckBox，SearchButton

3-在SearchButton的单击事件处理程序中，输入以下代码：

Private Sub SearchButton_Click(sender As Object, e As EventArgs) Handles SearchButton.Click
    Dim connection = New SqlConnection("Your Connection string here")
    Dim command = New SqlCommand("SELECT StringColumn, BooleanColumn FROM YourTable WHERE KeyColumn=@KeyColumn", connection)
    command.Parameters.Add(New SqlParameter("@KeyColumn", Int32.Parse(KeyColumnTextBox.Text)))
    connection.Open()
    Dim reader = command.ExecuteReader()
    While reader.Read()
        StringColumnTextBox.Text = reader.GetString(0)
        BooleanColumnCheckBox.Checked = reader.GetBoolean(1)
    End While
End Sub

不要忘记在文件顶部Imports System.Data.SqlClient 。