تقييم الموضوع :
  • 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 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] هل ممكن كود فيجوال بيسك لزر تغير تاريخ الكمبيوتر للوراء وكود اخر ارجاعه طبيبعي jam3h 13 302 20-09-20, 08:46 PM
آخر رد: jam3h
  كتابة كود على اكثر من سطر khaled Mohammed 9 165 12-09-20, 10:01 AM
آخر رد: Anas Mahmoud
  [VB.NET] محتاج كود عرض اكثر من جدول فى داتا جرد فيو واحدة عن طريق اختيار الجدول من كومبوكس mohammed1994 1 174 01-09-20, 04:56 PM
آخر رد: اسامه الهرماوي
  اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم كريم عبودي 4 316 23-08-20, 01:59 PM
آخر رد: اسامه الهرماوي
  اخواني كيف أقوم بتحديد واختيار ( selection ) الصفوف التي بناء على القيمة في textbox2 جيولوجي مبتدئ 3 294 11-08-20, 10:00 AM
آخر رد: جيولوجي مبتدئ
  هل يمكن اضافة اكثر من tag فى ال button mostafa nada 11 726 06-08-20, 12:38 AM
آخر رد: mostafa nada
  خصم الكميات الموجوده باكتر من تاريخ NABILWARSAW 14 663 20-07-20, 08:29 PM
آخر رد: WaeLx
  جلب الصوره اكثر من صيغه alshandodi 5 336 26-06-20, 04:40 PM
آخر رد: alshandodi
  [VB.NET] مشكل في كود انتهاء تاريخ الصلاحية او الدفع rochdi191 6 372 23-06-20, 04:42 PM
آخر رد: rochdi191
  [سؤال] كيف اضهر اسم اليوم الحالي باللغه العربية بسام محمدغانم 2 308 09-06-20, 12:26 PM
آخر رد: Jounior_P

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


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