منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] حفظ قيمة DateTimePicker فارغة فى قاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] حفظ قيمة DateTimePicker فارغة فى قاعدة البيانات (/showthread.php?tid=28868)

حفظ قيمة DateTimePicker فارغة فى قاعدة البيانات - mr_hso - 06-03-19

السلام عليكم ورحمة الله وبركاته
لدي مشروع فيجول بيسك 2015 بقاعدة بيانات اكسيس (منفصل)
واجهتني مشكلة ولم اجد لها حل وهى انني لدي حقل تاريخ (DateTimePicker) فى الفورم استطعت من خلال الكود التالي ان اجعله فارغ
PHP كود :
DateTimePicker1.Format = DateTimePickerFormat.Custom
        DateTimePicker1.CustomFormat = " " 

لكن واجهتنى مشكلة انه يحفظ التاريخ الحالي للنظام (تاريخ اليوم) بدلا من ان يحفظه فارغ
وللعلم انا استعمل هذا الكود للحفظ
PHP كود :
dt.Rows.Add()
            Dim pos As String = dt.Rows.Count - 1

 dt.Rows(pos).Item(7) = DateTimePicker1.Value.ToString 
وهذا الكود اضعه فى  DateTimePicker1_ValueChanged
PHP كود :
Private Sub DateTimePicker1_ValueChanged_1(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
        DateTimePicker1.Format = DateTimePickerFormat.Custom
        DateTimePicker1.CustomFormat = "dd/MM/yyyy"
    End Sub 

فهل من حل 
وشكراً

RE: حفظ قيمة DateTimePicker فارغة فى قاعدة البيانات - عبد العزيز البسكري - 06-03-19

السّلام عليكم و رحمة الله و بركاته
كمثال أخي الكريم لحفظ قيمة فارغة ..
كود :
 If String.IsNullOrEmpty(DateTimePicker1) Then
               .Parameters.AddWithValue("@DATE_SESSION", OleDbType.DateTime).Value = DBNull.Value
           Else
               .Parameters.AddWithValue("@DATE_SESSION", OleDbType.DateTime).Value = DateTimePicker1
           End If

تحياتي


RE: حفظ قيمة DateTimePicker فارغة فى قاعدة البيانات - mr_hso - 10-03-19

الاستاذ الفاضل عبد العزيز البسكري لشكرا لمساعدتك واسف على التاخر فى الرد والشكر حيث اني كنت مريض
بالنسبة للكود السابق انا لا اعرف اين اضعه وان وضعته ضمن كود الحفظ يضع خط احمر تحت بعض اجزاء الكود ولا يعمل
شكرا لسيادتك

RE: حفظ قيمة DateTimePicker فارغة فى قاعدة البيانات - 5000 - 11-03-19

جرب هذا التعديل
if DateTimePicker1.CustomFormat = " " then
dt.Rows(pos).Item(7) = DBNull.Value
else
dt.Rows(pos).Item(7) = DateTimePicker1.Value.date
end if

RE: حفظ قيمة DateTimePicker فارغة فى قاعدة البيانات - mr_hso - 11-03-19

(11-03-19, 01:41 AM)5000 كتب : جرب هذا التعديل
if DateTimePicker1.CustomFormat = " " then
dt.Rows(pos).Item(7) = DBNull.Value
else
dt.Rows(pos).Item(7) = DateTimePicker1.Value.date
end if
شكرا اخي بارك الله فيك