المشاركات : 271
المواضيع 70
الإنتساب : Sep 2018
السمعة :
5
الشكر: 224
تم شكره 325 مرات في 179 مشاركات
السلام عليكم
عندي كود لاضافة الحدث الدي قام به المستخدم بحيث انه يقوم بحفظ التاريخ والوقت تلقائي بدون ادخالهم يدويا
وهدا الكود كان شغال تمام علي الاكسيس ولكن المشكلة ظهرت بعد تحويل قاعدة البيانات الي سيكوال سيرفر
وهدا هو الكود المستخدم
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)
وهده صوره من الخطأ
الرجاء المساعده وبارك الله فيكم
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
وعليكم السلام ورحمة الله وبركاته
لم ادقق في الكود بالصورة لكن بما انك تريد عمل فكرة مراقبة او تقرير فلدي اقتراح ان تعمل هذا كاجراء مخزن اي تكون له قيمة افتراضية فلن تضطر للتعامل معه بالكود.
ننتظر الاخوة ...لاني احتاج التجربة اولا.
المشاركات : 45
المواضيع 11
الإنتساب : Jan 2018
السمعة :
2
الشكر: 45
تم شكره 47 مرات في 22 مشاركات
فكرة اخي العزيز سعود جيدة وتعمل
لكن ان كنت تريد ان تعمل بدون اجراء فهناك تعديل بسيط في الكود
تجعل الوقت والتاريخ باراماتير عادي جدا
وتضيف قيمتهم بالفيجوال بيسك
مثل
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 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
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات
(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() إلى
يا رحمن الدنيا والآخرة ورحيمهما
المشاركات : 271
المواضيع 70
الإنتساب : Sep 2018
السمعة :
5
الشكر: 224
تم شكره 325 مرات في 179 مشاركات
31-07-19, 07:33 PM
(آخر تعديل لهذه المشاركة : 31-07-19, 07:33 PM {2} بواسطة Emam emam.)
(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() إلى
بارك الله فيك اخي حريف برمجه
وجزاك الله خير الجزاء
ولا انسي اخي سعود واخي اللورد محمود
جزاهم الله عنا كل خير
ولكن ما اريده هو ما قاله اخي حريف برمجه
الكود اشتغل تمام والحمد لله
ولكن يقوم بحفظ التاريخ كاملا يعني ( 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() إلى
بارك الله فيك اخي حريف برمجه
وجزاك الله خير الجزاء
ولا انسي اخي سعود واخي اللورد محمود
جزاهم الله عنا كل خير
ولكن ما اريده هو ما قاله اخي حريف برمجه
الكود اشتغل تمام والحمد لله
ولكن يقوم بحفظ التاريخ كاملا يعني ( 05:20:00 31/07/2019 )
ولكن اريد ان يحفظ التاريخ لوحده والوقت لوحده
فكيف دلك وجزاكم الله خيرا
|