считыватель данных в vb.net

Пожалуйста, помогите, как мне сделать цикл while эквивалентным этому циклу for. Чтобы я мог читать из одной строки в таблице базы данных 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
person user225269    schedule 16.07.2010    source источник

Ответы (2)


arrow_upward
3
arrow_downward

Если вы хотите прочитать только первую строку, чем просто используйте

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()
person Pranay Rana    schedule 16.07.2010
comment
Спасибо, но не работает, кажется, вы просто скопировали и вставили откуда-то еще. Как видите, я использую odbc для подключения к базе данных mysql. Я не использую mysql Connector.net - person user225269; 16.07.2010
comment
да, чтобы показать вам, что это очень просто, вы также можете найти, погуглив другой факт: я за фон C #, поэтому не могу предоставить вам код в vb.net - person Pranay Rana; 16.07.2010

arrow_upward
2
arrow_downward

@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
person JWL_    schedule 16.07.2010