[محمد العامر]

هذا كود الاضافة

كود :

   Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click
       If ID.Text = vbNullString Or Name.Text = vbNullString Or CMBNationality.Text = vbNullString Or Addres.Text = vbNullString Or CMBGender.Text = vbNullString Or Email.Text = vbNullString Or PhoneNumber.Text = vbNullString Or Degree.Text = vbNullString Or Major.Text = vbNullString Or LPLevel.Text = vbNullString Or CMBDepartment.Text = vbNullString Or CMBPosition.Text = vbNullString Or CMBPositionApplyFor.Text = vbNullString Or YearsOfExperience.Text = vbNullString Or EnglishLevel.Text = vbNullString Or CMBAreYouonDuty.Text = vbNullString Or DateofJoining.Value = Today Or YourLastSalary.Text = vbNullString Or ExpectationSalary.Text = vbNullString Or CVLink.Text = vbNullString Or source.Text = vbNullString Or Provideby.Text = vbNullString Or DateOfLoad.Value = Today Or AddBy.Text = vbNullString Then
           DevExpress.XtraEditors.XtraMessageBox.Show(" Please complete all data ", "alert", MessageBoxButtons.OK, MessageBoxIcon.Warning)
           Exit Sub
       End If
       If DevExpress.XtraEditors.XtraMessageBox.Show("Do you want to add new data?", "alert", MessageBoxButtons.YesNo) = DialogResult.No Then
           Exit Sub
       Else
           Dim Cmd As New SqlCommand
           With Cmd
               .Connection = con
               .CommandType = CommandType.Text
               .CommandText = "Insert Into tbl_infostaff ( ID,Name,Nationality,Addres,Gender,Email,PhoneNumber,Degree,Major,LPLevel,Department,Position,PositionApplyFor,YearsOfExperience,EnglishLevel,AreYouonDuty,DateofJoining,YourLastSalary,ExpectationSalary,CVLink,source,Provideby,DateOfLoad,Addby,Completionstatus)values(@ID,@Name,@Nationality,@Addres,@Gender,@Email,@PhoneNumber,@Degree,@Major,@LPLevel,@Department,@Position,@PositionApplyFor,@YearsOfExperience,@EnglishLevel,@AreYouonDuty,@DateofJoining,@YourLastSalary,@ExpectationSalary,@CVLink,@source,@Provideby,@DateOfLoad,@Addby,@Completionstatus)"
               .Parameters.Clear()
               .Parameters.AddWithValue("@ID", SqlDbType.Int).Value = ID.Text
               .Parameters.AddWithValue("@Name", SqlDbType.VarChar).Value = Name.Text
               .Parameters.AddWithValue("@Nationality", SqlDbType.VarChar).Value = CMBNationality.Text
               .Parameters.AddWithValue("@Addres", SqlDbType.VarChar).Value = Addres.Text
               .Parameters.AddWithValue("@Gender", SqlDbType.VarChar).Value = CMBGender.Text
               .Parameters.AddWithValue("@Email", SqlDbType.VarChar).Value = Email.Text
               .Parameters.AddWithValue("@PhoneNumber", SqlDbType.VarChar).Value = PhoneNumber.Text
               .Parameters.AddWithValue("@Degree", SqlDbType.VarChar).Value = Degree.Text
               .Parameters.AddWithValue("@Major", SqlDbType.VarChar).Value = Major.Text
               .Parameters.AddWithValue("@LPLevel", SqlDbType.VarChar).Value = LPLevel.Text
               .Parameters.AddWithValue("@Department", SqlDbType.VarChar).Value = CMBDepartment.Text
               .Parameters.AddWithValue("@Position", SqlDbType.VarChar).Value = CMBPosition.Text
               .Parameters.AddWithValue("@PositionApplyFor", SqlDbType.VarChar).Value = CMBPositionApplyFor.Text
               .Parameters.AddWithValue("@YearsOfExperience", SqlDbType.VarChar).Value = YearsOfExperience.Text
               .Parameters.AddWithValue("@EnglishLevel", SqlDbType.VarChar).Value = EnglishLevel.Text
               .Parameters.AddWithValue("@AreYouonDuty", SqlDbType.VarChar).Value = CMBAreYouonDuty.Text
               .Parameters.AddWithValue("@DateofJoining", SqlDbType.Date).Value = DateofJoining.Text
               .Parameters.AddWithValue("@YourLastSalary", SqlDbType.Decimal).Value = YourLastSalary.Text
               .Parameters.AddWithValue("@ExpectationSalary", SqlDbType.Decimal).Value = ExpectationSalary.Text
               .Parameters.AddWithValue("@CVLink", SqlDbType.VarChar).Value = CVLink.Text
               .Parameters.AddWithValue("@source", SqlDbType.VarChar).Value = source.Text
               .Parameters.AddWithValue("@Provideby", SqlDbType.VarChar).Value = Provideby.Text
               .Parameters.AddWithValue("@DateOfLoad", SqlDbType.Date).Value = DateOfLoad.Text
               .Parameters.AddWithValue("@Addby", SqlDbType.VarChar).Value = AddBy.Text
               .Parameters.AddWithValue("@Completionstatus", SqlDbType.VarChar).Value = Completionstatus.Text
           End With
           If con.State = 1 Then con.Close()
           con.Open()
           Cmd.ExecuteNonQuery()
           con.Close()
           DevExpress.XtraEditors.XtraMessageBox.Show("Added successfully", "alert", MessageBoxButtons.OK, MessageBoxIcon.Information)
           Cmd = Nothing
           ClearControls()
           Max_tbl_infostaff()
           LoadAll("tbl_infostaff", GridView1)
           LoadAll("tbl_infostaff", Form1.GridView1)
       End If
   End Sub

والمشكلة في اضافة التاريخ 

كود :

       
       .Parameters.AddWithValue("@DateOfLoad", SqlDbType.Date).Value = DateOfLoad.Text
               .Parameters.AddWithValue("@DateofJoining", SqlDbType.Date).Value = DateofJoining.Text