تعديل مجموعة حقول - نسخة قابلة للطباعة

كود :

 If Con.State = ConnectionState.Open Then Con.Close()

        Con.Open()

        For i As Integer = 0 To Dgv_Table.Rows.Count - 1

            If Dgv_Table.Rows(i).Cells("Column5").Value = True Then

                Dim Cmd As New OleDbCommand("Update tblDropping SET Notes=@Notes, Cv_State=@Cv_State Where ID=@ID", Con)

                Cmd.Parameters.Add(New OleDbParameter("@Notes", OleDbType.Char)).Value = Dgv_Table.Rows(i).Cells("Column1").Value.ToString

                Cmd.Parameters.Add(New OleDbParameter("@Cv_State", OleDbType.Boolean)).Value = False

                Cmd.Parameters.Add(New OleDbParameter("@ID", OleDbType.Integer)).Value = Dgv_Table.Rows(i).Cells("ID").Value

                Cmd.ExecuteNonQuery()



            End If

        Next

        Con.Close()

        MessageBox.Show("تم تعديل البيانات في الارشيف", "تعديل", MessageBoxButtons.OK, MessageBoxIcon.Information)

        SelectAll_Personal()

PHP كود :

' حذف المحدد '
#Region " DeleteSelections() "
    Private Sub DeleteSelections()
        Try
            Dim w As New List(Of String)
            Dim chks As Integer = 0
            For Each r As DataGridViewRow In Me.DataGridView1.Rows
                If r.Cells("printCheckBox").Value = True Then chks += 1
            Next
            If chks > 0 Then
                Using conn As New OleDbConnection(connString)
                    conn.Open()
                    Dim sqlupdate = "UPDATE [tblDropping] SET [Notes]=@notes, [Core]=True WHERE [p_num]=@p_num"
                    Dim sqldelete = "DELETE FROM [persons] WHERE [p_num]=@p_num"
                    Using cmd As New OleDbCommand
                        cmd.Connection = conn
                        For Each r As DataGridViewRow In Me.DataGridView1.Rows
                            If r.Cells("printCheckBox").Value = True Then
                                ' تنفيذ التعديل '
                                cmd.CommandText = sqlupdate
                                cmd.Parameters.Clear()
                                cmd.Parameters.AddWithValue("@notes", If(r.Cells("Notes").Value Is Nothing, "", r.Cells("Notes").Value))
                                cmd.Parameters.AddWithValue("@p_num", r.Cells("p_num").Value)
                                cmd.ExecuteNonQuery()
                                ' تنفيذ الحذف '
                                cmd.CommandText = sqldelete
                                cmd.Parameters.Clear()
                                cmd.Parameters.AddWithValue("@p_num", r.Cells("p_num").Value.ToString)
                                cmd.ExecuteNonQuery()
                            End If
                        Next
                    End Using
                    conn.Close()
                End Using
                ' تعبئة الداتاجريدفيو '
                FillDataGridView()
            Else
                MsgBox("لم تقم بإختيار أي عنصر للطباعة", MsgBoxStyle.Exclamation, "خطأ")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
#End Region