[aftfm]

السلام عليكم ورحمة الله وبركاته

اخواني جزاكم الله الف خير لدي سجل به الاسم والتاريخ والمهنه الخ
سجل التاريخ من نوع تاريخ ووقت عند عملية الحفظ وكان خانة التاريخ فارغة لا يقبل الحفظ
وتظهر رسالة (نوع البياتان غير متطابق في تعبير المعاير)

عند اضافة التاريخ لا تظهر ويقبل الحفظ
هل هناك طريق تجعل الحفظ يقبل وإن كان خانة التاريخ فارغة أي بدون تاريخ

[amgadtamer]

قم بجعل حقل التاريخ فى قاعدة البيانات

كود :

allow nulls =true

[aftfm]

كيف يتم ذلك

[aftfm]

هذا كود الحفظ لدي

كود :

Dim cmd As New OleDbCommand("Insert into tblVIPs(V_Name, V_DateBirth, V_IdentifNum, V_MobileN, V_PhoneN, V_Qualif, V_MaritalSt, V_Citizenship, V_CurrentPosition, V_Notes, V_PracticalFile)values(?,?,?,?,?,?,?,?,?,?,?)", Con) ' AND Sequence LIKE '" & lblID.Text & "'

        Call cmd.Parameters.AddWithValue("@V_Name", Me.txtName.Text)
        Call cmd.Parameters.AddWithValue("@V_DateBirth", Me.lblDate.Text)
        Call cmd.Parameters.AddWithValue("@V_IdentifNum", Me.txtIdentifNum.Text)
        Call cmd.Parameters.AddWithValue("@V_MobileN", Me.txtMobile.Text)
        Call cmd.Parameters.AddWithValue("@V_PhoneN", Me.txtPhone.Text)
        Call cmd.Parameters.AddWithValue("@V_Qualif", Me.RTBQualif.Text)

        Call cmd.Parameters.AddWithValue("@V_MaritalSt", Me.cmbMaritalSt.Text)
        Call cmd.Parameters.AddWithValue("@V_Citizenship", Me.txtCitizenship.Text)
        Call cmd.Parameters.AddWithValue("@V_CurrentPosition", Me.RTBCurrentPosition.Text)
        Call cmd.Parameters.AddWithValue("@V_Notes", Me.RTPNotes.Text)
        Call cmd.Parameters.AddWithValue("@V_PracticalFile", Me.RTPPracticalFile.Text)

        If Con.State = ConnectionState.Open Then Con.Close()
        Con.Open()
        cmd.ExecuteNonQuery()
        Con.Close()
        MsgBox("تم الحفظ بنجاح", MsgBoxStyle.Information, "حفظ")

الحقل الثاني V_DateBirth نوعة تاريخ لا يقل الحفظ في حالة كان التاريخ فراغ

[aftfm]

تم الحل

كود :

If String.IsNullOrEmpty(lblDate.Text) Then
            SavInto.Parameters.AddWithValue("@V_DateBirth", SqlDbType.NVarChar).Value = DBNull.Value
        Else
            SavInto.Parameters.AddWithValue("@V_DateBirth", SqlDbType.NVarChar).Value = lblDate.Text
        End If