27-05-20, 12:46 PM
الصفحات : 1 2
27-05-20, 01:41 PM
وعليك السلام ورحمة الله وبركاته
يا اخي لاتكفي الصورة يجب ان تضع كود الحفظ مع شرح اكثر عن الخطأ
ملاحظة: رسالة الخطأ تقول ان نوع البيانات غيرمطابق لذا تأكد ان حقل التاريخ في قاعدة البيانات يقبل القيمة الفارغة
يا اخي لاتكفي الصورة يجب ان تضع كود الحفظ مع شرح اكثر عن الخطأ
ملاحظة: رسالة الخطأ تقول ان نوع البيانات غيرمطابق لذا تأكد ان حقل التاريخ في قاعدة البيانات يقبل القيمة الفارغة
27-05-20, 03:58 PM
كود :
Cmd.Parameters.AddWithValue("@DTP_Expiry", DTP_Expiry.Value)وهذا الأعدادات في الأكسس
[attachment=24896]
27-05-20, 04:02 PM
ارفع المشروع لمراجعته ومعرفة الخلل اين
27-05-20, 04:48 PM
هذا المثال بارك الله فيك اتمنى طلباتي واضحه
27-05-20, 06:57 PM
يا اخي حملت مشروعك وغلته بدون وجود اخطاء
ياليت توضح قصدك بحفظ تاريخ فارغ
ياليت توضح قصدك بحفظ تاريخ فارغ
27-05-20, 07:07 PM
(27-05-20, 04:48 PM)alshandodi كتب : [ -> ]هذا المثال بارك الله فيك اتمنى طلباتي واضحه
تم تعديل
والبرنامج يحفظ التاريخ الان
27-05-20, 07:12 PM
اخوتي الاعزاء اقصد حفظ التاريخ فارغ عندما يكون تشيك بوكس فولس
27-05-20, 07:33 PM
وعليكم السلام...
تفضل:
أو يمكنك وضع كود الحفظ إذا لم تستطع التنفيذ وسيت باذن الله تعديله.
تفضل:
كود :
If CheckBox1.Checked = False Then
.Parameters.AddWithValue("@التاريخ", SqlDbType.NVarChar).Value = DBNull.Value
Else
.Parameters.AddWithValue("@التاريخ", SqlDbType.NVarChar).Value = DateTimePicker1.Value.Date
End If27-05-20, 07:40 PM
استبدل الاجرائين Insert_Table1 و Update_Table1 لديك بالتالي
كود :
Public Sub Insert_Table1()
Dim Cmd As New OleDbCommand
With Cmd
.Connection = con
.CommandType = CommandType.Text
.CommandText = "Insert Into Table1 (Dtp_ex,Dtp_CH)values(@Dtp_ex,@Dtp_CH)"
.Parameters.Clear()
If Dtp_ex.Checked Then
.Parameters.AddWithValue("@Dtp_ex", Dtp_ex.Value.ToString("yyyy/MM/dd"))
Else
.Parameters.AddWithValue("@Dtp_ex", DBNull.Value)
End If
.Parameters.AddWithValue("@Dtp_CH", Dtp_ex.Checked)
End With
If con.State = 1 Then con.Close()
con.Open()
Cmd.ExecuteNonQuery()
con.Close()
MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
Cmd = Nothing
End Sub
Public Sub Update_Table1()
Dim Cmd As New OleDbCommand
With Cmd
.Connection = con
.CommandType = CommandType.Text
.CommandText = "Update Table1 Set Dtp_ex = @Dtp_ex,Dtp_CH = @Dtp_CH Where ID = @ID"
.Parameters.Clear()
If Dtp_ex.Checked Then
.Parameters.AddWithValue("@Dtp_ex", Dtp_ex.Value.ToString("yyyy/MM/dd"))
Else
.Parameters.AddWithValue("@Dtp_ex", DBNull.Value)
End If
.Parameters.AddWithValue("@Dtp_CH", Dtp_ex.Checked)
.Parameters.AddWithValue("@ID", TextBox1.Text)
End With
If con.State = 1 Then con.Close()
con.Open()
Cmd.ExecuteNonQuery()
con.Close()
MsgBox("تم تعديل السجل بنجاح", MsgBoxStyle.Information, "تعديل")
Cmd = Nothing
End Subالصفحات : 1 2