Question

注意：我正在使用Visual Studio，原创作品在SQL Server上，转移到VB.NET

我有一个文本框“ViewStatusTxt”，旁边有一个按钮“ViewStatusBtn” 在它下面有一个TextBox“ViewNAMETxt”，另一个TextBox“ViewACTIVITYTxt”，然后是一个Checkbox“ModifyStatusCB”

我正在尝试根据那里的ID输入自动填充Checkbox和Textbox，但是我真的不知道它，因为我是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。

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

1 个答案: