Wie fügen Sie Datenbank-Abfrage-Ergebnisse in ein array

Gibt es eine Reihe von verschiedenen Möglichkeiten, dies zu nähern, je nach den tatsächlichen Bedürfnissen Ihres Projekts. In Erster Linie möchte ich Fragen, ob Sie auch tatsächlich benötigen ein string-array als Rückgabetyp. Für die meisten Fällen ein array ist weniger nützlich, dass eine List(Of String) oder andere Arten, die IEnumerable implementieren.

Hier sind zwei Optionen, die beide beinhalten eine List(Of String). Allerdings gibt die Liste an den Aufrufer, die können dann wählen, zu beschäftigen, die viele nützliche Methoden von der Liste geben mit den Daten arbeiten:

DIES ist die Art und Weise, die ich empfehlen würde:

Public Function getListOfMotonum() As List(Of String)
    Dim SQL As String = "SELECT motonum FROM moto"

    Dim output As New List(Of String)()

    ' Set the connection string in the Solutions Explorer/Properties/Settings object (double-click)
    Using cn = New SqlConnection(Properties.Settings.[Default].MyConnectionString)
        Using cmd = New SqlCommand(SQL, cn)
            cn.Open()

            Try
                Dim dr = cmd.ExecuteReader()
                While dr.Read()
                    output.Add(dr("motonum").ToString())
                End While
            Catch e As SqlException
                ' Do some logging or something. 
                MessageBox.Show("There was an error accessing your data. DETAIL: " & e.ToString())
            End Try
        End Using
    End Using

    Return output

End Function

Hier ist ein triviales Beispiel der code verbraucht die Ausgabe dieser Funktion:

Private Sub PrintListToConsole()
    Dim MyMotonumList = Me.getListOfMotonum()

    For Each item As String In MyMotonumList
        Console.WriteLine(item)
    Next
End Sub

Wenn Ihr Projekt ERFORDERT ein string-array, der Ansatz kann variieren. Sie können einen string zurückzugeben, der aus der gleichen Funktion mit ein paar kleinen Modifikationen:

' Change the return type in the function signature:
Public Function getArrayOfMotonum() As String()
    Dim SQL As String = "SELECT motonum FROM moto"
    Dim output As New List(Of String)()

    '  . . . Same Data Access code as above:

    ' Just use the .ToArray method of the List class HERE:
    Return output.ToArray()

End Function

Oder Sie können verwenden die gleiche Methode, die Sie in Ihrem client-code, der Konsum die ursprüngliche Funktion, die eine Liste zurückgibt:

Private Sub PrintArrayToConsole()
    Dim MyMotonumArray = Me.getArrayOfMotonum()

    For Each item As String In MyMotonumArray 
        Console.WriteLine(item)
    Next
End Sub

Rücksendung der Liste Ihrer Funktion bietet eine mehr flexible return-Typ, mit vielen nützlichen Methoden.

Als eine Randnotiz, lassen Sie mich empfehlen die Verwendung von block beim Verbrauch von Daten, den Zugriff auf Ressourcen. Er sorgt für die ordnungsgemäße abreißen und die Entsorgung der Connection-und Command-Objekten für Sie.