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

السلام عليكم ورحمة الله وبركاته
لدي مشروع فيجول بيسك 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 

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

السّلام عليكم و رحمة الله و بركاته

كمثال أخي الكريم لحفظ قيمة فارغة ..

كود :

 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

تحياتي

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

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

(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

شكرا اخي بارك الله فيك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mr_hso

عبد العزيز البسكري

mr_hso

5000

mr_hso