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

فى حال الحفظ والتواريخ كما هي دون تغيير يتم الحفظ بنجاح

ولكن فى حال تغيير التاريخ الى تاريخ مختلف تظهر الرسالة التالية

Conversion failed when converting date and/or time from character string.

علما اني استخدم الكود التالي فى الحفظ

PHP كود :

Public Sub ADD_(ByVal NAME_AR_PERIOD As String,
                   ByVal NAME_EN_PERIOD As String,
                   ByVal NOTE_ As String,
                   ByVal START_DATE As DateTime,
                    ByVal END_DAT As DateTime,
                    ByVal COD_E As Integer)
        Dim CON As New CLS_CON

        CON.EXECUTE_TXT("INSERT CLOSE_PERIOD (NAME_AR_PERIOD,NAME_EN_PERIOD,NOT_E,START_DAT,END_DAT,COD_E)VALUES('" & NAME_AR_PERIOD & "','" & NAME_EN_PERIOD & "','" & NOTE_ & "','" & START_DATE & "','" & END_DAT & "','" & COD_E & "')")
   
 End Sub

 Private Sub SAVE_Click(sender As System.Object, e As System.EventArgs) Handles SAVE.Click
       
        CLS_CLOSE_PERIOD_.ADD_(TXT_NAME.Text, TXT_NAME_ENG.Text, TXT_NOTE.Text, DP1.Value.ToShortDateString, DP2.Value.ToShortDateString(), TXT_CODE.Text)
        MessageBox.Show("   تمت عملية  الحفظ بنجاح ", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
        
    End Sub 

السلام عليكم

الكود يستخدم كلاس خاص اسمه CLS_CON ويعتمد الأمر على طريقة برمجته.

لو تضع المشروع حتى يتم إيجاد الكود المناسب.

شكرا جزيلا

تم التغلب علي المشكلة وعمل ستورت بروسيجر

مع الاكواد الاتية

PHP كود :

 Public Sub addd_(ByVal code_ As Integer,
                        ByVal name_ar As String,
                        ByVal name_en As String,
                        ByVal note_ As String,
                        ByVal start_date As DateTime,
                        ByVal end_date As DateTime,
                        ByVal p1_non As Integer)

        Dim con As New CLS_CON
        Dim prm(6) As SqlParameter

        prm(0) = New SqlParameter("@COD_E", SqlDbType.Int)
        prm(0).Value = code_
        prm(1) = New SqlParameter("@NAME_AR_PERIOD", SqlDbType.NVarChar, 50)
        prm(1).Value = name_ar

        prm(2) = New SqlParameter("@NAME_EN_PERIOD", SqlDbType.NVarChar, 50)
        prm(2).Value = name_en

        prm(3) = New SqlParameter("@NOT_E", SqlDbType.NVarChar, 500)
        prm(3).Value = note_

        prm(4) = New SqlParameter("@START_DAT", SqlDbType.DateTime)
        prm(4).Value = start_date

        prm(5) = New SqlParameter("@END_DAT", SqlDbType.DateTime)
        prm(5).Value = end_date

        prm(6) = New SqlParameter("@P1_NON", SqlDbType.Bit)
        prm(6).Value = p1_non
        con.EXECUTE_STORE("CLOSEE_PERIOD", prm)
    End Sub


            CLS_CLOSE_PERIOD_.addd_(TXT_CODE.Text, TXT_NAME.Text, TXT_NAME_ENG.Text, TXT_NOTE.Text, DP1.Value.ToShortDateString, DP2.Value.ToShortDateString(), Val(NO_DATE.Checked)) 

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

السيد الجوهري

مساعدة

السيد الجوهري