[abuzzouz]

أخواني الأفاضل

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

[HASAN6.0]

غير هذه

PHP كود :

If CBox1_Edit.FindString(dr(2)) < 0 Then 


الى هذه

PHP كود :

If CBox1_Edit.FindString(dr(2)) < 0 and dr(2).tostring.trim <>"" Then 


[abuzzouz]

شكراً جزيلا أخي العزيز HASAN6.0 إلا أن هناك مسج تظهر تفيد بأنها لاتقبل قاعدة البيانات بيانات فارغة، فما الحل؟!

[myalsailamy]

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

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

[abuzzouz]

أخواني تم بحمد الله التوصل للحل وهو يتعلق باختيار البيانات التي لا تساوي Null في جملة الاتصال نفسها كما يلي:

PHP كود :

SQLStr = "Select * from Table_Item Where Not(field name) is null" 


[HASAN6.0]

او استخدم
isdbnull(field name) = false