+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : خطا في حفظ التاريخ فارغ (تم حل الموضوع) (/showthread.php?tid=34975)
الصفحات:
1
2
خطا في حفظ التاريخ فارغ (تم حل الموضوع) - alshandodi - 27-05-20
السلام عليكم اخوتي الأعزاء لدي هذه المشكله وهي حفظ التاريخ فارغ ولكم جزيل الشكر والتقدير
[attachment=24895]
RE: خطا في حفظ التاريخ فارغ - معاند الحظ - 27-05-20
وعليك السلام ورحمة الله وبركاته
يا اخي لاتكفي الصورة يجب ان تضع كود الحفظ مع شرح اكثر عن الخطأ
ملاحظة: رسالة الخطأ تقول ان نوع البيانات غيرمطابق لذا تأكد ان حقل التاريخ في قاعدة البيانات يقبل القيمة الفارغة
RE: خطا في حفظ التاريخ فارغ - alshandodi - 27-05-20
كود :
Cmd.Parameters.AddWithValue("@DTP_Expiry", DTP_Expiry.Value)وهذا الأعدادات في الأكسس
[attachment=24896]
RE: خطا في حفظ التاريخ فارغ - rochdi191 - 27-05-20
ارفع المشروع لمراجعته ومعرفة الخلل اين
RE: خطا في حفظ التاريخ فارغ - alshandodi - 27-05-20
هذا المثال بارك الله فيك اتمنى طلباتي واضحه
RE: خطا في حفظ التاريخ فارغ - معاند الحظ - 27-05-20
يا اخي حملت مشروعك وغلته بدون وجود اخطاء
ياليت توضح قصدك بحفظ تاريخ فارغ
RE: خطا في حفظ التاريخ فارغ - rochdi191 - 27-05-20
(27-05-20, 04:48 PM)alshandodi كتب : هذا المثال بارك الله فيك اتمنى طلباتي واضحه
تم تعديل
والبرنامج يحفظ التاريخ الان
RE: خطا في حفظ التاريخ فارغ - alshandodi - 27-05-20
اخوتي الاعزاء اقصد حفظ التاريخ فارغ عندما يكون تشيك بوكس فولس
RE: خطا في حفظ التاريخ فارغ - اسامه الهرماوي - 27-05-20
وعليكم السلام...
تفضل:
كود :
If CheckBox1.Checked = False Then
.Parameters.AddWithValue("@التاريخ", SqlDbType.NVarChar).Value = DBNull.Value
Else
.Parameters.AddWithValue("@التاريخ", SqlDbType.NVarChar).Value = DateTimePicker1.Value.Date
End IfRE: خطا في حفظ التاريخ فارغ - معاند الحظ - 27-05-20
استبدل الاجرائين 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