[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته


هذا التعديل

كود :

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")))

السلام عليكم ورحمة الله وبركاته

[سعود]

انظر للصورة تاريخ الموضوع احدث ومع ذلك لم يتم وضع ايقونة خضراء

---

خلاص اخوي ابو رايد اظن انها انتهت المشكلة والخطا كان بعدم طلب max بالاستعلام
بارك الله فيك

[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته


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

وأيضاً لا تجعل اسم عام مثل lastTime بل حدده مثلا آخر وقت للموضوع يكون threadLastTime


الله يوفقك


السلام عليكم ورحمة الله وبركاته

[سعود]

باذن الله اخي ابو رائد احتاج تعديلات منطقية فقط هذه النسخة او المحاولة الخامسة لبرمجة منتدى يرضي المستخدم البسيط.
احتاج افكار تنسيقية لمخططات الجدول والديف وغيرها مثل
tr td div
يعني احتاج مسميات اضعها في ملف الاستايل بحيث يسهل التعديل وايضا يمكن لاي شخص بناء استايل خاص به
اول معلومة احتاجها كيف اغير ملف الاستايل .css وقت التشغيل ويكون هذا التغيير فقط للاعضاء توفيرا للوقت.

[محمد الحاج خلف]

السلام عليكم

لتغيير ملف CSS او الثيمات عموما ,, بإمكانك الاطلاع على الموضوع بالكامل على الرابط التالي : استخدام الثيمات في ASP.NET وهو الجزء الخامس من كتاب :
سلسلة ASP.NET خطوة بخطوة حتى الاحتراف

تحياتي

[سعود]

ماشاء الله روعة الكتاب بين نقطة غامضة.

---

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