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