تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اظهار قيمة الـــ DateTimePicker عند استدعائها من قاعدة البيانات
#1
السلام عليكم
لدى قاعدة بيانات اكسيس
بها تاريخ الانتاج
اقوم بقرائتها بكود للبحث
كود :
dt.Clear()
كود :
       da = New OleDbDataAdapter("Select * from LETTERS where let_code=" & Val(TextBox1.Text), con)
كود :
       da.Fill(dt)
كود :
           DateTimePicker1.Value = dt.Rows(BindingContext(dt).Position).Item(7)


واحيانا يكون تاريخ الانتاج فارغ "بلا قيمة"

المشكلة:
عندما اقوم بالبحث عن المنتج الاول يعطينى التاريخ الموجود فى قاعدة البيانات
وعندما اقوم بالبحث  عن المنتج الثانى (الذي ليس به تاريخ انتاج) يظل تاريخ انتاج السلعة الاولي موجود وبهذا يكون بيان كاذب
اريد ان يفرغ الDateTimePicker1 عندما تكون القيمة فى قاعدة البيانات فارغة
شكرا لكم
الرد
تم الشكر بواسطة: سعود , asemshahen5
#2
بالعادة يظهر رسالة خطأ ان لم يجد قيمة الا اذا عالجت رسالة الخطأ بأي طريقة.
تحقق من الحقل IF ISDBNUL
قبل الاسناد وعند بداية الحدث افرغ المحتوى سواء لمربع نص او غيره.
الرد
#3
(03-09-19, 09:32 PM)سعود كتب : بالعادة يظهر رسالة خطأ ان لم يجد قيمة الا اذا عالجت رسالة الخطأ بأي طريقة.
تحقق من الحقل IF ISDBNUL
قبل الاسناد وعند بداية الحدث افرغ المحتوى سواء لمربع نص او غيره.

اخى سعود شكرا لاستجابتك
 ممكن شرح اكثر فانا لست بعلمك 
زادك الله من علمه
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#4
PHP كود :
if isdbnull(dt.Rows(BindingContext(dt).Position).Item(7))=false then

هنا تسند اي كونترول

else
 
اما تفرغ الكونترول او تكتفي بافراغه اول الحدث


end 
if 

لقد لاحظت ان النتيجة هي نفسهاSmile
الحل ان تخفي الاداة عند عدم وجود قيمة مخزنة.

PHP كود :
Public Class Form1
    Dim str 
As String "provider=microsoft.ace.oledb.12.0;data source=" CurDir() & "\db.accdb"
 
   Private Sub TextBox1_KeyDown(sender As ObjectAs System.Windows.Forms.KeyEventArgsHandles TextBox1.KeyDown
        If TextBox1
.Text.Trim <> "" Then
            Dim sql 
As String ""
 
           sql "select * from tb tb where tid=" Val(TextBox1.Text) & " or tname='" TextBox1.Text "'"
 
           Using con As New OleDb.OleDbConnection(str)
 
               Using cm As New OleDb.OleDbCommand(""con)
 
                   cm.CommandText sql
                    If con
.State ConnectionState.Closed Then con.Open()
 
                   Dim dr As OleDb.OleDbDataReader cm.ExecuteReader
                    If dr
.Read Then
                        If IsDBNull
(dr.Item("dob")) = False Then
                            d1
.Visible True
                            d1
.Value dr.Item("dob")
 
                       Else
                            d1
.Visible False
                        End 
If
 
                   End If
 
                   If con.State ConnectionState.Open Then con.Close()
 
               End Using
            End Using
        End 
If
 
   End Sub
End 
Class 


الملفات المرفقة
.zip   GetMyDate.zip (الحجم : 33.29 ك ب / التحميلات : 25)
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5 , mr_hso , tryold
#5
(03-09-19, 09:39 PM)سعود كتب :
PHP كود :
if isdbnull(dt.Rows(BindingContext(dt).Position).Item(7))=false then

هنا تسند اي كونترول

else
 
اما تفرغ الكونترول او تكتفي بافراغه اول الحدث


end 
if 

لقد لاحظت ان النتيجة هي نفسهاSmile
الحل ان تخفي الاداة عند عدم وجود قيمة مخزنة.

PHP كود :
Public Class Form1
    Dim str 
As String "provider=microsoft.ace.oledb.12.0;data source=" CurDir() & "\db.accdb"
 
   Private Sub TextBox1_KeyDown(sender As ObjectAs System.Windows.Forms.KeyEventArgsHandles TextBox1.KeyDown
        If TextBox1
.Text.Trim <> "" Then
            Dim sql 
As String ""
 
           sql "select * from tb tb where tid=" Val(TextBox1.Text) & " or tname='" TextBox1.Text "'"
 
           Using con As New OleDb.OleDbConnection(str)
 
               Using cm As New OleDb.OleDbCommand(""con)
 
                   cm.CommandText sql
                    If con
.State ConnectionState.Closed Then con.Open()
 
                   Dim dr As OleDb.OleDbDataReader cm.ExecuteReader
                    If dr
.Read Then
                        If IsDBNull
(dr.Item("dob")) = False Then
                            d1
.Visible True
                            d1
.Value dr.Item("dob")
 
                       Else
                            d1
.Visible False
                        End 
If
 
                   End If
 
                   If con.State ConnectionState.Open Then con.Close()
 
               End Using
            End Using
        End 
If
 
   End Sub
End 
Class 
شكرا اخي سعود على ذوقك اولاً وسعة صدرك 
ذادك الله من علمه
الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 9 2,480 06-04-20, 12:12 AM
آخر رد: wadyreem
  اسناد عامود في قاعدة بيانات اكسيس الى عامود من نوع كومبوبوكس بالداتا جريد فيو بالفيجو Ghassanfff 0 45 30-03-20, 09:33 PM
آخر رد: Ghassanfff
  معرفة عدد الأسماء في قاعدة البيانات sql server aldery 6 197 24-03-20, 04:21 AM
آخر رد: morkoskhalaf
  [نقاش] مشاركة قاعدة بيانات SQL على شبكه داخليه morkoskhalaf 2 104 18-03-20, 11:28 PM
آخر رد: morkoskhalaf
  [سؤال] مساعدة في تحليل قاعدة بيانات مشتريات ومبيعات maw2321 0 103 11-03-20, 03:00 AM
آخر رد: maw2321
  اريد ترقية قاعدة بيانات برنامجي فإلى ايهم تقترحوا علي alfaiz678 4 178 05-03-20, 05:58 PM
آخر رد: alfaiz678
  اريد فكرة الطرح والجمع من داخل قاعدة البيانات مراد بورجي 2 561 28-12-19, 07:41 PM
آخر رد: مراد بورجي
  كيف الغاء التكرار في البيانات بسام محمدغانم 0 244 27-12-19, 11:06 PM
آخر رد: بسام محمدغانم
  انشاء قاعدة بيانات SQL مع الجداول بواسط الكود aiman 1 2,007 26-12-19, 03:30 PM
آخر رد: osamaalymaghraby
  [VB.NET] حفظ البيانات دفعة واحدة الداتا جريد فيو mahmoud.3com 2 867 19-12-19, 11:23 PM
آخر رد: بسام محمدغانم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم