[heem1986]

السلام عليكم لديه جدول به عمود يحتوى على مربع أختيار أريد عند التعليم على الأختيار حفظ الصف بقاعدة البيانات وعند أزالة التعليم يتم حذف نفس الصف بقاعدة البيانات ... وجزاكم الله خيراُ

[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

[heem1986]

شكراً كثيراً لك جزاك الله خيراً