تقييم الموضوع :
  • 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 ك ب / التحميلات : 14)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ود ادخال وتعديل حماده ممدوح البحيرى 2 439 10-11-22, 12:50 AM
آخر رد: أبو خالد الشكري
  محتاج كود الحفظ وتعديل فى جدولين new_programer 3 1,524 28-04-21, 07:11 PM
آخر رد: new_programer
  شرح مبسط لفتح وتعديل مشروع به قاعدة sql sofiane-phy 0 1,267 24-11-19, 11:36 PM
آخر رد: sofiane-phy
  [VB.NET] مشروع حفظ وتعديل سلام م 1 1,317 16-11-19, 04:07 PM
آخر رد: اسامه الهرماوي
  كيف اجعل زر الحفظ يقوم بعمل حفظ وتعديل فى نفس الوقت atef_020 30 8,327 28-02-19, 02:09 PM
آخر رد: حريف برمجة
  كيف اجعل زر الحفظ يقوم بعمل حفظ وتعديل atef_020 15 5,599 01-12-18, 08:09 PM
آخر رد: حريف برمجة
  لوسمحتم كود اضافة وحفظ وتعديل وحذف وبحث احمد خطاب 1 2,302 10-11-18, 12:39 PM
آخر رد: dasktop
  [سؤال] ضبط وتعديل معادلة تقسيم ساعات عمل الورديات herofox 8 2,856 03-09-18, 04:38 PM
آخر رد: herofox
  تصفية داتا كرد فيو وتعديل رسول555 8 3,103 05-05-18, 10:27 AM
آخر رد: رسول555
  [VB.NET] مطلوب مثال لاضافة وحذف وتعديل وبحث وحفظ الصور محمد اسماعيل 1 1,626 12-12-17, 09:15 PM
آخر رد: zinom

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


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