[dr_amr82]

ياعمل برنامج و عاوز اعمل حذف لسجل عن طريق الفيجوال بيسك الكود من المنتدى و شغال لكن لا يتم حفظ عملية الحذف بمعنى أنه عند اجراء load data ترجع الصفوف

PHP كود :

Try
            Dim sql As String = " DELETE FROM [annualcheck] WHERE [id]=" & Int(Me.dgv.CurrentRow.Cells(0).Value)
            '                                                                                         ^^^^^^^^^^^^^^
            '                                                                                            ID رقم
            Dim comm As New OleDb.OleDbCommand(sql, con)

            con.Open()
            Dim result As Integer = comm.ExecuteNonQuery
            con.Close()

            If result >= 0 Then
                Me.dgv.Rows.Remove(Me.dgv.CurrentRow)
                'MsgBox("لقد تم حذف السجل بنجاح")
                'loaddata()
                Dim da1 As New OleDbDataAdapter("SELECT DISTINCTROW Sum([annualcheck].[totalprice]) AS [المجموع الكلي] FROM annualcheck;", con)
                Dim dt1 As New DataTable
                'da1.Fill(dt1)
                'dgv1.DataSource = dt1
            Else
                MsgBox("لم أجد السجل المراد حذفه")
            End If

        Catch ex As Exception
            MsgBox("فشلت عملية الحذف")
            MessageBox.Show(ex.Message)
        End Try