تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعده في كود متابعة المستخدمين
#1
السلام عليكم
عندي كود لاضافة الحدث الدي قام به المستخدم  بحيث انه يقوم بحفظ التاريخ والوقت تلقائي بدون ادخالهم يدويا
وهدا الكود كان شغال تمام علي الاكسيس ولكن المشكلة ظهرت بعد تحويل قاعدة البيانات الي سيكوال سيرفر


وهدا هو الكود المستخدم
PHP كود :
Public Sub Insert_FllowUp_Tble(ByVal USERNAME1 As StringByVal EVENTS1 As String)
 
       Dim cmd As New SqlCommand("Insert into FllowUp_Tble (USERNAME1,EVENTS1,DATETIME1, DATETIME2)
                                    values (@USERNAME1,@EVENTS1,date(),time())"
connSQL)
 
       cmd.Parameters.Add("USERNAME1"SqlDbType.NVarChar).Value USERNAME1
        cmd
.Parameters.Add("EVENTS1"SqlDbType.NVarChar).Value EVENTS1
        If connSQL
.State 1 Then connSQL.Close()
 
       connSQL.Open()
 
       cmd.ExecuteNonQuery()
 
       connSQL.Close()
 
       cmd Nothing
    End Sub 
 ثم اقوم باستدعائه في زر الحفظ هكدا

PHP كود :
       Insert_FllowUp_Tble(lblUserName.TextEventss
وهده صوره من الخطأ
الرجاء المساعده وبارك الله فيكم

   
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته
لم ادقق في  الكود بالصورة لكن بما انك تريد عمل فكرة مراقبة او تقرير فلدي اقتراح ان تعمل هذا  كاجراء مخزن  اي تكون له قيمة افتراضية فلن تضطر للتعامل معه بالكود.
ننتظر الاخوة ...لاني احتاج التجربة  اولا.
الرد }}}
تم الشكر بواسطة: Emam emam , asemshahen5
#3
فكرة اخي العزيز سعود جيدة وتعمل
لكن ان كنت تريد ان تعمل بدون اجراء فهناك تعديل بسيط في الكود
تجعل الوقت والتاريخ باراماتير عادي جدا
وتضيف قيمتهم بالفيجوال بيسك
مثل
PHP كود :
Public Sub Insert_FllowUp_Tble(ByVal USERNAME1 As StringByVal EVENTS1 As String)
 
      Dim cmd As New SqlCommand("Insert into FllowUp_Tble (USERNAME1,EVENTS1,DATETIME1, DATETIME2)
                                   values (@USERNAME1,@EVENTS1,@date,@time)"
connSQL)
 
      cmd.Parameters.Add("USERNAME1"SqlDbType.NVarChar).Value USERNAME1
       cmd
.Parameters.Add("EVENTS1"SqlDbType.NVarChar).Value EVENTS1
       cmd
.Parameters.Add("date"SqlDbType.Date).Value Date.Now.Date
       cmd
.Parameters.Add("time"SqlDbType.DateTime).Value Date.Now
       
If connSQL.State 1 Then connSQL.Close()
 
      connSQL.Open()
 
      cmd.ExecuteNonQuery()
 
      connSQL.Close()
 
      cmd Nothing 
الرد }}}
تم الشكر بواسطة: Emam emam , asemshahen5 , asemshahen5
#4
(31-07-19, 01:29 AM)Emam emam كتب : السلام عليكم
عندي كود لاضافة الحدث الدي قام به المستخدم  بحيث انه يقوم بحفظ التاريخ والوقت تلقائي بدون ادخالهم يدويا
وهدا الكود كان شغال تمام علي الاكسيس ولكن المشكلة ظهرت بعد تحويل قاعدة البيانات الي سيكوال سيرفر


وهدا هو الكود المستخدم
PHP كود :
Public Sub Insert_FllowUp_Tble(ByVal USERNAME1 As StringByVal EVENTS1 As String)
 
       Dim cmd As New SqlCommand("Insert into FllowUp_Tble (USERNAME1,EVENTS1,DATETIME1, DATETIME2)
                                    values (@USERNAME1,@EVENTS1,date(),time())"
connSQL)
 
       cmd.Parameters.Add("USERNAME1"SqlDbType.NVarChar).Value USERNAME1
        cmd
.Parameters.Add("EVENTS1"SqlDbType.NVarChar).Value EVENTS1
        If connSQL
.State 1 Then connSQL.Close()
 
       connSQL.Open()
 
       cmd.ExecuteNonQuery()
 
       connSQL.Close()
 
       cmd Nothing
    End Sub 
 ثم اقوم باستدعائه في زر الحفظ هكدا

PHP كود :
       Insert_FllowUp_Tble(lblUserName.TextEventss
وهده صوره من الخطأ
الرجاء المساعده وبارك الله فيكم

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

في جملة SQL غير date() إلى
كود :
getdate()
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
#5
(31-07-19, 03:13 AM)حريف برمجة كتب :
(31-07-19, 01:29 AM)Emam emam كتب : السلام عليكم
عندي كود لاضافة الحدث الدي قام به المستخدم  بحيث انه يقوم بحفظ التاريخ والوقت تلقائي بدون ادخالهم يدويا
وهدا الكود كان شغال تمام علي الاكسيس ولكن المشكلة ظهرت بعد تحويل قاعدة البيانات الي سيكوال سيرفر


وهدا هو الكود المستخدم
PHP كود :
Public Sub Insert_FllowUp_Tble(ByVal USERNAME1 As StringByVal EVENTS1 As String)
 
       Dim cmd As New SqlCommand("Insert into FllowUp_Tble (USERNAME1,EVENTS1,DATETIME1, DATETIME2)
                                    values (@USERNAME1,@EVENTS1,date(),time())"
connSQL)
 
       cmd.Parameters.Add("USERNAME1"SqlDbType.NVarChar).Value USERNAME1
        cmd
.Parameters.Add("EVENTS1"SqlDbType.NVarChar).Value EVENTS1
        If connSQL
.State 1 Then connSQL.Close()
 
       connSQL.Open()
 
       cmd.ExecuteNonQuery()
 
       connSQL.Close()
 
       cmd Nothing
    End Sub 
 ثم اقوم باستدعائه في زر الحفظ هكدا

PHP كود :
       Insert_FllowUp_Tble(lblUserName.TextEventss
وهده صوره من الخطأ
الرجاء المساعده وبارك الله فيكم

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

في جملة SQL غير date() إلى
كود :
getdate()

بارك الله فيك اخي  حريف برمجه
وجزاك الله خير  الجزاء
ولا انسي اخي سعود واخي  اللورد محمود
جزاهم الله عنا كل خير
ولكن ما اريده هو ما قاله اخي حريف برمجه
الكود اشتغل تمام والحمد لله
ولكن يقوم بحفظ التاريخ كاملا يعني  ( 05:20:00  31/07/2019 )
ولكن اريد ان يحفظ التاريخ لوحده  والوقت لوحده 
فكيف دلك وجزاكم الله خيرا

(31-07-19, 03:13 AM)حريف برمجة كتب :
(31-07-19, 01:29 AM)Emam emam كتب : السلام عليكم
عندي كود لاضافة الحدث الدي قام به المستخدم  بحيث انه يقوم بحفظ التاريخ والوقت تلقائي بدون ادخالهم يدويا
وهدا الكود كان شغال تمام علي الاكسيس ولكن المشكلة ظهرت بعد تحويل قاعدة البيانات الي سيكوال سيرفر


وهدا هو الكود المستخدم
PHP كود :
Public Sub Insert_FllowUp_Tble(ByVal USERNAME1 As StringByVal EVENTS1 As String)
 
       Dim cmd As New SqlCommand("Insert into FllowUp_Tble (USERNAME1,EVENTS1,DATETIME1, DATETIME2)
                                    values (@USERNAME1,@EVENTS1,date(),time())"
connSQL)
 
       cmd.Parameters.Add("USERNAME1"SqlDbType.NVarChar).Value USERNAME1
        cmd
.Parameters.Add("EVENTS1"SqlDbType.NVarChar).Value EVENTS1
        If connSQL
.State 1 Then connSQL.Close()
 
       connSQL.Open()
 
       cmd.ExecuteNonQuery()
 
       connSQL.Close()
 
       cmd Nothing
    End Sub 
 ثم اقوم باستدعائه في زر الحفظ هكدا

PHP كود :
       Insert_FllowUp_Tble(lblUserName.TextEventss
وهده صوره من الخطأ
الرجاء المساعده وبارك الله فيكم

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

في جملة SQL غير date() إلى
كود :
getdate()

بارك الله فيك اخي  حريف برمجه
وجزاك الله خير  الجزاء
ولا انسي اخي سعود واخي  اللورد محمود
جزاهم الله عنا كل خير
ولكن ما اريده هو ما قاله اخي حريف برمجه
الكود اشتغل تمام والحمد لله
ولكن يقوم بحفظ التاريخ كاملا يعني  ( 05:20:00  31/07/2019 )
ولكن اريد ان يحفظ التاريخ لوحده  والوقت لوحده 
فكيف دلك وجزاكم الله خيرا
الرد }}}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده في تشغيل اكثرمن فورم في وقت واحد maherhaddaf 5 535 19-07-23, 03:28 PM
آخر رد: Taha Okla
  مساعده في كود ترحيل البيانات الى اكسل من داتا قرايد فيو maherhaddaf 1 624 27-06-23, 08:03 PM
آخر رد: Shade0001
  كيف اقوم بقفل الملف الذي يستخدمه احد المستخدمين ابو محمد محمد محمد 8 658 21-04-23, 05:58 PM
آخر رد: ابو محمد محمد محمد
Question [VB.NET] مساعده في طريقه الاتصال بالسيرفر ايهما افضل Àhmedsaif500 0 299 10-04-23, 09:45 AM
آخر رد: Àhmedsaif500
  سؤال بخصوص المستخدمين النشطاء الحاليين علي الشبكة عبدالكريم برشدان 1 385 27-03-23, 11:18 PM
آخر رد: sanyor77
  مساعده لوسمحتوا mahmoudabdelshafy1 3 533 16-03-23, 02:45 AM
آخر رد: mahmoudabdelshafy1
  [VB.NET] بالله عليكم مساعده عايز اقفل البرنامج بخصوص عمل اذن صرف اكسس وفيجوال 2013 hanyeltnen 7 1,889 04-02-23, 10:36 AM
آخر رد: hanyeltnen
  ممكن مساعده malekmohamed155 0 368 29-01-23, 10:48 PM
آخر رد: malekmohamed155
  [VB.NET] مساعده بسيطه في Dtatable Àhmedsaif500 0 335 06-01-23, 12:18 AM
آخر رد: Àhmedsaif500
  محتاج مساعده بسيطه مع اداه Treevieewer Àhmedsaif500 2 615 04-12-22, 02:39 PM
آخر رد: Àhmedsaif500

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


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