Anzeigen von Daten aus SQL zu vb.net Listbox

Question

Ich versuche, alle Golfer Informationen von TGolfers in eine ListBox anzuzeigen. Aber wenn ich meinen Code ausführe, wird nur die Information eines Golfers angezeigt.

Public Class frmGolfers 

    Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click 

     Dim strSelect As String = "" 
     Dim strName As String = "" 
     Dim cmdSelect As OleDb.OleDbCommand ' this will be used for our Select statement 
     Dim drSourceTable As OleDb.OleDbDataReader ' this will be where our data is retrieved to 
     Dim dt As DataTable = New DataTable ' this is the table we will load from our reader 

     ' open the database 
     If OpenDatabaseConnectionSQLServer() = False Then 

      ' No, warn the user ... 
      MessageBox.Show(Me, "Database connection error." & vbNewLine & _ 
           "The application will now close.", 
           Me.Text + " Error", 
           MessageBoxButtons.OK, MessageBoxIcon.Error) 

      ' and close the form/application 
      Me.Close() 

     End If 

     ' Build the select statement using PK from name selected 
     strSelect = "SELECT * FROM TGolfers " 

     ' Retrieve all the records 
     cmdSelect = New OleDb.OleDbCommand(strSelect, m_conAdministrator) 
     drSourceTable = cmdSelect.ExecuteReader 

     ' load the data table from the reader 
     dt.Load(drSourceTable) 

     ' populate the text boxes with the data 
     lbxDisplay.Items.Add(dt.Rows(0).Item(1).ToString & "," & " " & dt.Rows(0).Item(2).ToString & 
          ControlChars.CrLf & " " & dt.Rows(0).Item(3).ToString & " " & dt.Rows(0).Item(4).ToString & " " & dt.Rows(0).Item(5).ToString & " " & dt.Rows(0).Item(6).ToString) 


     ' close the database connection 
     CloseDatabaseConnection() 

    End Sub 
End Class 

Answer 1

Nach dem Laden starten Datentabelle eine Schleife

...... 
' load the data table from the reader 
dt.Load(drSourceTable) 

' populate the text boxes with the data 
For Each row in dt.Rows 
    Dim text = row(1).ToString & ", " & _ 
       row(2).ToString & ControlChars.CrLf & " " & _ 
       row(3).ToString & " " & _ 
       row(4).ToString & " " & _ 
       row(5).ToString & " " & _ 
       row(6).ToString 
    lbxDisplay.Items.Add(text) 
Next 
...... 

Auf diese Weise können Schleife über jede Zeile, die in der Sammlung dt.Rows, extrahieren die erforderlichen Informationen, um eine Zeichenfolge bauen und fügen die Zeichenfolge die Auflistung von ListBox-Elementen.

Beachten Sie, dass ich Ihre Indexierung ab Index = 1 für jede Spalte in der DataRow gefolgt ist, aber beachten Sie, dass in NET die Array-Indizierung bei Index 0 nicht 1 beginnt, also die erste Spalte Ihres Datarow ist bei Index 0 Ändern Sie den Index im Code entsprechend Ihren Bedürfnissen. (Das heißt, wenn Sie 6 Spalten in dieser Tabelle haben, sollte die Indexierung von 0 bis 5 gehen, wenn Sie den Index 6 in diesem Szenario verwenden)