[aljzazy]

كود :

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