14-11-19, 04:13 PM
هذا كود التعديل :
هذا كود الحذف :
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
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر