انا عامل اداه DateTimePicker وعامل خاصية
Show check box= true
بس المشكله لما لا اختار تاريخ .. واخلي checked = false يحفظ لي تاريخ 1/1/1900
انا عملت هذا الكود
(" Insert Into Journals(Published) Values ('" & DateTimePicker1.Value & "' )")الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة
وانا اكتب في المثال وجدت الحل لا اعرف هو مناسب ام في افضل منه
If DateTimePicker1.Checked = True Then
Dim saveOk As Boolean = SQLExicute(" Insert Into p (name,brday) Values ('" & TextBox1.Text & "','" & DateTimePicker1.Value & "') ")
Else
Dim saveOk As Boolean = SQLExicute(" Insert Into p (name) Values ('" & TextBox1.Text & "') ")
End If
End Sub
بس نجح 100%
تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 30 مارس 2013 في 15:01
الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة
استخدام IF في الجملة شيء جميل لكن حاول ان تختصرها بحيث تكون جملة واحده فقط
مثال علي ما اقصده حاول تجربه ربما يفي بالغرض
(" Insert Into p (name,brday) Values ('" & TextBox1.Text & "','" & DateTimePicker1.Value = (IIf(DateTimePicker1.Checked = False, DBNull.Value, DateTimePicker1.Checked)) & "') ")وعلي أي حال طالما اشتغل معاك يبقي ok
بالتوفيق
تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 30 مارس 2013 في 15:15
لا لم تنجح ..طريقتك ..سوف اعتمد على جمله الشرطية .... شكر لك... دائما تكون عون لي بارك الله فيك وجزاك الله خير
الحياة لاتشترى بمال مهما كانت الحياة تحتاجة ... فسوف تغادر هذة الحياة وبعدها لاحد يترحم عليك فلا تجعل المال هو غاية بل اجعله وسيلة للنجاة
هذا الموضوع مغلق.