将 sql 查询的结果绑定到列表框

Question

我陷入了这个问题。这看起来很简单，但由于某种原因我遇到了麻烦。

以下是我所拥有的：

 Try
        cn = New OleDbConnection("Provider=microsoft.Jet.OLEDB.4.0;Data Source=G:\Sean\BMSBonder3_0.mdb;")
        cn.Open()
        str = "Select Distinct BonderIdentifier From [Session]"
        cmd = New OleDbCommand(str, cn)
        dr = cmd.ExecuteReader

        dr.Read()
        If dr.Item(0).ToString <> "" Then
            ListBox1.Items.Add(dr.Item(0))
        End If

        cn.Close()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

这只能获取其中一个值。其实最后一个。我怎样才能获得所有这些？

很抱歉提出新问题。搜索并没有太大帮助。

Answer 1

您需要使用While 循环重复执行您的代码，直到dr.Read() 返回False。
例如：

While dr.Read()
    If dr.Item(0).ToString <> "" Then
        ListBox1.Items.Add(dr.Item(0))
    End If
Wend