كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو

كود :
Imports System.Data.SqlClient



Public Class Form1

    Dim connectionString As String = "Your_Connection_String_Here"



    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click

        For Each row As DataGridViewRow In dataGridView1.Rows

            If Convert.ToBoolean(row.Cells("CheckBoxColumnName").Value) Then

                ' Checkbox is checked, insert into database

                InsertIntoDatabase(row)

            Else

                ' Checkbox is not checked, delete from database

                DeleteFromDatabase(row)

            End If

        Next

    End Sub



    Private Sub InsertIntoDatabase(row As DataGridViewRow)

        Using connection As New SqlConnection(connectionString)

            connection.Open()

            Dim query As String = "INSERT INTO YourTableName (Column1, Column2) VALUES (@Value1, @Value2)"

            Using command As New SqlCommand(query, connection)

                command.Parameters.AddWithValue("@Value1", row.Cells("Column1Name").Value)

                command.Parameters.AddWithValue("@Value2", row.Cells("Column2Name").Value)

                command.ExecuteNonQuery()

            End Using

        End Using

    End Sub



    Private Sub DeleteFromDatabase(row As DataGridViewRow)

        Using connection As New SqlConnection(connectionString)

            connection.Open()

            Dim query As String = "DELETE FROM YourTableName WHERE ID = @ID"

            Using command As New SqlCommand(query, connection)

                command.Parameters.AddWithValue("@ID", row.Cells("IDColumnName").Value)

                command.ExecuteNonQuery()

            End Using

        End Using

    End Sub

End Class