منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كود ملئ الكومبوبوكس من قيم معينة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كود ملئ الكومبوبوكس من قيم معينة (/showthread.php?tid=27619)



كود ملئ الكومبوبوكس من قيم معينة - اسامه الهرماوي - 24-11-18

السلام عليكم اخواني الكرام سؤال هو
هل يمكن املئ الكومبوبوكس من القيم التي
تساوي صفر فقط المثال في المرفقات يوضح
اني اضيف الصنف الي الكومبوبوكس ولكن اريد
اذا تساوي الكمية صفر يظهر الصنف الذي كمية تساوي 
صفر فهل يوجد حل لهذا.


RE: كود ملئ الكومبوبوكس من قيم معينة - Rabeea Qbaha - 24-11-18

PHP كود :
Sub fill_comb()
 
       combobox1.Items.Clear()
 
       Dim query As String
        Dim command 
As OleDbCommand
        Dim reader 
As OleDbDataReader

        
'فحص الاتصال بقاعدة البيانات
        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If
        query = "SELECT [catName] FROM [your_table] Where quantity = 0"
        command = New OleDbCommand(query, Conn)
        reader = command.ExecuteReader()
        If reader.HasRows Then
            While reader.Read()
                combobox1.Items.Add(reader(0))
            End While
        End If
        reader.Close()
        Conn.Close()

    End Sub