[mr_hso]

السلام عليكم
لدى قاعدة بيانات اكسيس
بها تاريخ الانتاج
اقوم بقرائتها بكود للبحث

كود :

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 عندما تكون القيمة فى قاعدة البيانات فارغة
شكرا لكم

[سعود]

بالعادة يظهر رسالة خطأ ان لم يجد قيمة الا اذا عالجت رسالة الخطأ بأي طريقة.
تحقق من الحقل IF ISDBNUL
قبل الاسناد وعند بداية الحدث افرغ المحتوى سواء لمربع نص او غيره.

[mr_hso]

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

اخى سعود شكرا لاستجابتك
 ممكن شرح اكثر فانا لست بعلمك 
زادك الله من علمه

[سعود]

PHP كود :

if isdbnull(dt.Rows(BindingContext(dt).Position).Item(7))=false then

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

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


end if 


---

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

---

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 Object, e As System.Windows.Forms.KeyEventArgs) Handles 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 


[mr_hso]

(03-09-19, 09:39 PM)سعود كتب :

PHP كود :

if isdbnull(dt.Rows(BindingContext(dt).Position).Item(7))=false then

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

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


end if 


---

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

---

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 Object, e As System.Windows.Forms.KeyEventArgs) Handles 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 


شكرا اخي سعود على ذوقك اولاً وسعة صدرك 
ذادك الله من علمه