تقييم الموضوع :
  • 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 ك ب / التحميلات : 43)
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عدم إظهار الصور مع النص فى Listview من قاعدة البيانات alims 2 1,581 27-08-23, 12:22 PM
آخر رد: رضوان الجماعي
  [نقاش] مشاركة قاعدة بيانات SQL على شبكه داخليه morkoskhalaf 3 3,009 06-01-23, 03:20 AM
آخر رد: عبدالكريم برشدان
  قاعدة بيانات xml djelloul 3 2,799 07-11-22, 10:27 PM
آخر رد: Am7
  استفسار عن تخزين الوقت في قاعدة البيانات strongriseman 2 1,126 22-04-22, 07:27 PM
آخر رد: strongriseman
  [سؤال] مشكلة فى عرض الصورة من ادخل قاعدة البيانات alims 2 1,264 17-11-21, 10:09 AM
آخر رد: سعود
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 0 964 23-10-21, 01:43 AM
آخر رد: بسام محمدغانم
  مشكلة ظهور بياانات حقلين في قاعدة بيانات على شكل علامة استفهام bassant 5 1,632 17-10-21, 02:07 PM
آخر رد: abubasilIraq
  تحويل multiline text الى single line في عمود في قاعدة بيانات sql server bassant 0 957 07-09-21, 04:36 PM
آخر رد: bassant
  الحفظ فى قاعدة البيانات اسلام الكبابى 10 2,350 06-09-21, 06:52 PM
آخر رد: اسلام الكبابى
  [Acces2010] عمل قاعدة بيانات لنظام غيابات الطلبة hassan karim 1 1,918 31-08-21, 04:47 AM
آخر رد: a7med saba

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


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