+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] حذف صفوف من Access Database تاريخها قبل تاريخ اليوم (/showthread.php?tid=34602)
حذف صفوف من Access Database تاريخها قبل تاريخ اليوم - Doctor GME - 04-05-20
هذا كود حذف كل ال rows داخل ال database والتى يكون تاريخها فى column المسمى AppDate
أقدم من تاريخ اليوم وذلك فى Form Load Event:
كود :
Try
cnn.Open()
Dim sql As String = "Delete From [Appointments] WHERE [AppDate]<@mydate"
Dim cmd As New OleDbCommand(sql, cnn)
cmd.Parameters.AddWithValue("@mydate", Now.ToShortDateString)
cmd.ExecuteNonQuery()
cmd.Dispose()
Catch ex As Exception
MsgBox(ex.Message)
Finally
If (cnn.State = ConnectionState.Open) Then cnn.Close()
End Tryالكود يعمل جيداً ولكن أود أولاً نسخ rows التى يتم إلغاءها فى table آخر
هل من اقتراحات!!!
RE: حذف صفوف من Access Database تاريخها قبل تاريخ اليوم - ابراهيم ايبو - 06-05-20
السلام عليكم ورحمة الله وبركاته
الامر جدا بسيظ
قم بانشاء جدول للمحذوفات حقوله نفس حقول الجدول الذي ستحذف منه الصف اضافة الى حقل اي دي ترقيم تلقائي مستقل خاص بالجدول
واعمل جملة Insert تكون بنفس الحقول التي ستحذف واجعل قيمها من الداتا غرايد او من مربعات النصوص التي تظهر فيها القيم اثناء اختيار الصف من الداتا غرايد بكل مافيها حتى الاي دي للصف المحذوف ويكون هذا الكود في نفس كود الحذف ويتم تنفيذه اولا ثم يتم تنفيذ كود الحذف
وعنما تريد الاستعلام من جدول الحذف يمكنك الاستعلام اما برقم اي دي الصف المحذوف او بحقل الاسم او غيره حسبما تريد
اعتقد ان الامر اصبح واضحا
دمت بخير
RE: حذف صفوف من Access Database تاريخها قبل تاريخ اليوم - Doctor GME - 07-05-20
شكراً أخى ابراهيم ايبو
فكرتك واضحة لى الآن