تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود حذف وتعديل
#1
ياريت يا اخوان تساعدوني بكود الحذف والتعديل للمشروع المرفق وشكرا للمساعدة سلفا


الملفات المرفقة
.rar   SSS.rar (الحجم : 97.55 ك ب / التحميلات : 18)
الرد
تم الشكر بواسطة:
#2
هذا كود التعديل :

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.CheckedDateTimePicker1.Value.DateCObj(DBNull.Value))
 
       End If
 
       Dim Save As New OleDbCommandBuilder(InfoAdapter)
 
       InfoAdapter.Update(InfoTable)
 
       InfoTable.AcceptChanges()
 
       MessageBox.Show("تمّت بنجاح عملية تعديل بيانات الكتاب""عملية التعديل"MessageBoxButtons.OKMessageBoxIcon.AsteriskMessageBoxDefaultButton.Button1MessageBoxOptions.RightAlign

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

PHP كود :
       If MsgBox("هل انت متأكد من عملية حذف السجل : " DataGridView1.CurrentRow.Cells(1).ValueMsgBoxStyle.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.OKMessageBoxIcon.AsteriskMessageBoxDefaultButton.Button1MessageBoxOptions.RightAlign)
 
       End If 
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة:
#3
(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.CheckedDateTimePicker1.Value.DateCObj(DBNull.Value))
 
       End If
 
       Dim Save As New OleDbCommandBuilder(InfoAdapter)
 
       InfoAdapter.Update(InfoTable)
 
       InfoTable.AcceptChanges()
 
       MessageBox.Show("تمّت بنجاح عملية تعديل بيانات الكتاب""عملية التعديل"MessageBoxButtons.OKMessageBoxIcon.AsteriskMessageBoxDefaultButton.Button1MessageBoxOptions.RightAlign

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

PHP كود :
       If MsgBox("هل انت متأكد من عملية حذف السجل : " DataGridView1.CurrentRow.Cells(1).ValueMsgBoxStyle.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.OKMessageBoxIcon.AsteriskMessageBoxDefaultButton.Button1MessageBoxOptions.RightAlign)
 
       End If 
شكرا اخي وفقك الله وجازاك عنا خيرا كله تمام
الرد
تم الشكر بواسطة: asemshahen5
#4
الحمدالله و الشكر الله رب العالمين ...
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة:
#5
(14-11-19, 07:15 PM)asemshahen5 كتب : الحمدالله و الشكر الله رب العالمين ...
اخي الكريم لما نقلت الاكواد لمشروعي المرفق عاد يعطيني نفس الخطأ علما اني قمت بتسمية جميع الاعمدة بالانكيزي مو عارف شو السبب انا جربت الاكواد المرسلة من قبلك على مشروعي السابق اشتغل تمام  اما بهذا المرفق لايعمل مو عارف السبب ياريت المساعدة    لما اضغط حفظ عم يعطي رسالة غير قابل للحفظ والتعديل
وفقك الله وجازاك عنا خيرا


الملفات المرفقة
.rar   WindowsApplication2.rar (الحجم : 454.3 ك ب / التحميلات : 13)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  شرح مبسط لفتح وتعديل مشروع به قاعدة sql sofiane-phy 0 443 24-11-19, 11:36 PM
آخر رد: sofiane-phy
  [VB.NET] مشروع حفظ وتعديل سلام م 1 492 16-11-19, 04:07 PM
آخر رد: اسامه الهرماوي
  كيف اجعل زر الحفظ يقوم بعمل حفظ وتعديل فى نفس الوقت atef_020 30 3,877 28-02-19, 02:09 PM
آخر رد: حريف برمجة
  كيف اجعل زر الحفظ يقوم بعمل حفظ وتعديل atef_020 15 2,728 01-12-18, 08:09 PM
آخر رد: حريف برمجة
  لوسمحتم كود اضافة وحفظ وتعديل وحذف وبحث احمد خطاب 1 1,458 10-11-18, 12:39 PM
آخر رد: dasktop
  [سؤال] ضبط وتعديل معادلة تقسيم ساعات عمل الورديات herofox 8 1,356 03-09-18, 04:38 PM
آخر رد: herofox
  تصفية داتا كرد فيو وتعديل رسول555 8 1,423 05-05-18, 10:27 AM
آخر رد: رسول555
  [VB.NET] مطلوب مثال لاضافة وحذف وتعديل وبحث وحفظ الصور محمد اسماعيل 1 954 12-12-17, 09:15 PM
آخر رد: zinom
  اضافة وتعديل وحذف وبحث في وضع الاتصال المنفصل khaled12345 11 2,794 12-06-17, 08:48 AM
آخر رد: khaled12345
  [VB.NET] كود الحفظ وتعديل بيانات داخل قاعدة بيانات sql لعنصر داخل كومبو بوكس عمرو نجيب 3 1,572 07-07-16, 05:30 PM
آخر رد: عمرو نجيب

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم