lecteur de données dans vb.net

Question

S'il vous plaît aider, comment puis-je faire une boucle tout en équivalent de cette boucle for. Alors que je pouvais lire d'une ligne dans la table de la base de données mysql et l'afficher sur la liste déroulante dans vb.net.

J'utilise ce code, mais son certainement pas utile s'il y a 3 ou plusieurs éléments qui sont ajoutés dans la ligne:

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 

Je veux lire toutes les données que la ligne Drug_type S'il vous plaît aider , grâce

Answer 1

Si vous voulez lire seulement la première ligne que il suffit d'utiliser

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

Mise à jour

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() 

Answer 2

@pranay Vous n'avez pas besoin des boucles imbriquées.

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