复选框从VB.NET插入到数据库

Imports System.Data.SqlClient

Public Class Form1
    Dim connectionString As String = "Data Source=YourServer;Initial Catalog=YourDatabase;User ID=YourUsername;Password=YourPassword"

    Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
        Dim checkBoxName As String = "CheckBox1"
        Dim checkBoxStatus As Boolean = CheckBox1.Checked

        Using connection As New SqlConnection(connectionString)
            connection.Open()

            Dim query As String = "INSERT INTO YourTable (CheckBoxName, CheckBoxStatus) VALUES (@Name, @Status)"
            Using command As New SqlCommand(query, connection)
                command.Parameters.AddWithValue("@Name", checkBoxName)
                command.Parameters.AddWithValue("@Status", checkBoxStatus)
                command.ExecuteNonQuery()
            End Using
        End Using

        MessageBox.Show("Data inserted successfully.")
    End Sub
End Class