منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مشكلة بكود التحديث لقاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة بكود التحديث لقاعدة البيانات (/showthread.php?tid=26885)

مشكلة بكود التحديث لقاعدة البيانات - محمد اسماعيل - 11-10-18

السلام عليكم

عندي كود تحديث لقاعدة البيانات لايعمل عند اضافة قيمة لحقل التاريخ  من الداتا تايم بيكر ولكن يعمل بدون حقل التاريخ او اضافة التاريخة من الاداة

الكود

حاولت بالتحايل علي اداة الوقت لتغير صيغة الوقت ولكن دون فائدة

صورة الاداة


[attachment=19809]


الخصائص  =Short


الحقل بقاعدة البيانات اكسيس نفس الخاصية Short date

[attachment=19810]

كود :
 Sub UPDATETB()

        Dim com As New OleDbCommand("UPDATE CUSTOMERDETAILS_TB SET CUSTOMERDETAILS_CODE=@CUSTOMERDETAILS_CODE,CUSTOMERDETALIS_NAME=@CUSTOMERDETALIS_NAME,CUSTOMERDETALIS_COMPANY=@CUSTOMERDETALIS_COMPANY,CUSTOMERDETALIS_ADDRESS=@CUSTOMERDETALIS_ADDRESS,CUSTOMERDETALIS_TELEPHON=@CUSTOMERDETALIS_TELEPHON,CUSTOMERDETALIS_NOTE=@CUSTOMERDETALIS_NOTE,CUSTOMERDETALIS_DATE=@CUSTOMERDETALIS_DATE,CUSTOMERDETALIS_SHOW=@,CUSTOMERDETALIS_SHOW WHERE CUSTOMERDETALIS_ID = @CUSTOMERDETALIS_ID", con)
        Dim checkUPDAT As Boolean = True
        Dim dateup As Date = Format(FPAPERCCLIENONUPDATE.DATATIM_DATERECOR.Value, "dd/MM/yyyy")
        Try
            con.Open()

            com.Parameters.AddWithValue("@CUSTOMERDETAILS_CODE", FPAPERCCLIENONUPDATE.LAB_CODEVAL.Text)
            com.Parameters.AddWithValue("@CUSTOMERDETALIS_NAME", FPAPERCCLIENONUPDATE.TEXT_CLIENTNAM.Text)
            com.Parameters.AddWithValue("@CUSTOMERDETALIS_COMPANY", FPAPERCCLIENONUPDATE.TEXT_CLIENTCOMP.Text)
            com.Parameters.AddWithValue("@CUSTOMERDETALIS_ADDRESS", FPAPERCCLIENONUPDATE.TEXT_CLIENTADDRES.Text)
            com.Parameters.AddWithValue("@CUSTOMERDETALIS_TELEPHON", FPAPERCCLIENONUPDATE.TEXT_CLIENTTELEPHON.Text)
            com.Parameters.AddWithValue("@CUSTOMERDETALIS_NOTE", FPAPERCCLIENONUPDATE.TEXT_CLIENTNOT.Text)
            com.Parameters.AddWithValue("@CUSTOMERDETALIS_DATE", dateup)
            com.Parameters.AddWithValue("@CUSTOMERDETALIS_SHOW", checkUPDAT)
            com.Parameters.AddWithValue("@CUSTOMERDETALIS_ID", FPAPERCCLIENONUPDATE.LAB_IDVAL.Text)


            If com.ExecuteNonQuery() = 1 Then
                conn()
                               
MsgBox("update success")
     con.Close()

            Else
                MsgBox("update field")   

      End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
                End Try
    End Sub


RE: مشكلة بكود التحديث لقاعدة البيانات - rnmr - 11-10-18

جرب هذا

كود :
Dim dateup As Date = Date.Parseexact(FPAPERCCLIENONUPDATE.DATATIM_DATERECOR.Value,"dd/MM/yyyy",New Globalization.CultureInfo("ar-EG"))

لاحظ أن اليوم والشهر يجب أن يكونا من منزلتين (00) وليست منزلة واحدة، وذلك من أجل التطابق مع dd/MM/yyyy

RE: مشكلة بكود التحديث لقاعدة البيانات - محمد اسماعيل - 11-10-18

(11-10-18, 05:17 AM)rnmr كتب : جرب هذا

كود :
Dim dateup As Date = Date.Parseexact(FPAPERCCLIENONUPDATE.DATATIM_DATERECOR.Value,"dd/MM/yyyy",New Globalization.CultureInfo("ar-EG"))

لاحظ أن اليوم والشهر يجب أن يكونا من منزلتين (00) وليست منزلة واحدة، وذلك من أجل التطابق مع dd/MM/yyyy

هجرب ورد عليك
خليت الكود بعملية التحديث
الكود بالشكل التالي واشتغل مش عارف اشتغل دلوقتي لية


كود :
com.Parameters.AddWithValue("@CUSTOMERDETALIS_DATE", FPAPERCCLIENONUPDATE.DATATIM_DATERECOR.Value)

خليتة يدخل القيمة مباشرتا ولكن بالاضافة لايعمل مباشرتا ولا بطريقة متغير التاريخ
والكود يعمل جيدا الاضافة بدون حقل التاريخ او اضافتة

RE: مشكلة بكود التحديث لقاعدة البيانات - rnmr - 11-10-18

(11-10-18, 05:28 AM)محمد اسماعيل كتب :
(11-10-18, 05:17 AM)rnmr كتب : جرب هذا

كود :
Dim dateup As Date = Date.Parseexact(FPAPERCCLIENONUPDATE.DATATIM_DATERECOR.Value,"dd/MM/yyyy",New Globalization.CultureInfo("ar-EG"))

لاحظ أن اليوم والشهر يجب أن يكونا من منزلتين (00) وليست منزلة واحدة، وذلك من أجل التطابق مع dd/MM/yyyy

هجرب ورد عليك
خليت الكود بعملية التحديث
الكود بالشكل التالي واشتغل مش عارف اشتغل دلوقتي لية


كود :
com.Parameters.AddWithValue("@CUSTOMERDETALIS_DATE", FPAPERCCLIENONUPDATE.DATATIM_DATERECOR.Value)

خليتة يدخل القيمة مباشرتا ولكن بالاضافة لايعمل مباشرتا ولا بطريقة متغير التاريخ
والكود يعمل جيدا الاضافة بدون حقل التاريخ او اضافتة


احذف اوامر Try لتعرف مكان الخطأ 


ضع المؤشر على السطر @CUSTOMERDETALIS_DATE واضغط على F9 لتظهر نقطة حمراء على يسار محرر الكود ثم قم بتشغيل المشروع وقم بتشغيل المشروع وتنفيذ الكود حتى يتوقف المشروع على هذا السطر،
ثم ضع المؤشر على كلمة Value لمدة ثوان وسيظهر لك قيمتها، ومنها ستعرف ما يحدث في التاريخ.

RE: مشكلة بكود التحديث لقاعدة البيانات - محمد اسماعيل - 11-10-18

(11-10-18, 06:31 AM)rnmr كتب :
(11-10-18, 05:28 AM)محمد اسماعيل كتب :
(11-10-18, 05:17 AM)rnmr كتب : جرب هذا

كود :
Dim dateup As Date = Date.Parseexact(FPAPERCCLIENONUPDATE.DATATIM_DATERECOR.Value,"dd/MM/yyyy",New Globalization.CultureInfo("ar-EG"))

لاحظ أن اليوم والشهر يجب أن يكونا من منزلتين (00) وليست منزلة واحدة، وذلك من أجل التطابق مع dd/MM/yyyy

هجرب ورد عليك
خليت الكود بعملية التحديث
الكود بالشكل التالي واشتغل مش عارف اشتغل دلوقتي لية


كود :
com.Parameters.AddWithValue("@CUSTOMERDETALIS_DATE", FPAPERCCLIENONUPDATE.DATATIM_DATERECOR.Value)

خليتة يدخل القيمة مباشرتا ولكن بالاضافة لايعمل مباشرتا ولا بطريقة متغير التاريخ
والكود يعمل جيدا الاضافة بدون حقل التاريخ او اضافتة


احذف اوامر Try لتعرف مكان الخطأ 


ضع المؤشر على السطر @CUSTOMERDETALIS_DATE واضغط على F9 لتظهر نقطة حمراء على يسار محرر الكود ثم قم بتشغيل المشروع وقم بتشغيل المشروع وتنفيذ الكود حتى يتوقف المشروع على هذا السطر،
ثم ضع المؤشر على كلمة Value لمدة ثوان وسيظهر لك قيمتها، ومنها ستعرف ما يحدث في التاريخ.

المشكلة طلعت بحقل الكود عملة لايتكرر ومع السرعة وضعت نفس الكود فرفض الاضافة او التحديث الحمد للّة تم الحل

جزاك اللّة كل خير علي المساعدة