[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 


[dr_amr82]

(10-06-17, 07:58 PM)khodor1985 كتب :

PHP كود :

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

           con.Open()
           ()comm.ExecuteNonQuery
           con.Close() 


مشكور أخي الكريم على الرد و لكن المشكلة لا زالت موجودة حيث يتم الحذف مرئيا من الداتا جريد فيو و لكن دون التأثير في قاعدة البيانات بمعنى عند عمل reload
يكون كل شيء كما كمان دون حذف