20-02-24, 09:56 AM
السلام عليكم لديه جدول به عمود يحتوى على مربع أختيار أريد عند التعليم على الأختيار حفظ الصف بقاعدة البيانات وعند أزالة التعليم يتم حذف نفس الصف بقاعدة البيانات ... وجزاكم الله خيراُ
20-02-24, 09:56 AM
20-02-24, 09:19 PM
كود :
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 Class21-02-24, 01:37 AM
شكراً كثيراً لك جزاك الله خيراً