vb.net 中的数据阅读器答案

【问题标题】：data reader in vb.netvb.net 中的数据阅读器
【发布时间】：2010-07-16 07:54:22
【问题描述】：

请帮忙，我如何制作一个等效于这个 for 循环的 while 循环。这样我就可以从mysql数据库表中的一行读取并显示在vb.net的组合框中。

我使用此代码，但如果行中添加了 3 个或更多项目，它肯定没有用：

Dim i As Integer
        Dim rdr As Odbc.OdbcDataReader
        rdr = con.readfrom_drug_type_table()
    For i = 0 To 1
        If rdr.HasRows = True Then
            rdr.Read()

            ComboBox2.Items.Add(rdr("Drug_type"))
        End If
    Next i

我想从 Drug_type 行读取所有数据请帮忙，谢谢

【问题讨论】：

标签： mysql vb.net datareader

【解决方案1】：

如果您只想读取第一行而不是只使用

If rdr.Read() Then 
     ComboBox2.Items.Add(rdr("Drug_type")) 
End If

更新

Try
    myConnection = New SqlConnection("server=localhost;uid=sa;pwd=;database=pubs")
    'you need to provide password for sql server
    myConnection.Open()
    myCommand = New SqlCommand("Select * from discounts", myConnection)
    dr = myCommand.ExecuteReader

        While dr.Read()
            WriteLine(dr(0))
            WriteLine(dr(1))
            WriteLine(dr(2))
            WriteLine(dr(3))
            WriteLine(dr(4))
            ' writing to console
        End While
Catch
End Try
dr.Close()
myConnection.Close()

【讨论】：

谢谢，但不起作用，您似乎只是从其他地方复制并粘贴了它。如您所见，我正在使用 odbc 连接到 mysql 数据库。我没有使用 mysql connector.net
是的，向您展示它很容易，您也可以通过谷歌搜索找到另一个事实是我是 c# 背景，所以无法在 vb.net 中提供代码

【解决方案2】：

@pranay 您不需要嵌套循环。

Try
    myConnection = New SqlConnection("server=localhost;uid=sa;pwd=;database=pubs")
    myConnection.Open()
    myCommand = New SqlCommand("Select * from discounts", myConnection)
    dr = myCommand.ExecuteReader()
    While dr.Read()
        WriteLine(dr(0))
        WriteLine(dr(1))
        WriteLine(dr(2))
        WriteLine(dr(3))
        WriteLine(dr(4))
    End While
    dr.Close()
Finally
    myConnection.Close()
End Try

【讨论】：