Řešil jsem potřebu načítání dat z datasetu přímo do pole (používám hodnoty pro výpočty) a nikde jsem nemohl najít návod jak na to. Nakonec jsem si vytvořil malou funkci která načte data přímo z datasetu a libovolné tabulky. Stačí funkci předat dotyčný DataSet a jméno obsažené tabulky ze které chci data načíst. Třeba by se to mohlo někomu hodit.
Public Shared Function NacistDsDoPole(ByVal dsName As DataSet, ByVal dtblName As String) As Object
Dim mRows As DataRow
Dim ro As Integer = dsName.Tables(dtblName).Rows.Count
Dim col As Integer = dsName.Tables(dtblName).Columns.Count
Dim hodn As String
Dim r As Integer
Dim c As Integer
Dim mPole(ro, col) As String
For r = 0 To ro - 1
For c = 0 To col - 1
mRows = dsName.Tables(dtblName).Rows(r)
hodn = mRows(c).ToString
mPole(r, c) = hodn
Next
Next
Return mPole
End Function
Třeba mi i někdo poradí jak to dělat lépe. Stále se zatím učím.
|