(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 كتب : الحمدالله و الشكر الله رب العالمين ...