تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة بكود التحديث لقاعدة البيانات
#1
السلام عليكم

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

الكود

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

صورة الاداة


   


الخصائص  =Short


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

   

كود :
 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
الرد
تم الشكر بواسطة:
#2
جرب هذا

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

لاحظ أن اليوم والشهر يجب أن يكونا من منزلتين (00) وليست منزلة واحدة، وذلك من أجل التطابق مع dd/MM/yyyy
الرد
تم الشكر بواسطة:
#3
(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)

خليتة يدخل القيمة مباشرتا ولكن بالاضافة لايعمل مباشرتا ولا بطريقة متغير التاريخ
والكود يعمل جيدا الاضافة بدون حقل التاريخ او اضافتة
الرد
تم الشكر بواسطة:
#4
(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 لمدة ثوان وسيظهر لك قيمتها، ومنها ستعرف ما يحدث في التاريخ.
الرد
تم الشكر بواسطة:
#5
(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 لمدة ثوان وسيظهر لك قيمتها، ومنها ستعرف ما يحدث في التاريخ.

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

جزاك اللّة كل خير علي المساعدة
الرد
تم الشكر بواسطة: rnmr , rnmr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 12 292 14-06-19, 03:03 PM
آخر رد: elgokr
  مشكلة فى جلب كامل الصفحة ابو روضة 11 294 07-06-19, 03:51 AM
آخر رد: ابو روضة
  مشكلة في Decryptor Mohamed20 1 74 05-06-19, 11:27 PM
آخر رد: elgokr
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 8 156 05-06-19, 03:40 AM
آخر رد: heshamelkomy71
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 11 318 04-06-19, 03:12 PM
آخر رد: elgokr
  مشكلة في الاتصال بقاعدة البيانات والسيرفر sqlserver nooralcown 1 266 03-06-19, 12:33 PM
آخر رد: سعود
  [ تمّ الحل ] : تنسيق التاريخ بقاعدة البيانات : الأكسس عبد العزيز البسكري 16 906 03-06-19, 11:56 AM
آخر رد: سعود
  مشكلة في التاريخ مع التقرير nooralcown 1 67 30-05-19, 01:52 PM
آخر رد: اسامه الهرماوي
  [VB.NET] مشكلة في الكريستال ريبورت abu.hanen4u 2 106 27-05-19, 04:48 AM
آخر رد: abu.hanen4u
  [VB.NET] مشكلة حدثت مع sql اسامه الهرماوي 2 92 23-05-19, 08:19 PM
آخر رد: اسامه الهرماوي

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


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