11-10-18, 03:31 AM
(آخر تعديل لهذه المشاركة : 11-10-18, 03:57 AM {2} بواسطة محمد اسماعيل.)
السلام عليكم
عندي كود تحديث لقاعدة البيانات لايعمل عند اضافة قيمة لحقل التاريخ من الداتا تايم بيكر ولكن يعمل بدون حقل التاريخ او اضافة التاريخة من الاداة
الكود
حاولت بالتحايل علي اداة الوقت لتغير صيغة الوقت ولكن دون فائدة
صورة الاداة
الخصائص =Short
الحقل بقاعدة البيانات اكسيس نفس الخاصية Short date
عندي كود تحديث لقاعدة البيانات لايعمل عند اضافة قيمة لحقل التاريخ من الداتا تايم بيكر ولكن يعمل بدون حقل التاريخ او اضافة التاريخة من الاداة
الكود
حاولت بالتحايل علي اداة الوقت لتغير صيغة الوقت ولكن دون فائدة
صورة الاداة
الخصائص =Short
الحقل بقاعدة البيانات اكسيس نفس الخاصية Short date
كود :
Sub UPDATETB()
Dim com As New OleDbCommand("UPDATE CUSTOMERDETAILS_TB SET CUSTOMERDETAILS_CODE=@CUSTOMERDETAILS_CODE,CUSTOMERDETALIS_NAME=@CUSTOMERDETALIS_NAME,CUSTOMERDETALIS_COMPANY=@CUSTOMERDETALIS_COMPANY,CUSTOMERDETALIS_ADDRESS=@CUSTOMERDETALIS_ADDRESS,CUSTOMERDETALIS_TELEPHON=@CUSTOMERDETALIS_TELEPHON,CUSTOMERDETALIS_NOTE=@CUSTOMERDETALIS_NOTE,CUSTOMERDETALIS_DATE=@CUSTOMERDETALIS_DATE,CUSTOMERDETALIS_SHOW=@,CUSTOMERDETALIS_SHOW WHERE CUSTOMERDETALIS_ID = @CUSTOMERDETALIS_ID", con)
Dim checkUPDAT As Boolean = True
Dim dateup As Date = Format(FPAPERCCLIENONUPDATE.DATATIM_DATERECOR.Value, "dd/MM/yyyy")
Try
con.Open()
com.Parameters.AddWithValue("@CUSTOMERDETAILS_CODE", FPAPERCCLIENONUPDATE.LAB_CODEVAL.Text)
com.Parameters.AddWithValue("@CUSTOMERDETALIS_NAME", FPAPERCCLIENONUPDATE.TEXT_CLIENTNAM.Text)
com.Parameters.AddWithValue("@CUSTOMERDETALIS_COMPANY", FPAPERCCLIENONUPDATE.TEXT_CLIENTCOMP.Text)
com.Parameters.AddWithValue("@CUSTOMERDETALIS_ADDRESS", FPAPERCCLIENONUPDATE.TEXT_CLIENTADDRES.Text)
com.Parameters.AddWithValue("@CUSTOMERDETALIS_TELEPHON", FPAPERCCLIENONUPDATE.TEXT_CLIENTTELEPHON.Text)
com.Parameters.AddWithValue("@CUSTOMERDETALIS_NOTE", FPAPERCCLIENONUPDATE.TEXT_CLIENTNOT.Text)
com.Parameters.AddWithValue("@CUSTOMERDETALIS_DATE", dateup)
com.Parameters.AddWithValue("@CUSTOMERDETALIS_SHOW", checkUPDAT)
com.Parameters.AddWithValue("@CUSTOMERDETALIS_ID", FPAPERCCLIENONUPDATE.LAB_IDVAL.Text)
If com.ExecuteNonQuery() = 1 Then
conn()
MsgBox("update success")
con.Close()
Else
MsgBox("update field")
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub