منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ComboBox - DBNul
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
أخواني الأفاضل

لو تكرمت لدي مشكلة في تعبئة قائمة الـ ComboBox ببيانات أحد أعمدة الـ DataBase من نوع  Access حيث أنه يوجد قيم فارغة لاأريدها أن تظهر في هذه القائمة. لدي الكود التالي الذي أستخدمه للتعبئة التلقائية لكنه لايفي بالغرض
كود :
       SQLStr = "Select * from Table_Item"
       Dim cmd As New OleDb.OleDbCommand(SQLStr, dbConn)
       dr = cmd.ExecuteReader
       CBox1_Edit.Items.Clear()
       While dr.Read()
           If CBox1_Edit.FindString(dr(2)) < 0 Then
              CBox1_Edit.Items.Add(dr(2)).ToString)
           End If
       End While
غير هذه
PHP كود :
If CBox1_Edit.FindString(dr(2)) < 0 Then 
الى هذه
PHP كود :
If CBox1_Edit.FindString(dr(2)) < and dr(2).tostring.trim <>"" Then 
شكراً جزيلا أخي العزيز HASAN6.0 إلا أن هناك مسج تظهر تفيد بأنها لاتقبل قاعدة البيانات بيانات فارغة، فما الحل؟!

If CBox1_Edit.FindString(dr(2)) < 0 AndAlso dr(2) <> DBNull.Value Then

لم اجربها لعدم وجود قاعدة بيانات او مثال ،، على العموم الحل بان تتاكد بان قيمة الخليه لا تساوي DBNull.Valueابحث بالعم قوقل و ستجدي الاجابه بحيث خذ بالاعتبار بان Nothing أو null لا تساوي DBNull.Value
أخواني تم بحمد الله التوصل للحل وهو يتعلق باختيار البيانات التي لا تساوي Null في جملة الاتصال نفسها كما يلي:

PHP كود :
SQLStr "Select * from Table_Item Where Not(field name) is null" 
او استخدم
isdbnull(field name) = false