[عمور2016]

PHP كود :

       Dim query As String
        Dim command As OleDbCommand
        Dim reader As OleDbDataReader

        'فحص الاتصال بقاعدة البيانات
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        query = "SELECT dep_name FROM [department]"
        command = New OleDbCommand(query, con)
        reader = command.ExecuteReader()
        If reader.HasRows Then
            While reader.Read()
                ComboBox1.Items.Add(reader(0))
                'Label2.Text = "تمت الاضافة"
            End While
        End If
        reader.Close()
        con.Close() 


---

هذا الكود يشمل الكومبو فقط والليست بوكس

شوف اي كود من عندك