Problem bei verschachtelter Datenbankabfrage (for each)

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Problem bei verschachtelter Datenbankabfrage (for each)

    Hallo liebes Forum...und natürlich alle DB-Experten,

    habe mal wieder ein Problem. :rolleyes:

    Ich möchte gerne eine DataTable aus dem Dataset(was temporär vorhanden ist) mit einer Tabelle aus der Datenbank(MS SQL) vergleichen.

    Hier mal mein Quellcode:

    VB.NET-Quellcode

    1. Private Sub checkKtoIsAvailable()
    3. DsCC1.KONTOAUSZUG_TEMP.Clear()
    4. DsCC1.KONTO_ANLEGEN.Clear()
    6. btxDatei.Value = fileName
    7. ' Erst die Tabellendaten abfragen
    8. ' LINQ2SQL
    9. Dim dataContext As New CC1DataContext()
    10. Dim kontoDB = (From k In dataContext.KONTO _
    11. Select k)
    13. 'LINQ2DataSet mit Variablen
    14. Dim kontoDS = (From k2 In DsCC1.KONTOAUSZUG _
    15. Select k2)
    17. Dim drw1 As DataRow
    18. Dim drw2 As DataRow
    19. For Each koDS In kontoDS
    21. For Each koDB In kontoDB
    23. If koDB.NameKonto = koDS.BankNameKontrahent And _
    24. koDB.Kontonummer = koDS.KtoKontrahent And _
    25. koDB.BLZ = koDS.BLZKontrahent Then
    26. ' Anzeige in Auszüge
    27. drw1 = DsCC1.KONTOAUSZUG_TEMP.NewRow
    28. drw1("idKontoAuszug") = Guid.NewGuid
    29. drw1("BankNameKontrahent") = koDB.NameKonto
    30. drw1("KtoKontrahent") = koDB.Kontonummer
    31. drw1("BLZKontrahent") = koDB.BLZ
    32. DsCC1.KONTOAUSZUG_TEMP.Rows.Add(drw1)
    33. Else
    34. 'Anzeige in Anlegen
    35. drw2 = DsCC1.KONTO_ANLEGEN.NewRow
    36. drw2("idBankKonto") = Guid.NewGuid
    37. drw2("Bank") = koDS.BankNameKontrahent
    38. drw2("KontoName") = koDS.KtoKontrahent
    39. drw2("BLZ") = koDS.BLZKontrahent
    40. DsCC1.KONTO_ANLEGEN.Rows.Add(drw2)
    41. End If
    42. Next
    43. Next
    44. bdgAuszug.SetDataBinding(DsCC1, "KONTOAUSZUG_TEMP", True)
    45. bdgKontoAnlegen.SetDataBinding(DsCC1, "KONTO_ANLEGEN", True)
    46. End Sub


    Leider werden in dem Grid "bdgKontoAnlegen" die Datensätze doppelt angezeigt.
    Er springt auch doppelt so oft in die if-Unterscheidung wie er soll.
    Habe mit dem Debugger "kontoDB" und "kontoDS" getestet, und der Inhalt stimmt auch soweit.
    Also kann es nur an der Schleife liegen, oder?

    Wie stelle ich die richtig an? Irgendwie fehlt mir da die Erfahrung... :whistling:

    Viele Grüße
    Trigoor

    Wie ich das sehe versuchst du die daten aus kontoDS nach kontoDB zu transferieren.
    Aber bei mehrmaligem durchlauf, vielleicht weil du etwas neues in kontoDS geschrieben hast wird auch automatisch das vorhandene mitgenommen.
    Du musst überprüfen ob das vorhandene, also das in kontoDB auch schon in kontoDS ist, und auch prüfen, ob es so ist, wie es sein soll. (laaanger Satz :whistling:)
    Wenn es noch nicht drin ist, dann erst einen Eintrag hinzufügen. :]

    Hallo BeefyX,

    Danke für die schnelle Antwort. :thumbsup:

    Nun ja, in kontoDS wird erst mal vorher nix geschrieben. Habe am Anfang der Prozedur ja auch das hier eingefügt:

    VB.NET-Quellcode

    1. DsCC1.KONTOAUSZUG_TEMP.Clear()
    2. DsCC1.KONTO_ANLEGEN.Clear()


    Also dürfte das Problem dort nicht liegen.
    Aber ich ahne Etwas. Das Problem lieg wo anders. Es wird ein sta-File eingelesen...und in verschiedenen Tabellen in der DB gespeichert...usw.

    Das Ganze ist recht komplex und kryptisch. Habe mal das Grid aus "KONTOAUSZUG" gefüllt, also ohne meine checkDingens...
    Und da wurden alle Einträge auch doppelt angezeigt. Und der Code ist nicht von mir... :whistling:

    Oje, das wird eine Menge Arbeit...und ich werde mir den Kopf zerbrechen wo der Fehler liegt... X(

    Viele Grüße
    Trigoor

    Trigoor schrieb:

    Ich möchte gerne eine DataTable aus dem Dataset(was temporär vorhanden ist) mit einer Tabelle aus der Datenbank(MS SQL) vergleichen.

    Mir scheint, du schmeißt da 2 konkurrierende Daten-Zugriffs-Strategien zusammen.

    Also entweder du arbeitest mit Linq2Sql (DataContext, Entities) oder mit Dataset, aber mit beidem in derselben Anwendung wirds zu Mega-Chaos.

    Hallo..,

    nun ja. Ich glaube es liegt an der Schleife. Habe das mit den sta's noch mal getest, und es klappt.

    @Erfinder des Rades:
    Nun ja...,mit LINQ2SQL kann man die Tabellen im O/R-Designer(also da wo eine DataContext erstellt wird) leicht erstellen. Und Abfragen (LINQ2SQL) funktionieren prima. Halt die volle IntelliSense-Unterstützung.

    Warum ich dann noch mit DataSets arbeite. Nun ja...der Code ist schon mal so programmiert worden, dass es ein DataSet gibt, und man kann die Grids einfach mit "SetDataBinding" an die Tabelle der DB(über das DataSet) binden.

    Wie macht man denn das so einfach mit LINQ2SQL? :?: ?( :?:


    Viele Grüße
    Trigoor

    P.S
    Ist die Schleife jetzt richtig, oder nicht? ?(

    Aus den L2S-Klassen ObjectDataSources erstellen.

    msdn.microsoft.com/en-us/vbasic/ff718217

    Das eigliche erstellen einer ObjecDatasource geht erst inne Mitte vom 1. Video los.

    Das davor ist leidlich interessant, brauchst du aber nicht, denn L2S generiert solche Klassen wie state und city, und zwar besser als beth massys implementation.

    Hi...,

    habe eine Lösung gefunden.
    Siehe hier:

    VB.NET-Quellcode

    1. Private Sub checkKontoIsAvailable()
    2. btxDatei.Value = fileName
    3. ' Erst die Tabellendaten abfragen
    4. ' LINQ2SQL
    5. Dim dataContext As New CCDataContext()
    6. Dim kontoDB = (From k In dataContext.KONTO _
    7. Select k)
    9. 'LINQ2DataSet mit Variablen
    10. Dim kontoAuszugDS = (From k2 In DsCC1.KONTOAUSZUG _
    11. Select k2)
    13. Dim drw1 As DataRow
    14. Dim drw2 As DataRow
    15. For Each koDB In kontoDB
    17. Dim counter As Integer
    18. For Each koAuszug_DS In kontoAuszugDS
    20. If koDB.NameKonto = koAuszug_DS.BankNameKontrahent AndAlso _
    21. koDB.Kontonummer = koAuszug_DS.KtoKontrahent AndAlso _
    22. koDB.BLZ = koAuszug_DS.BLZKontrahent Then
    23. ' Anzeige in Auszüge
    24. drw1 = DsCC1.KONTOAUSZUG_TEMP.NewRow
    25. drw1("idKontoAuszug") = Guid.NewGuid
    26. drw1("BankNameKontrahent") = koDB.NameKonto
    27. drw1("KtoKontrahent") = koDB.Kontonummer
    28. drw1("BLZKontrahent") = koDB.BLZ
    29. DsCC1.KONTOAUSZUG_TEMP.Rows.Add(drw1)
    30. Else
    31. 'Anzeige in Anlegen
    32. drw2 = DsCashController1.KONTO_ANLEGEN.NewRow
    33. drw2("idBankKonto") = Guid.NewGuid
    34. drw2("Bank") = koAuszug_DS.BankNameKontrahent
    35. drw2("Kontonummer") = koAuszug_DS.KtoKontrahent
    36. drw2("BLZ") = koAuszug_DS.BLZKontrahent
    38. Dim kontoDBTemp = (From k In dataContext.KONTO _
    39. Select k)
    41. Dim kotNako As String
    42. Dim kotTBLZ As String
    43. Dim kotKtoNr As String
    44. For Each koT In kontoDBTemp
    45. kotNako = koT.NameKonto
    46. kotTBLZ = koT.BLZ
    47. kotKtoNr = koT.Kontonummer
    48. Next
    50. If counter = 0 Then
    51. counter = -1
    52. If kotNako = koAuszug_DS.BankNameKontrahent AndAlso kotTBLZ _
    53. = koAuszug_DS.BLZKontrahent AndAlso kotKtoNr _
    54. = koAuszug_DS.KtoKontrahent Then
    55. counter = 0
    56. Else
    57. DsCC1.KONTO_ANLEGEN.Rows.Add(drw2)
    58. End If
    59. Else
    60. counter = 0
    61. End If
    62. End If
    63. Next koAuszug_DS
    64. Next koDB
    65. bdgKontoAnlegen.SetDataBinding(DsCC1, "KONTO_ANLEGEN", True)
    66. bdgAuszug.SetDataBinding(DsCC1, "KONTOAUSZUG_TEMP", True)
    67. End Sub


    Aber es könnte doch eleganter gehen, oder? Z.B ohne den Counter?

    @ErfinderDesRades
    Danke für den Link. Werde mich mal bei ein bisschen Leerlauf damit beschäftigen. Aber LINQ2OBJECT, oder wie es auch heißt...LINQ2ENTITIES (ist doch dasselbe, oder?), habe ich gelesen soll etwas schwieriger sein als LINQ2DATASET.
    Nun ja, mal schauen. ;)

    Habe aber ein neues Problem. Aber dazu gibt es gleich den nächsten Thread. :D

    Viele Grüße
    Trigoor

    Trigoor schrieb:

    Aber LINQ2OBJECT, oder wie es auch heißt...LINQ2ENTITIES (ist doch dasselbe, oder?), habe ich gelesen soll etwas schwieriger sein als LINQ2DATASET.

    Oh, bei dem Thema musste mitte Begriffe genau umgehen.
    es gibt 3 relationale Datenmodelle, davon sind 2 OR-Mapper, nämlich Linq2Sql und EntityFramework. Diese OR-Mapper verwenden als Auflistungsklassen sog. EntitySets

    Das 3. relationale Datenmodell ist das typisierte Dataset, und das verwendet DataTables, um die Datensätze aufzulisten.

    Linq2Dataset ist kein Datenmodell, sondern das bezeichnet ein paar schnucklige Lambda-Expressions, mit denen man auf Datasetse losgehen kann.

    von daher ergibt deine Frage keinen Sinn, weils die Dinge nicht gibt, ausser Linq2Dataset, aber das ist ja garkein Datenmodell.

Facebook
Telefonspende