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

يااخواني هل من حل

ضع لكل سجل  في قاعدة البيانات حقل تاريخ يحتوي تاريخ ادخال السجل الى قاعدة البيانات او وضع قيمة له او تعديل عليه
ثم يمكنك بعد ذلك ان تعمل استعلام عن السجلات التي حقل التاريخ فيها له قيمة معينة هي اكبر من تاريخ كذا او اصغر وهكذا
ثم تقوم بحذفها او مهما اردت ان تفعل بها

(04-12-22, 12:19 AM)معاند الحظ كتب : [ -> ]ضع لكل سجل  في قاعدة البيانات حقل تاريخ يحتوي تاريخ ادخال السجل الى قاعدة البيانات او وضع قيمة له او تعديل عليه
ثم يمكنك بعد ذلك ان تعمل استعلام عن السجلات التي حقل التاريخ فيها له قيمة معينة هي اكبر من تاريخ كذا او اصغر وهكذا
ثم تقوم بحذفها او مهما اردت ان تفعل بها

(28-11-22, 07:15 PM)anes كتب : [ -> ]

السلام عليكم 

احتاج تطبيق الكود هذا لحذف السجلات القديمة من قاعدة البيانات اكسس

اتمنى من الاخوة عمل مثال ولكم جزيل الشكر

ما المشكلة لديك

فالكود المذكور في الرابط يعمل جيدا

لقد طبقته في مشروعي الخاص وحذف السجلات القديمة التي مضى عليها اكثر من 30يوم

وهو هذا الجزء الذي يخص قاعدة البيانات اكسس حسب طلبك

إقتباس :Access
كود :
DELETE FROM [table] WHERE DATEDIFF('d', [column3], NOW()) > 30

فقط قم بتغيير [table] الى اسم الجدول لديك
وتغيير [column3] الى اسم العمود لديك

الامر بسيط جدا حتى على المبتدئ جدا ولكن اذا حاولت ولم تعرف تطبيقه فقم بعمل مشروع بسيط فيه قاعدة بيانات اكسس تحتوي بيانات بتاريخ قديم وارفقه هنا ليستطيع الاعضاء التعديل عليه وارساله لك

(11-12-22, 06:35 PM)gho كتب : [ -> ]

(28-11-22, 07:15 PM)anes كتب : [ -> ]

السلام عليكم 

احتاج تطبيق الكود هذا لحذف السجلات القديمة من قاعدة البيانات اكسس

اتمنى من الاخوة عمل مثال ولكم جزيل الشكر

ما المشكلة لديك

فالكود المذكور في الرابط يعمل جيدا

لقد طبقته في مشروعي الخاص وحذف السجلات القديمة التي مضى عليها اكثر من 30يوم

وهو هذا الجزء الذي يخص قاعدة البيانات اكسس حسب طلبك

إقتباس :Access
كود :
DELETE FROM [table] WHERE DATEDIFF('d', [column3], NOW()) > 30

فقط قم بتغيير [table] الى اسم الجدول لديك
وتغيير [column3] الى اسم العمود لديك

الامر بسيط جدا حتى على المبتدئ جدا ولكن اذا حاولت ولم تعرف تطبيقه فقم بعمل مشروع بسيط فيه قاعدة بيانات اكسس تحتوي بيانات بتاريخ قديم وارفقه هنا ليستطيع الاعضاء التعديل عليه وارساله لك

مرحبا بكم يا جماعة ...

عندي سؤالين بسيطين :

* هل ينبغي أن يكون column3 عبارة عن تواريخ ؟
* هل يرمز حرف d في الاستعلام إلى تاريخ اليوم ؟ وإذا كان الجواب نعم فهل صياغته الصحيحة d أم dd ؟

أرجو الجواب ، وشكرا .

(11-12-22, 06:35 PM)gho كتب : [ -> ]

(28-11-22, 07:15 PM)anes كتب : [ -> ]

السلام عليكم 

احتاج تطبيق الكود هذا لحذف السجلات القديمة من قاعدة البيانات اكسس

اتمنى من الاخوة عمل مثال ولكم جزيل الشكر

ما المشكلة لديك

فالكود المذكور في الرابط يعمل جيدا

لقد طبقته في مشروعي الخاص وحذف السجلات القديمة التي مضى عليها اكثر من 30يوم

وهو هذا الجزء الذي يخص قاعدة البيانات اكسس حسب طلبك

إقتباس :Access
كود :
DELETE FROM [table] WHERE DATEDIFF('d', [column3], NOW()) > 30

فقط قم بتغيير [table] الى اسم الجدول لديك
وتغيير [column3] الى اسم العمود لديك

الامر بسيط جدا حتى على المبتدئ جدا ولكن اذا حاولت ولم تعرف تطبيقه فقم بعمل مشروع بسيط فيه قاعدة بيانات اكسس تحتوي بيانات بتاريخ قديم وارفقه هنا ليستطيع الاعضاء التعديل عليه وارساله لك

انا جربته قبل ان اطرح هذا السؤال اخي الكود يحذف كل شيء 
يعني يحصد كل شي موجود في قاعدة البيانات
لو تكرمت اخي ضع المثال الذي نجح معك الله يحفظك

(11-12-22, 08:13 PM)أبو خالد الشكري كتب : [ -> ]

(11-12-22, 06:35 PM)gho كتب : [ -> ]

(28-11-22, 07:15 PM)anes كتب : [ -> ]

السلام عليكم 

احتاج تطبيق الكود هذا لحذف السجلات القديمة من قاعدة البيانات اكسس

اتمنى من الاخوة عمل مثال ولكم جزيل الشكر

ما المشكلة لديك

فالكود المذكور في الرابط يعمل جيدا

لقد طبقته في مشروعي الخاص وحذف السجلات القديمة التي مضى عليها اكثر من 30يوم

وهو هذا الجزء الذي يخص قاعدة البيانات اكسس حسب طلبك

إقتباس :Access
كود :
DELETE FROM [table] WHERE DATEDIFF('d', [column3], NOW()) > 30

فقط قم بتغيير [table] الى اسم الجدول لديك
وتغيير [column3] الى اسم العمود لديك

الامر بسيط جدا حتى على المبتدئ جدا ولكن اذا حاولت ولم تعرف تطبيقه فقم بعمل مشروع بسيط فيه قاعدة بيانات اكسس تحتوي بيانات بتاريخ قديم وارفقه هنا ليستطيع الاعضاء التعديل عليه وارساله لك

مرحبا بكم يا جماعة ...

عندي سؤالين بسيطين :

* هل ينبغي أن يكون column3 عبارة عن تواريخ ؟
* هل يرمز حرف d في الاستعلام إلى تاريخ اليوم ؟ وإذا كان الجواب نعم فهل صياغته الصحيحة d أم dd ؟

أرجو الجواب ، وشكرا .

* هل ينبغي أن يكون column3 عبارة عن تواريخ ؟
نعم

* هل يرمز حرف d في الاستعلام إلى تاريخ اليوم ؟ وإذا كان الجواب نعم فهل صياغته الصحيحة d أم dd ؟
لا، فهو يرمز للفرق بالأيام وهو اختصار لكلمة day وفي الأكسس يوضع بين علامات تنصيص مفردة 'd'

---

(11-12-22, 08:37 PM)anes كتب : [ -> ]

(11-12-22, 06:35 PM)gho كتب : [ -> ]

(28-11-22, 07:15 PM)anes كتب : [ -> ]

السلام عليكم 

احتاج تطبيق الكود هذا لحذف السجلات القديمة من قاعدة البيانات اكسس

اتمنى من الاخوة عمل مثال ولكم جزيل الشكر

ما المشكلة لديك

فالكود المذكور في الرابط يعمل جيدا

لقد طبقته في مشروعي الخاص وحذف السجلات القديمة التي مضى عليها اكثر من 30يوم

وهو هذا الجزء الذي يخص قاعدة البيانات اكسس حسب طلبك

إقتباس :Access
كود :
DELETE FROM [table] WHERE DATEDIFF('d', [column3], NOW()) > 30

فقط قم بتغيير [table] الى اسم الجدول لديك
وتغيير [column3] الى اسم العمود لديك

الامر بسيط جدا حتى على المبتدئ جدا ولكن اذا حاولت ولم تعرف تطبيقه فقم بعمل مشروع بسيط فيه قاعدة بيانات اكسس تحتوي بيانات بتاريخ قديم وارفقه هنا ليستطيع الاعضاء التعديل عليه وارساله لك

انا جربته قبل ان اطرح هذا السؤال اخي الكود يحذف كل شيء 
يعني يحصد كل شي موجود في قاعدة البيانات
لو تكرمت اخي ضع المثال الذي نجح معك الله يحفظك

أولا: قد تكوك البيانات لديك كلها انتهى تاريخها.

ثانيا: ألم تقرأ كلمة خاص!!!

(11-12-22, 06:35 PM)gho كتب : [ -> ]ما المشكلة لديك

فالكود المذكور في الرابط يعمل جيدا

لقد طبقته في مشروعي الخاص وحذف السجلات القديمة التي مضى عليها اكثر من 30يوم


الامر بسيط جدا حتى على المبتدئ جدا ولكن اذا حاولت ولم تعرف تطبيقه فقم بعمل مشروع بسيط فيه قاعدة بيانات اكسس تحتوي بيانات بتاريخ قديم وارفقه هنا ليستطيع الاعضاء التعديل عليه وارساله لك

قلت لك "فقم (المخاطب أنت) بعمل مشروع بسيط فيه قاعدة بيانات اكسس تحتوي بيانات بتاريخ قديم وارفقه هنا ليستطيع الاعضاء التعديل عليه وارساله لك"

إذا كنت فعلا تريد المساعدةـ فضع (أنت) ما لديك ليساعدك الاعضاء.

(11-12-22, 08:40 PM)أولا: قد تكوك البيانات لديك كلها انتهى تاريخها. كتب : [ -> ]ثانيا: ألم تقرأ كلمة خاص!!!

(11-12-22, 06:35 PM)gho كتب : [ -> ]ما المشكلة لديك

فالكود المذكور في الرابط يعمل جيدا

لقد طبقته في مشروعي الخاص وحذف السجلات القديمة التي مضى عليها اكثر من 30يوم


الامر بسيط جدا حتى على المبتدئ جدا ولكن اذا حاولت ولم تعرف تطبيقه فقم بعمل مشروع بسيط فيه قاعدة بيانات اكسس تحتوي بيانات بتاريخ قديم وارفقه هنا ليستطيع الاعضاء التعديل عليه وارساله لك

قلت لك "فقم (المخاطب أنت) بعمل مشروع بسيط فيه قاعدة بيانات اكسس تحتوي بيانات بتاريخ قديم وارفقه هنا ليستطيع الاعضاء التعديل عليه وارساله لك"

إذا كنت فعلا تريد المساعدةـ فضع (أنت) ما لديك ليساعدك الاعضاء.

* هل ينبغي أن يكون column3 عبارة عن تواريخ ؟
نعم

* هل يرمز حرف d في الاستعلام إلى تاريخ اليوم ؟ وإذا كان الجواب نعم فهل صياغته الصحيحة d أم dd ؟
لا، فهو يرمز للفرق بالأيام وهو اختصار لكلمة day وفي الأكسس يوضع بين علامات تنصيص مفردة 'd'
----------------------------------------------------------------------------------------------------------------------------------------------------

مرحبا بكم جميعا 

تمت تجربة الكود الذي أشار إليه الأخ العزيز anes ، والأخ العزيز gho

وهو يعمل بكل كفاءة ما شاء الله

عملت تطبيق بسيط (مرفق) يقوم بحذف السجلات التي تعدت شهر من تاريخ تشغيل البرنامج
وهو فعلا (حسب تاريخ اليوم) يقوم بحذف 3 سجلات قديمة ، ويبقي على سجلين اثنين لم يتجاوزا شهرًا !

لك خالص الشكر والتقدير على هذا الكود الرائع .