Servus Leute,
wie befüllt man ein Dataset, in dem 2 Datatables existieren und eine 1:n Relation zueinanderhaben richtig?
Die Daten ziehe ich mir aus einer Datei, welcher in einer List(of String) gespeichert werden.
Mir würde es nur so einfallen, das ich mittels einer For Each-Schleife die Daten in der ersten Datatable("Products") speichere, dann eine Function aufrufe, die die DataTable ("Products") nach z.B. der EAN durchsucht, mir die ID von dem gefundenen EIntrag übergibt und diese Trage ich dann in der spalte "ProductID" ein und befülle die weiteren Spalten mit meinen Daten.
quasi so:
wie befüllt man ein Dataset, in dem 2 Datatables existieren und eine 1:n Relation zueinanderhaben richtig?
Die Daten ziehe ich mir aus einer Datei, welcher in einer List(of String) gespeichert werden.
Mir würde es nur so einfallen, das ich mittels einer For Each-Schleife die Daten in der ersten Datatable("Products") speichere, dann eine Function aufrufe, die die DataTable ("Products") nach z.B. der EAN durchsucht, mir die ID von dem gefundenen EIntrag übergibt und diese Trage ich dann in der spalte "ProductID" ein und befülle die weiteren Spalten mit meinen Daten.
quasi so:
VB.NET-Quellcode
- Sub GetData() 'alle einträge in einer List(Of String) speichern
- Dim _x As New List(Of String)(System.IO.Directory.GetFiles("B:\Bearbeitet\", "*.json", System.IO.SearchOption.AllDirectories))
- For Each line As String In _x 'alle einträge aus der List(Of String) durchgehen
- CreateXML(ReadData(line))' Create XML= in DataSet eintragen, ReadData= Die benötigten Daten aus der Datei lesen
- Next
- End Sub
- Sub CreateXML(ByRef line As List(Of String))
- Dim tr As New DataSet1.ProductsDataTable
- Dim Title As String = line(1)
- Dim Description As String = line(8)
- Dim Gewicht As String = line(6)
- Dim Breite As String = line(11)
- Dim Höhe As String = line(13)
- Dim Tiefe As String = line(12)
- Dim Hersteller As String = line(3)
- Dim _Hersteller_Nummer As String = line(5)
- Dim _Hersteller_URL As String = line(4)
- Dim Image As String = line(13)
- Dim EAN As String = line(7)
- Dim TechnischeDaten As String = line(9)
- tr.AddProductsRow(Title, Description, Höhe, Breite, Tiefe, Gewicht, Hersteller, _Hersteller_URL, _Hersteller_Nummer, TechnischeDaten, Image)
- 'hier dann die Function aufrufen um die ID von dem letzten eintrag zu erhalten und dann die 2te DataTable (Deliver) eintragen
- End Sub