منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ياريت يا اخوان تساعدوني بكود الحذف والتعديل للمشروع المرفق وشكرا للمساعدة سلفا

هذا كود التعديل :


هذا كود الحذف :

(14-11-19, 04:13 PM)asemshahen5 كتب : [ -> ]هذا كود التعديل :

PHP كود :

       Dim Ajouter As Integer = DataGridView1.CurrentRow.Index
        InfoTable.Rows(Ajouter).Item("id") = Val(TextBox1.Text)
        InfoTable.Rows(Ajouter).Item("pname") = TextBox2.Text
        InfoTable.Rows(Ajouter).Item("village") = TextBox3.Text
        InfoTable.Rows(Ajouter).Item("rec_no") = TextBox4.Text
        InfoTable.Rows(Ajouter).Item("notes") = TextBox5.Text
        InfoTable.Rows(Ajouter).Item("MM1") = TextBox6.Text
        If DateTimePicker1.Checked = True Then
            InfoTable.Rows(Ajouter).Item("BOOK_Realise") = CDate(DateTimePicker1.Value.ToString("dd-MM-yyyy")).ToShortDateString
        Else
            InfoTable.Rows(Ajouter).Item("BOOK_Realise") = If(DateTimePicker1.Checked, DateTimePicker1.Value.Date, CObj(DBNull.Value))
        End If
        Dim Save As New OleDbCommandBuilder(InfoAdapter)
        InfoAdapter.Update(InfoTable)
        InfoTable.AcceptChanges()
        MessageBox.Show("تمّت بنجاح عملية تعديل بيانات الكتاب", "عملية التعديل", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign) 


هذا كود الحذف :

PHP كود :

       If MsgBox("هل انت متأكد من عملية حذف السجل : " & DataGridView1.CurrentRow.Cells(1).Value, MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
            Dim Ajouter As Integer = DataGridView1.CurrentRow.Index
            InfoTable.Rows(Ajouter).Delete()
            Dim Save As New OleDbCommandBuilder(InfoAdapter)
            InfoAdapter.Update(InfoTable)
            InfoTable.AcceptChanges()
            MessageBox.Show("تمّت بنجاح عملية حذف بيانات الكتاب", "عملية الحذف", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
        End If 


شكرا اخي وفقك الله وجازاك عنا خيرا كله تمام

الحمدالله و الشكر الله رب العالمين ...

(14-11-19, 07:15 PM)asemshahen5 كتب : [ -> ]الحمدالله و الشكر الله رب العالمين ...

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