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

السلام عليكم
عندي مشكلة في اضافة التاريخ تطلع لي الرسالة التالية

مع العلم بأن الصيغة في قاعدة البيانات بالشكل التالي

وفي واجهة البرنامج بالشكل التالي

كيف اقدر احل المشكلة هذي لو سمحتو

[أبو خالد الشكري]

وعليكم السلام

أنت شرحت المشكلة
ولكنك لم ترفق الكود الذي فيه المشكلة
حتى يمكن للأخوة مساعدتك بشكل صحيح .

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

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

كود :

   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

[Zuhare]

في البداية تاكد ان نوع بيانات الحقل DateOfLoad هو Date وايضا الحقل DateofJoining
من كود If الذي في البداية وجدت DateOfLoad.Value و DateofJoining.Value فعرفت انها اداة DateTimePicker من الخاصية Value والمفروض أن تاخذ منها التاريخ اي من الخاصية Value وليس من الخاصية Text

كود :

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

[/quote]

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

(14-06-24, 08:03 PM)Zuhare كتب : في البداية تاكد ان نوع بيانات الحقل DateOfLoad هو Date وايضا الحقل DateofJoining
من كود If الذي في البداية وجدت DateOfLoad.Value و DateofJoining.Value فعرفت انها اداة DateTimePicker من الخاصية Value والمفروض أن تاخذ منها التاريخ اي من الخاصية Value وليس من الخاصية Text

كود :

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

[/quote]

صحيح تم حل المشكلة بارك الله فيك