+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعده في كود متابعة المستخدمين (/showthread.php?tid=30633)
مساعده في كود متابعة المستخدمين - Emam emam - 31-07-19
السلام عليكم
عندي كود لاضافة الحدث الدي قام به المستخدم بحيث انه يقوم بحفظ التاريخ والوقت تلقائي بدون ادخالهم يدويا
وهدا الكود كان شغال تمام علي الاكسيس ولكن المشكلة ظهرت بعد تحويل قاعدة البيانات الي سيكوال سيرفر
وهدا هو الكود المستخدم
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)
الرجاء المساعده وبارك الله فيكم
[attachment=22307]
RE: مساعده في كود متابعة المستخدمين - سعود - 31-07-19
وعليكم السلام ورحمة الله وبركاته
لم ادقق في الكود بالصورة لكن بما انك تريد عمل فكرة مراقبة او تقرير فلدي اقتراح ان تعمل هذا كاجراء مخزن اي تكون له قيمة افتراضية فلن تضطر للتعامل معه بالكود.
ننتظر الاخوة ...لاني احتاج التجربة اولا.
RE: مساعده في كود متابعة المستخدمين - اللورد محمود - 31-07-19
فكرة اخي العزيز سعود جيدة وتعمل
لكن ان كنت تريد ان تعمل بدون اجراء فهناك تعديل بسيط في الكود
تجعل الوقت والتاريخ باراماتير عادي جدا
وتضيف قيمتهم بالفيجوال بيسك
مثل
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
RE: مساعده في كود متابعة المستخدمين - حريف برمجة - 31-07-19
(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()RE: مساعده في كود متابعة المستخدمين - Emam emam - 31-07-19
(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 )
ولكن اريد ان يحفظ التاريخ لوحده والوقت لوحده
فكيف دلك وجزاكم الله خيرا