+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net (/showthread.php?tid=3122)
الصفحات:
1
2
كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - luai - 07-06-14
السلام عليكم
لدي برنامج يقوم باضافة السجلات و حفظها في قاعدة بيانات اكسس و يقوم بعرضها في اداة dataview وارغب باضافة زر حذف يقوم بحذف السطر المحدد من الـdataview من قاعدة البيانات مع رسالة تاكيد لمعلومات السطر المحذوف.
الرجاء مساعدتي في كود الحذف حيث انني فتشت كثيرا ولم استطع ترتيب الكود الازم لعملية الحذف.
شكرا.
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - vbnet - 07-06-14
.....
أنظر هذا الموضوع (ممكن مساعدة في حفظ Datagridview)
أضف واحذف وعدل ما تشاء من DataGridView واحفظ عند الإغلاق
.....
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - luai - 07-06-14
شكرا لاهتمامك اخ vbnet
لكني لم استطع الاستفادة كثيرا من الرابط الذي اعطيتني اياه.
انني اريد من الفورم وعن طريق زر حذف ان احذف الصف بالكامل عن طريق الاندكس للسطر المحدد اذا ممكن.
شكرا
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - vbnet - 07-06-14
.....
مسألة الحذف من قاعدة البيانات لابد من دلالة 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.....
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - سعود - 07-06-14
الطريقة الاولى اسهل
فعل التحرير بالاداة في وضع التصميم .
وعند تنشيط اي صف انقر زر الحذف بلوحة المفاتيح
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - luai - 11-06-14
شكرا لك كثيرا اخ vbnet لقد تم عمل الكود بشكل رائع, بالاضافة الى انني تمكنت من استخدام الطريقة الاولى و هي جيدة ايضا.
شكرا اخ سعود على الاهتمام.
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - jaap - 23-11-14
اخوان صارلي ثلاث ليالي اود وضع كود الحذف للزر
والطريقة التي تتبعتها في استيراد قاعدة البيانات هي من الفجيوال نفسه وليست عن طريق الاكواد
وحاولت ولم استطع مانجخت به فقط هو البث الخزن والاضافة
طبعا انا سحبت الجدول الى المشروع عن طريق اختيار تفاصيل ثم افلته بالمشروع وضهر الكونترول بوكس فق للمسح والاضافة ولكن انا اتمنى ان انجح في زر الحذف ياريت لو تساعدوني
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - raoe-041 - 23-11-14
اخي الكريم jaap انت متصل عن طريق المعالج و يجب عليك اضافة زر الى برنامجك و تسميه الحذف و من ثم تصنع متغير لتحديد السطر المحدد
PHP كود :
dim posation as integer
PHP كود :
posation = me.table1bindingsource1.position
PHP كود :
me.table1bindingsource1.removeat(posation)
ارجو ان تستفاد من هذا الكود و يجب الانتباه الى table1bindingsource الي موجود عندك يعني لو 1 تضع 1 .........
و لا تنسى ان تقوم بعملية الحفظ بعد الحذف ..........
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - jaap - 23-11-14
طيب الله يوفقك كمل جميلك علي و زر الخزن
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - jaap - 23-11-14
اخواني الاعزاء يعد ما نجحت بصنع ازرار الحذف والاضافة والمسح واللاغلاق وعند تشغيل البرنامج يعمل بصورة جيدة ولكن
عند اغلاق البرنامج اجد ان كل ما اضفته احتفى تماما ولا اعلم ماهي المشكلة اليكم الاكواد التي استخدمتها
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()
..................................................