منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - سؤال عن عملية حذف سجل من قاعدة البيانات

السلام عليكم ورحمة الله وبركاته
احبتي واجهت مشكلة وهي حذف آخر سجل في جدول بقاعدة بيانات اكسس
الطريقة المعتادة هي حذف بدلالة ال ID ولكن ماذا لو لم يكن هناك معرف
هل يمكن حذف اخر سجل في الحدول بغض النظر عن نوع البيانات التي فيه ؟ فقط الأخير اسفل الجدول

جرب الكود:

PHP كود :

Private Sub del_last(c As OleDb.OleDbConnection, tbname As String, col As String)
     Using cm As New OleDb.OleDbCommand("", c)
         cm.CommandText = "delete * from " & tbname & " where " & col & "= (select top 1 " & col & " from " & tbname & " order by " & col & " DESC)"
         If c.State = ConnectionState.Closed Then c.Open()
         cm.ExecuteNonQuery()
         MsgBox("تم حذف اخر سجل")
     End Using
 End Sub

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

 End Sub

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
     Dim con As New OleDb.OleDbConnection(str)
     del_last(con, "tb", "tname")
 End Sub 

وعليكم السلام ورحمة الله وبركاته

السؤال هو :
- شو اللي بيمنعك تضيف حقل ترقيم تلقائي(ما دام لديك حاجة لحذف السجل الأخير) ؟؟

- هل تواجه صعوبة بالتعامل مع قاعدة البيانات في حال وجود حقل ترقيم تلقائي؟؟

- أم ذاكرة جهازك صغيرة جداً بحيث لا تستوعب 6ميجا لكل مليون سطر من حقل الترقيم التلقائي ؟؟

شكرا للأخ justforit علي المساعدة سأقوم بالتجربة
بالنسب لسوالك اخي طه عن سبب عدم وجود حقل اي دي هو اني اساسا استورد بيانات غير مرقمة
من شيت اكسل واحذف منها بعض الصفوف والاعمدة واصدرها لقاعدة بيانات تبع برنامج تصحيح آلي
محدد مسبقا اسماء الحقول ولايمكن اضافة اي شي من عندي ولا تخرب العملية عشان كذا احتاج احذف
الصف الأخير لإني لاحظت انه في قاعدة البيانات يتم اضافة سطر شبه فارغ ولايمكن التعديل على خصائص
الحقول لذلك لابد من حذفه بعد التصدير ،، شاكر ومقدر للجميع

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

assuhimi

justforit

Taha Okla

assuhimi