تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود بخذف الاسماء القديمة التي تجاوز عمرها اكثر من 90 يوم من تاريخ اليوم
#1
السلام عليكم
اعمل على برنامج ادخال
القاعدة اكسس الجدول tab البيانات  الاسم / القاطع / بلد / رقم الهوية / التاريخ ....الخ


المشكلة ادخال تقريبا 250 شخص يوميا  في السنة 90000 تقريبا  وهذا الرقم والاسماء لا احتاجها فقط قبل 90 يوم .

المطلوب؟؟


كود بخذف الاسماء القديمة التي تجاوز عمرها اكثر من 90 يوم من تاريخ اليوم


جزاكم الله خيرا ---- زكاة العلم نشره
الرد }}}
تم الشكر بواسطة:
#2
في جزئية بسيطة من السؤال انظر لهذا المثال.
الرد }}}
تم الشكر بواسطة: الدريساوي , الدريساوي
#3
السلام عليكم

سبق أن أجبت بشكل مفصل على سؤالك في
محتاج كود حذف سجلات تاريخها تجاوز 30 يوم

لكن سؤالي أين ذهب مجهودي في الإجابةّ


أرجو من الإدارة النظر في هذه المشكلة.
الرد }}}
تم الشكر بواسطة:
#4
(20-01-17, 10:56 PM)مساعدة كتب : السلام عليكم

سبق أن أجبت بشكل مفصل على سؤالك في
محتاج كود حذف سجلات تاريخها تجاوز 30 يوم

لكن سؤالي أين ذهب مجهودي في الإجابةّ
وعليكم السلام
اشكرك اخي على الاجابه

وكان ردك هذا

DELETE FROM [table] WHERE DATEDIFF(day, [column3], GETDATE()) > 30

Access
كود :
DELETE FROM [table] WHERE DATEDIFF('d', [column3], NOW()) > 30
لكن يستحسن أن تستعلم عن عدد الأسطر التي حان وقت حذفها وعرض العدد للمستخدم مع توضيح انها قبل التاريخ (تاريخ اليوم - 30 يوم) وطلب الموافقة منه على اتمام عملية الحذف،
SqlServer
كود :
SELECT COUNT(*) FROM [table] WHERE DATEDIFF(day, [column3], GETDATE()) > 30
Access
كود :
SELECT COUNT(*) FROM [table] WHERE DATEDIFF('d', [column3], NOW()) > 30

وذلك من أجل التأكد من التاريخ وإعطاء المستخدم فرصة للتراجع إذا كان التاريخ غير صحيح، فلا يقع في مشكلة الحذف الغير قابل للتراجع.
ومن الأفضل مع SqlServer أن تاخذ تاريخ اليوم من تاريخ السيرفر وليس تاريخ الجهاز


وهذا الكود يعمل بحذف سجل سجل

PHP كود :
Dim a As Date TextBox5.Text
        
'لو تاريخ اليوم اكبر من التاريخ المطلوب ب90  يوم 
        If Today > a.AddDays(90) Then
            Me.Label8.Text = ("تجاوز 90 يوم ")
            Dim SavInto As New OleDb.OleDbCommand
            Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, con)
            SavInto.Connection = con
            SavInto.CommandType = CommandType.Text
            SavInto.CommandText = "DELETE FROM Tab WHERE name1  ='" & _
            Trim(TextBox1.Text) & "'"
            con.Open()
            SavInto.ExecuteNonQuery()
            DataSet1.Clear()

            con.Close()

            Refresh_Dataset1()
        Else
            Me.Label8.Text = ("لم يتجاوز 90 يوم ")
        End If 
الرد }}}
تم الشكر بواسطة: أبو خالد الشكري , anes


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 353 25-11-23, 11:51 PM
آخر رد: Adel27213
  [VB.NET] حذف اكثر من سطر محدد في جرد فيو h2551996 3 439 25-11-23, 12:30 PM
آخر رد: h2551996
Information [VB.NET] حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox mervandz 3 287 10-11-23, 07:12 PM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  استفسار عام بخصوص فتح اكثر من اتصال على قاعدة بيانات واحدة assuhimi 0 324 15-09-23, 04:54 PM
آخر رد: assuhimi
  [سؤال] البحث في اكثر من قاعدة بيانات sher 2 444 17-08-23, 07:17 PM
آخر رد: aljzazy
  عندما اقوم بالاستعلام عن تاريخ معين بواسطة SELECT لايقوم بتحديد نفس تاريخ اليوم moh61 1 403 13-08-23, 01:06 PM
آخر رد: تركي الحلواني

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


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