将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