- في البداية ، ماهي صيغة أو تنسيق الوقت الذي تحفظه في الحقل time ، الأفضل أن يكون حفظ الوقت بتنسيق 24 ساعه يعني يكون
الوقت من غير حرف ال ص أو م أو AM أو PM بل يكون أرقام فقط يعني الساعة ١٢:٠٠ ص تكون ٠٠:٠٠ والساعة ٠١:٠٠ م تكون ١٣:٠٠ .
- هل أنت تحفظ الوقت كامل يعني رقم الساعة والدقيقة والثانية أم الساعة والدقيقة ، فإذا كنت تحفظ الوقت كامل وبناءً على ماطلبت أن يكون فحص حقل ال time كل خمس ثواني فمن الممكن أن لايتم التطابق إلا نادراً جداً ، لذلك من الأفضل أن تحفظ الساعة والدقيقة فقط وبهذا ستسهل عملية
المقارنة أو المطابقة .
- إذاً لنفترض أنك تحفظ الوقت بتنسيق ٢٤ ساعة وأيضاً تحفظ الوقت بأخذ الساعات والدقائق فقط من دون الثواني ، ولنفترض أن إسم الجدول Table1 وإسم متغير الخاص بالإتصال بقاعدة البيانات DB ولنفترض أن نوع الحقل time نصي ونوع الحقل
state رقمي ، سيكون كود التايمر بهذا الشكل :
Dim CurTime As String
CurTime = Format(Time , "HH:MM")
DB.execute "update Table1 set state=1 where time='" & Trim$(CurTime) & "'"
- وبهذا الكود سيتم تعديل حقل ال state لكل سجل في الجدول يكون قيمة حقل ال time فيه يساوي الوقت الحالي .
- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next