VB.NET中获取两个GroupBox选中单选按钮并插入数据库的方法

1. 获取GroupBox中选中的单选按钮值 #

先写一个通用方法提取指定GroupBox内选中的单选按钮文本，避免重复代码：

Private Function GetSelectedRadioText(groupBox As GroupBox) As String
    ' 遍历GroupBox内控件，找到选中的RadioButton
    For Each ctrl As Control In groupBox.Controls
        If TypeOf ctrl Is RadioButton Then
            Dim radio As RadioButton = DirectCast(ctrl, RadioButton)
            If radio.Checked Then
                Return radio.Text
            End If
        End If
    Next
    ' 无选中项时返回空字符串，也可根据需求抛出异常
    Return String.Empty
End Function

2. 数据库插入实现 #

以SQL Server为例，使用参数化查询（必须，防止SQL注入）执行插入操作，以下是按钮点击事件的示例代码：

Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
    ' 获取两个GroupBox的选中值
    Dim gender As String = GetSelectedRadioText(rdGender)
    Dim role As String = GetSelectedRadioText(rd)

    ' 验证选项是否齐全
    If String.IsNullOrEmpty(gender) OrElse String.IsNullOrEmpty(role) Then
        MessageBox.Show("请选择性别和身份类型！")
        Return
    End If

    ' 数据库连接字符串（根据实际配置修改）
    Dim connString As String = "Data Source=YOUR_SERVER;Initial Catalog=YOUR_DB;Integrated Security=True;"
    
    ' 插入SQL语句，使用参数占位符
    Dim insertSql As String = "INSERT INTO YourTableName (Gender, Role) VALUES (@Gender, @Role)"

    Using conn As New SqlClient.SqlConnection(connString)
        Using cmd As New SqlClient.SqlCommand(insertSql, conn)
            ' 绑定参数值
            cmd.Parameters.AddWithValue("@Gender", gender)
            cmd.Parameters.AddWithValue("@Role", role)

            Try
                conn.Open()
                Dim rowsAffected As Integer = cmd.ExecuteNonQuery()
                If rowsAffected > 0 Then
                    MessageBox.Show("记录插入成功！")
                Else
                    MessageBox.Show("记录插入失败，请检查数据库配置！")
                End If
            Catch ex As Exception
                MessageBox.Show($"插入出错：{ex.Message}")
            End Try
        End Using
    End Using
End Sub

关键注意事项 #

• 参数化查询：禁止直接拼接SQL语句，避免SQL注入风险和字符串转义问题。
• Using语句：自动释放数据库连接和命令对象，防止资源泄漏。
• 空值验证：插入前确保用户已选择所有必填选项，避免无效数据进入数据库。
• 适配不同数据库：如果使用Access、MySQL等数据库，需替换对应的连接字符串和客户端类（如OleDbConnection、MySqlConnection）。

内容的提问来源于stack exchange，提问作者Babar Ali