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

السلام عليكم
عندي كود لاضافة الحدث الدي قام به المستخدم  بحيث انه يقوم بحفظ التاريخ والوقت تلقائي بدون ادخالهم يدويا
وهدا الكود كان شغال تمام علي الاكسيس ولكن المشكلة ظهرت بعد تحويل قاعدة البيانات الي سيكوال سيرفر


وهدا هو الكود المستخدم
 ثم اقوم باستدعائه في زر الحفظ هكدا

وهده صوره من الخطأ
الرجاء المساعده وبارك الله فيكم

[attachment=22307]

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

فكرة اخي العزيز سعود جيدة وتعمل
لكن ان كنت تريد ان تعمل بدون اجراء فهناك تعديل بسيط في الكود
تجعل الوقت والتاريخ باراماتير عادي جدا
وتضيف قيمتهم بالفيجوال بيسك
مثل

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


وهدا هو الكود المستخدم

PHP كود :

Public Sub Insert_FllowUp_Tble(ByVal USERNAME1 As String, ByVal 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.Text, Eventss) 


وهده صوره من الخطأ
الرجاء المساعده وبارك الله فيكم

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

في جملة SQL غير date() إلى

(31-07-19, 03:13 AM)حريف برمجة كتب : [ -> ]

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


وهدا هو الكود المستخدم

PHP كود :

Public Sub Insert_FllowUp_Tble(ByVal USERNAME1 As String, ByVal 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.Text, Eventss) 


وهده صوره من الخطأ
الرجاء المساعده وبارك الله فيكم

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

في جملة 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 String, ByVal 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.Text, Eventss) 


وهده صوره من الخطأ
الرجاء المساعده وبارك الله فيكم

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

في جملة SQL غير date() إلى

كود :

getdate()

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