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

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

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

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

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

كود :

allow nulls =true

كيف يتم ذلك

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

كود :

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 نوعة تاريخ لا يقل الحفظ في حالة كان التاريخ فراغ

تم الحل

كود :

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

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

aftfm

amgadtamer

aftfm

aftfm

aftfm