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

لدي برنامج يقوم باضافة السجلات و حفظها في قاعدة بيانات اكسس و يقوم بعرضها في اداة dataview وارغب باضافة زر حذف يقوم بحذف السطر المحدد من الـdataview من قاعدة البيانات مع رسالة تاكيد لمعلومات السطر المحذوف.

الرجاء مساعدتي في كود الحذف حيث انني فتشت كثيرا ولم استطع ترتيب الكود الازم لعملية الحذف.

شكرا.
الرد }}}}
تم الشكر بواسطة:
#2
.....

أنظر هذا الموضوع (ممكن مساعدة في حفظ Datagridview)
أضف واحذف وعدل ما تشاء من DataGridView واحفظ عند الإغلاق

.....
الرد }}}}
تم الشكر بواسطة: Sajad , سعود
#3
شكرا لاهتمامك اخ vbnet

لكني لم استطع الاستفادة كثيرا من الرابط الذي اعطيتني اياه.

انني اريد من الفورم وعن طريق زر حذف ان احذف الصف بالكامل عن طريق الاندكس للسطر المحدد اذا ممكن.

شكرا
الرد }}}}
تم الشكر بواسطة:
#4
.....

مسألة الحذف من قاعدة البيانات لابد من دلالة ID الخاص بالسطر (السجل) المراد حذفة (إذا استخدمت طريقة أخرى قد تتسبب في مشاكل)

لحذف سطر من جدول في قاعدة البيانات ومن ثم إذا نجحت يتم حذف السطر الحالي في DataGridView على أساس أن ID موجود في الخلية رقم صفر
كود :
Try
    Dim sql As String = " DELETE FROM [table1] WHERE [id]=" & Int(Me.DataGridView1.CurrentRow.Cells(0).Value)
    '                                                                                         ^^^^^^^^^^^^^^
    '                                                                                            ID رقم
    Dim comm As New OleDb.OleDbCommand(sql, conn)

    conn.Open()
    Dim result As Integer = comm.ExecuteNonQuery
    conn.Close()

    If result > 0 Then
        Me.DataGridView1.Rows.Remove(Me.DataGridView1.CurrentRow)
        MsgBox("لقد تم حذف السجل بنجاح")
    Else
        MsgBox("لم أجد السجل المراد حذفه")
    End If

Catch ex As Exception
    MsgBox("فشلت عملية الحذف")
End Try

.....
الرد }}}}
تم الشكر بواسطة: سعود , luai , Sajad
#5
الطريقة الاولى اسهل
فعل التحرير بالاداة في وضع التصميم .
وعند تنشيط اي صف انقر زر الحذف بلوحة المفاتيح
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: luai
#6
شكرا لك كثيرا اخ vbnet لقد تم عمل الكود بشكل رائع, بالاضافة الى انني تمكنت من استخدام الطريقة الاولى و هي جيدة ايضا.

شكرا اخ سعود على الاهتمام.
الرد }}}}
تم الشكر بواسطة:
#7
اخوان صارلي ثلاث ليالي اود وضع كود الحذف للزر
والطريقة التي تتبعتها في استيراد قاعدة البيانات هي من الفجيوال نفسه وليست عن طريق الاكواد
وحاولت ولم استطع مانجخت به فقط هو البث الخزن والاضافة
طبعا انا سحبت الجدول الى المشروع عن طريق اختيار تفاصيل ثم افلته بالمشروع وضهر الكونترول بوكس فق للمسح والاضافة ولكن انا اتمنى ان انجح في زر الحذف ياريت لو تساعدوني
الرد }}}}
تم الشكر بواسطة:
#8
اخي الكريم jaap انت متصل عن طريق المعالج و يجب عليك اضافة زر الى برنامجك و تسميه الحذف و من ثم تصنع متغير لتحديد السطر المحدد

PHP كود :
dim posation as integer 
ثم تقوم بوضع الكود التالي للحذف ....
PHP كود :
posation me.table1bindingsource1.position 
PHP كود :
me.table1bindingsource1.removeat(posation

ارجو ان تستفاد من هذا الكود و يجب الانتباه الى table1bindingsource الي موجود عندك يعني لو 1 تضع 1 .........

و لا تنسى ان تقوم بعملية الحفظ بعد الحذف ..........
..................  و فوق كل ذي علم عليم  ................
الرد }}}}
تم الشكر بواسطة:
#9
طيب الله يوفقك كمل جميلك علي و زر الخزن
الرد }}}}
تم الشكر بواسطة:
#10
اخواني الاعزاء يعد ما نجحت بصنع ازرار الحذف والاضافة والمسح واللاغلاق وعند تشغيل البرنامج يعمل بصورة جيدة ولكن
عند اغلاق البرنامج اجد ان كل ما اضفته احتفى تماما ولا اعلم ماهي المشكلة اليكم الاكواد التي استخدمتها

AddNew

Me.Validate()
Me.InterfaceBindingSource.AddNew()

.................................................

save
Me.Validate()
Me.InterfaceBindingSource.EndEdit()
...................................................

Delete
Me.NameTextBox.Text = ""
Me.AddressTextBox.Text = ""
Me.ZipCodeTextBox.Text = ""
Me.Personal_NummberTextBox.Text = ""
Me.CityTextBox.Text = ""
Me.ConservatismTextBox.Text = ""
Me.ContryTextBox.Text = ""
Me.TelNumberHomeTextBox.Text = ""
Me.TelNumbermobileTextBox.Text = ""
Me.NotesTextBox.Text = ""
Me.NameTextBox.Focus()
..............................................

Close
Me.Close()
..................................................
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 5 4,606 10-05-17, 03:13 PM
آخر رد: safalo
  مل نسخة احتياطية لقاعدة بيانات sql server djelloul 2 56 10-05-17, 12:49 PM
آخر رد: djelloul
  المساعدة في عمل استعلام قاعدة بيانات sqlserver djelloul 0 68 17-04-17, 07:13 PM
آخر رد: djelloul
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 8 849 03-04-17, 02:48 AM
آخر رد: ابو إياد
  تحويل ملف اكسس mdb الي sql server 2008 r2 atefkhalf2004 0 104 19-03-17, 08:17 PM
آخر رد: atefkhalf2004
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 152 10-03-17, 09:36 AM
آخر رد: عبد الله
  سرعة ادخال البيانات داخل ملف اكسس atefkhalf2004 1 168 05-03-17, 04:06 AM
آخر رد: thevirus
  استعادة قاعدة البيانات من ملف النسخة الإحتياطية djelloul 2 171 28-02-17, 03:27 PM
آخر رد: djelloul
  كيفية الاتصال بقاعدة بيانات Access على الشبكة المحلية warda saeed 9 9,237 28-02-17, 10:21 AM
آخر رد: وائل القطاوي
  عدد السجلات داخل ملف اكسس atefkhalf2004 7 256 18-02-17, 06:29 PM
آخر رد: atefkhalf2004

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


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