SQL-Suche über mehrere Tabellen-Relationen hinweg

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Bit-Bieger.

    SQL-Suche über mehrere Tabellen-Relationen hinweg

    Hallo Forum!

    Zuerst möchte ich mich bei allen für die tollen Beiträge und Tutorials hier herzlich bedanken. :thumbsup:
    Eine sehr wertvolle Unterstützung für einen SQL-Anfänger zum Einstieg in die Datenbänkerei!

    Doch einen Punkt hab ich beim besten Willen nicht kapiert, vielleicht könnt Ihr mir auf die Sprünge helfen:

    Wie kann ich über mehrere Tabellen-Relationen hinweg eines typisierten Datasets hinweg Datensätze suchen, die in Relation zueinander stehen?

    Beispiel Lagerverwaltung:

    [siehe Bild mit Tabellen im Anhang - hab es hier nicht einfügen können ?( ]


    Nun möchte ich eine Abfrage schreiben, die mit dem
    Input: id_halle & id_besitzer den
    Output: Anzahl aller Schrauben vom Besizter-x in gesamter Halle-x
    liefert (und die möglichst elegant programmiert ist und wenig Laufzeit benötigt.)

    Bislag habe ich nur 2 Ansätze gefunden die sich aber nicht so toll anfühlen:

    1. mit Expression-Columns
    (diese "bähen" das Datenmodell aber immer weiter auf, sind in der Anzahl beschränkt & Laufzeit ist mir unklar)

    2. mit ineinander geschachtelten Schleifen die Tabellen anhand der Relationen zu durchlaufen
    ( = Holzhammer-Methode? :D Laufzeit-kritisch und nicht gerade elegant)

    Gibt es für einen solch 'simplen' Anwendungsfall wirklich nix einfaches oder hab ich nur Tomaten auf den Augen 8| ?

    Würde mich über einen Wegweiser zum 'Königsweg' sehr freuen 8-)
    Bilder

    • Tabellen.jpg

      49,19 kB, 955×210, 56 mal angesehen

    zunächstmal täte ich empfehlen, im Datenmodell die überflüssigen tbl_-Prefixe zu entfernen.
    Dann kann man mit linq recht leicht abfragen:

    VB.NET-Quellcode

    1. dim halle As HalleRow, besitzer as BesitzerRow
    2. dim alleKistenPerBesitzerHalle = besitzer.GetKisteRows.Where(function(k)k.PaletteRow.ContainerRow.HalleRow is halle)' testweise für Debug-Zwecke ein .ToArray() anhängen.
    3. dim anzahlSchrauben = alleKistenPerBesitzerHalle.Sum(function(k)k.AnzahlSchrauben)
    Das wäre imo der Königsweg.
    GeschwindigkeitsOptimierungen sind möglich, aber glaub nicht erforderlich.
    (Wenn du das umschreibst auf deine Tbl_-Dinger, poste mal den Code - zum Vergleich der Leserlichkeit an diesem Punkt.)
    Das mit dem .ToArray() ist gut zum Debuggen, es verwandelt die - schlecht zu debuggende - query alleKistenPerBesitzerHalle in ein normales Kisten-Array, dessen Inhalt man am Haltepunkt im Lokal-Fenster bequem einsehen kann.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Hallo ErfinderDesRades,

    vielen tausend DANK für die superschnelle Antwort!!! :thumbsup:

    genau das war es, was ich gebraucht und vergeblich gesucht habe...es funktioniert 1A!!! :thumbup:

    (... und die TBL_'s habe ich gleich entfert - besser so.)

    Anbei der 'schnelle' TestCode mit Debug-Ausgabe.
    Erst werden die Tabellen mit Datensätzen gefüllt, dann 2 Abfragen für die erste Halle für Besitzer1 und dann für Besitzer2, schließlich die Ausgabe der Summe und des Inhaltes des gesamten Suchergebnisses

    Mit 'N' kann die Anzahl der Hallen, deren Container, deren Paletten, deren Kisten (*2) eingestellt werden.

    Kisten vom ersten Benutzer enthaltenten jeweils 5 Schrauben
    Kisten vom zweiten Benutzer enthaltenten jeweils 10 Schrauben

    nochmals vielen Dank für Deine Unterstützung!!!

    VB.NET-Quellcode

    1. Option Explicit On
    2. Option Strict On
    4. Public Class Form1
    6. Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
    8. DataSet11.Clear()
    10. Const n = 2
    12. Dim idHalle As Integer = 0
    13. Dim idContainer As Integer = 0
    14. Dim idPalette As Integer = 0
    15. Dim idKiste As Integer = 0
    17. For idBesitzer = 0 To n - 1
    18. DataSet11.Besitzer.AddBesitzerRow(idBesitzer)
    19. Next
    21. For iHalle = 0 To n - 1
    22. DataSet11.Halle.AddHalleRow(idHalle)
    24. For iContainer = 0 To n - 1
    25. DataSet11.Container.AddContainerRow(idContainer, DataSet11.Halle(idHalle))
    27. For iPalette = 0 To n - 1
    28. DataSet11.Palette.AddPaletteRow(idPalette, DataSet11.Container(idContainer))
    30. For iKiste = 0 To n - 1
    31. DataSet11.Kiste.AddKisteRow(idKiste, DataSet11.Palette(idPalette), DataSet11.Besitzer(0), 5)
    32. idKiste += 1
    33. Next
    35. For iKiste = 0 To n - 1
    36. DataSet11.Kiste.AddKisteRow(idKiste, DataSet11.Palette(idPalette), DataSet11.Besitzer(1), 10)
    37. idKiste += 1
    38. Next
    40. idPalette += 1
    41. Next
    43. idContainer += 1
    44. Next
    46. idHalle += 1
    47. Next
    49. Dim halle As DataSet1.HalleRow, besitzer As DataSet1.BesitzerRow
    50. Dim alleKistenPerBesitzerHalle As DataSet1.KisteRow()
    51. Dim anzahlSchrauben As Integer
    53. halle = DataSet11.Halle(0)
    54. besitzer = DataSet11.Besitzer(0)
    55. alleKistenPerBesitzerHalle = besitzer.GetKisteRows.Where(Function(k) k.PaletteRow.ContainerRow.HalleRow Is halle).ToArray
    56. anzahlSchrauben = alleKistenPerBesitzerHalle.Sum(Function(k) k.anzahl_schrauben)
    58. Console.WriteLine("Anzahl Schrauben: " & anzahlSchrauben)
    60. For i = 0 To alleKistenPerBesitzerHalle.Count - 1
    62. Console.WriteLine("idPalette: " & alleKistenPerBesitzerHalle(i).refid_palette.ToString & " | " &
    63. "idKiste: " & alleKistenPerBesitzerHalle(i).id_kiste.ToString & " | " &
    64. "IdBesitzer: " & alleKistenPerBesitzerHalle(i).refid_besitzer.ToString & " | " &
    65. "Anz. Schrauben: " & alleKistenPerBesitzerHalle(i).anzahl_schrauben & " | ")
    66. Next
    68. Console.WriteLine("")
    70. halle = DataSet11.Halle(0)
    71. besitzer = DataSet11.Besitzer(1)
    72. alleKistenPerBesitzerHalle = besitzer.GetKisteRows.Where(Function(k) k.PaletteRow.ContainerRow.HalleRow Is halle).ToArray
    73. anzahlSchrauben = alleKistenPerBesitzerHalle.Sum(Function(k) k.anzahl_schrauben)
    75. Console.WriteLine("Anzahl Schrauben: " & anzahlSchrauben)
    77. For i = 0 To alleKistenPerBesitzerHalle.Count - 1
    79. Console.WriteLine("idPalette: " & alleKistenPerBesitzerHalle(i).refid_palette.ToString & " | " &
    80. "idKiste: " & alleKistenPerBesitzerHalle(i).id_kiste.ToString & " | " &
    81. "IdBesitzer: " & alleKistenPerBesitzerHalle(i).refid_besitzer.ToString & " | " &
    82. "Anz. Schrauben: " & alleKistenPerBesitzerHalle(i).anzahl_schrauben & " | ")
    83. Next
    85. 'Output:
    86. 'Anzahl Schrauben: 40
    87. 'idPalette: 0 | idKiste: 0 | IdBesitzer: 0 | Anz. Schrauben: 5 |
    88. 'idPalette: 0 | idKiste: 1 | IdBesitzer: 0 | Anz. Schrauben: 5 |
    89. 'idPalette: 1 | idKiste: 4 | IdBesitzer: 0 | Anz. Schrauben: 5 |
    90. 'idPalette: 1 | idKiste: 5 | IdBesitzer: 0 | Anz. Schrauben: 5 |
    91. 'idPalette: 2 | idKiste: 8 | IdBesitzer: 0 | Anz. Schrauben: 5 |
    92. 'idPalette: 2 | idKiste: 9 | IdBesitzer: 0 | Anz. Schrauben: 5 |
    93. 'idPalette: 3 | idKiste: 12 | IdBesitzer: 0 | Anz. Schrauben: 5 |
    94. 'idPalette: 3 | idKiste: 13 | IdBesitzer: 0 | Anz. Schrauben: 5 |
    96. 'Anzahl Schrauben: 80
    97. 'idPalette: 0 | idKiste: 2 | IdBesitzer: 1 | Anz. Schrauben: 10 |
    98. 'idPalette: 0 | idKiste: 3 | IdBesitzer: 1 | Anz. Schrauben: 10 |
    99. 'idPalette: 1 | idKiste: 6 | IdBesitzer: 1 | Anz. Schrauben: 10 |
    100. 'idPalette: 1 | idKiste: 7 | IdBesitzer: 1 | Anz. Schrauben: 10 |
    101. 'idPalette: 2 | idKiste: 10 | IdBesitzer: 1 | Anz. Schrauben: 10 |
    102. 'idPalette: 2 | idKiste: 11 | IdBesitzer: 1 | Anz. Schrauben: 10 |
    103. 'idPalette: 3 | idKiste: 14 | IdBesitzer: 1 | Anz. Schrauben: 10 |
    104. 'idPalette: 3 | idKiste: 15 | IdBesitzer: 1 | Anz. Schrauben: 10 |
    106. End Sub
    107. End Class

Facebook
Telefonspende