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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حفظ واستدعاء الصور من قاعدة بيانات Database.sdf abdousoft 0 70 09-12-19, 12:24 AM
آخر رد: abdousoft
  [VB.NET] حفظ مسار الصور في قاعدة البيانات sql Hassan.syria 3 179 25-11-19, 01:25 PM
آخر رد: kiki
  [سؤال] فك كلمة مرور معقدة على قاعدة البيانات اكسس ahmed saba 8 9,611 27-10-19, 05:37 PM
آخر رد: Musayahya2015
Heart مشكلة ال ID في عدم تخزين وترتيب البيانات بشكل منتظم الرائد 5 385 18-07-19, 01:42 AM
آخر رد: الرائد
Information [سؤال] انشاء قاعدة بيانات access واضافة جدول وحقول بكود vb.net fefooo29 4 3,952 10-06-19, 09:31 PM
آخر رد: sherf
  مساعدة في تصميم قاعدة بيانات ادارة ساعات عمل الموظفين Rabeea Qbaha 6 429 06-06-19, 12:23 AM
آخر رد: elgokr
  قاعدة البيانات بتقفل كل شوية احمد خطاب 5 502 11-05-19, 04:24 AM
آخر رد: احمد خطاب
  سؤال عن قواعد البيانات في فيجوال بيسك2015 Emam emam 6 499 11-05-19, 04:02 AM
آخر رد: Emam emam
  [VB.NET] مشغل قواعد البيانات sql , mysql محمد اسماعيل 2 362 20-04-19, 12:32 PM
آخر رد: محمد اسماعيل
  [VB.NET] قاعدة بيانات postgress tarek 2 430 06-04-19, 09:07 PM
آخر رد: elgokr

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


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