Filling Dropdown List Without DataSet

السلام عليكم

إذا كنت تريدهما في صف واحد فبهذا الشكل

 Private Sub Load2Columns()
        Dim strSQL As String
        Try
            Cnn.Open()
            strSQL = "SELECT * FROM tb"
            Dim cmd As New OleDbCommand(strSQL, Cnn)
            Dim rdr As OleDbDataReader = _
            cmd.ExecuteReader(CommandBehavior.CloseConnection)
            With cbox
                .BeginUpdate()
                Do While rdr.Read()
                    .Items.Add(rdr.Item(0).ToString)
                    .Items.Add(rdr.Item(1).ToString)
                Loop
                .EndUpdate()
                rdr.Close()
                cmd.Dispose()
            End With
        Catch ex As Exception
            Throw ex
        Finally
            Cnn.Close()
        End Try
    End Sub

أما إذا كنت تريد كل قيمه منهما في سطر واحد فبهذا الشكل

 Private Sub Load2Columns()
        Dim strSQL As String
        Try
            Cnn.Open()
            strSQL = "SELECT * FROM tb"
            Dim cmd As New OleDbCommand(strSQL, Cnn)
            Dim rdr As OleDbDataReader = _
            cmd.ExecuteReader(CommandBehavior.CloseConnection)
            With cbox
                .BeginUpdate()
                Do While rdr.Read()
                    .Items.Add(rdr(0).ToString & "  " & rdr(1).ToString)
                Loop
                .EndUpdate()
                rdr.Close()
                cmd.Dispose()
            End With
        Catch ex As Exception
            Throw ex
        Finally
            Cnn.Close()
        End Try
    End Sub

والله أعلم

حياك الله أخي الغملاسي

بفرض أنة يوجد لدي في الجدول Table1 الحقول التالية

Field1, Field2

وأنا أريد أظهار القيمة الموجودة في الحقل Field1 للمستخدم بحيث يختارها و البرنامج يختار القيمة المناظرة لها في الحقل Field2 و يعتمدها كقيمة للحقل

مثل ما كنا نعمل في الأصدار Visual Basic 6.0 مع الادوات DbCombo و الأداة DataCombo

مثال

-------------------------

الأسم | الرقم

-------------------------

على | 1

خالد | 2

سالم | 3

وليد | 4

-------------------------

أرجوا أن تكون الفكرة واضحة

و متأسف على قلة الفهم

و لك ولشباب المنتدى مني كل الشكر

السلام عليكم

إليك الرابط