السلام عليكم ورحمة الله وبركاته
هذا التعديل
كود :
Dim sql As String = "UPDATE [rdod] SET [mtime] = GETUTCDATE() WHERE [mformid] = @mformid "
Dim cm As New SqlCommand(Sql, con)
cm.Parameters.AddWithValue("@mformid", Val(tid.text))
السلام عليكم ورحمة الله وبركاته
ياسلام ان شالله انهي المشروع وانتظر حتى اتاكد من صحته لانه اسقمني واسقمته.
كود :
DATEADD( hour, 3, GETUTCDATE() )
بالنسبة للكود هذا هل استبدل GETUTCDATE() باي اداة تعرض التاريخ والوقت؟
اظن هذا اخر استفسار
اخوي ابو رايد بعد التعب والعناء والمشقة لم افلح لم يظهر خطا وانما لم يتحق الشرط مع انه متحقق
هذا كامل الكود في عنصر التحكم
كود :
If Session("name") = "" Then
Image1.Visible = False
Else
Image1.Visible = True
Dim tblasttime As DateTime
Dim thtime As DateTime
If mtime.Visible = True Then
Dim cm As New SqlCommand("", con)
cm.CommandText = "select tname,lasttime from tbs where tname=@tname"
cm.Parameters.AddWithValue("@tname", Session("name"))
If con.State = Data.ConnectionState.Closed Then
con.Open()
End If
Dim dr As SqlDataReader = cm.ExecuteReader
If dr.Read Then
tblasttime = CDate(dr.Item("lasttime"))
End If
dr.Close()
cm.Parameters.Clear()
cm.CommandText = "select mformid,mtime from modo3 where mformid=@mformid"
cm.Parameters.AddWithValue("@mformid", Val(tid.Text))
If con.State = Data.ConnectionState.Closed Then
con.Open()
End If
Dim thr As SqlDataReader = cm.ExecuteReader
If thr.Read Then
thtime = CDate(thr.Item("mtime"))
End If
If thtime > tblasttime Then
Image1.ImageUrl = "~/mgs/on.png"
Else
Image1.ImageUrl = "~/mgs/off.png"
End If
Else
Image1.ImageUrl = "~/mgs/off.png"
End If
End If
مالمطلوب تعديله
السلام عليكم ورحمة الله وبركاته
هناك طريقتين لتطبيق فارق التوقيت في عرض البيانات
احداهما تطبيقها من داخل جملة الاستعلام
كود :
Dim sql As String = " SELECT *, DATEADD(hour,@tzone,[mtime]) AS mtime " & _
" FROM [rdod] " & _
" WHERE [mformid] = @mformid "
Dim cm As New SqlCommand(sql, con)
cm.Parameters.AddWithValue("@tzone", 3)
cm.Parameters.AddWithValue("@mformid", Val(tid.text))
'
'
'
Dim m As Date = CDate(tbr.Item("mtime"))
الاخر بعد الاستعلام بالشكل العادي يتم تطبق فارق التوقيت على ال Item
كود :
Dim sql As String = " SELECT * " & _
" FROM [rdod] " & _
" WHERE [mformid] = @mformid "
Dim cm As New SqlCommand(sql, con)
cm.Parameters.AddWithValue("@mformid", Val(tid.text))
'
'
'
Dim mtime As Date = DateAdd(DateInterval.Hour, 3, CDate(tbr.Item("mtime")))
السلام عليكم ورحمة الله وبركاته
![[صورة مرفقة: z5SnX.png]](http://im42.gulfup.com/z5SnX.png)
انظر للصورة تاريخ الموضوع احدث ومع ذلك لم يتم وضع ايقونة خضراء
خلاص اخوي ابو رايد اظن انها انتهت المشكلة والخطا كان بعدم طلب max بالاستعلام
بارك الله فيك
السلام عليكم ورحمة الله وبركاته
راجع أسماء الجداول والحقول واجعلها واضحة المعنى تبدأ كلماتها أول كلمة بأحرف صغير ثم الكلمات التي تليها تبدأ كل كلمة بحرف كبير مثل threadLastTime وهكذا ليسهل رسم خطة عملها.
وأيضاً لا تجعل اسم عام مثل lastTime بل حدده مثلا آخر وقت للموضوع يكون threadLastTime
الله يوفقك
السلام عليكم ورحمة الله وبركاته
باذن الله اخي ابو رائد احتاج تعديلات منطقية فقط هذه النسخة او المحاولة الخامسة لبرمجة منتدى يرضي المستخدم البسيط.
احتاج افكار تنسيقية لمخططات الجدول والديف وغيرها مثل
tr td div
يعني احتاج مسميات اضعها في ملف الاستايل بحيث يسهل التعديل وايضا يمكن لاي شخص بناء استايل خاص به
اول معلومة احتاجها كيف اغير ملف الاستايل .css وقت التشغيل ويكون هذا التغيير فقط للاعضاء توفيرا للوقت.
ماشاء الله روعة الكتاب بين نقطة غامضة.
فيه غموض اتمنى ايضاحه وهو كيف الى تطبيق ستايل موجود من دون الحاجة الى ارتباط او كويري سترينق
يعني مثلا عضو مسجل وضمن جدول الاعضاء عمود الثيم او الاستايل css المفضل كيف نقوم بتفعيله وهذه الحال