Mehrere Rückgabewerte einer DB abfrage erhalten

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von M-Jay.

    Mehrere Rückgabewerte einer DB abfrage erhalten

    Moin,
    ich habe ein Problem:
    Undzwar führe ich eine DB Suche durch die mir mehrere Artikel in eine Klasse füllt , diese Hauptartikel können jeweils keine oder auch mehrere (nach oben hin unbegrenzt) AbrechnungsArtikel haben , diese wiederum möchte ich in einer zweiten Abfrage an die DB auslesen, wenn ich die Abfrage manuell ausführe werden mir auch die richtigen ergebnisse ausgegeben , in meiner Application nicht, mittlerweile habe ich auch herausgefunden woran es liegt , allerdings weiß ich nicht wie ich es beheben soll.
    Undzwar durchlaufe ich zwar wie gewollt für jeden Artikel einmal die DB abfrage , allerdings bekomme ich immer nur das erste ergebnis zurück, was natürlich nicht das gewünschte Ergebnis ist wenn der Artikel z.B. 3 Abrechnungsartikel hat ( das weiß ich vorher aber noch nicht).
    Also der langen rede kurzer Sinn: Wie bekomme ich zb alle 3 Abrechnungsergebnisse augegeben um sie in meine Klasse zu schreiben?
    Vielen dank schon mal



    VB.NET-Quellcode

    1. For Each ar As ArtikelListen In ArtikelArray
    2. sqlstring = "SELECT a.intartikelnr, wgranr2=right('0000'+ltrim(rtrim(a.warengruppenr)),5)+right('000'+ltrim(rtrim(a.artikelnr)),4)," _
    3. + "a.KurzBez, a.himi_nr, a.Bez1, a.Bez2, a.Bez3," _
    4. + "m.mwstsatz, mengeneinheit= isnull(h.bez,h.Mengeneinheitid)," _
    5. + "wgranr=ltrim(rtrim(a.warengruppenr))+'/'+ltrim(rtrim(a.artikelnr))," _
    6. + "lieferantenkurzname=L.kurzname," _
    7. + "a.PharmaZentralNummer," _
    8. + "a.EAN, a.SaniZentralNummer," _
    9. + "a.LfArtikelNr, a.alternnr," _
    10. + "a.Eigenschaft1," _
    11. + "a.Eigenschaft2," _
    12. + "a.Eigenschaft3," _
    13. + "Eigenschaft4=a.Modell, a.Lagerkorrektur FROM Artikel a, Mengeneinheit h, mwstsatz m, lieferant L , ArtikelAbrechPos p WHERE h.Mengeneinheitid=*a.Mengeneinheitid AND " _
    14. + "m.mwst_vh0=a.mwst_vh0 AND a.lieferantnr*=L.lieferantnr " _
    15. + "AND isnull(a.archiv,'0')='0' and a.verkaufskennzeichen='F' " _
    16. + "AND a.intartikelnr = p.IntArtikelNrAbrech AND p.IntArtikelNr = " + ar.intArtikelNr
    18. cmd.Parameters.Clear()
    19. cmd.CommandText = sqlstring
    20. cmd.CommandType = CommandType.Text
    21. Try
    22. reader = cmd.ExecuteReader(CommandBehavior.SingleRow)
    23. Do While reader.Read()
    25. If reader.HasRows Then
    27. ar.hatAbrechPos = True
    28. abrechnungsArtikel.intArtikelNr = ar.intArtikelNr
    30. If Not IsDBNull(reader("intartikelnr")) Then
    31. abrechnungsArtikel.AbrintArtikelNr = reader("intartikelnr").ToString
    32. End If
    33. If Not IsDBNull(reader("KurzBez")) Then
    34. abrechnungsArtikel.AbrKurzBez = reader("KurzBez").ToString
    35. End If
    36. If Not IsDBNull(reader("wgranr")) Then
    37. abrechnungsArtikel.AbrWGRANR = reader("wgranr").ToString
    38. End If
    39. If Not IsDBNull(reader("Bez1")) Then
    40. abrechnungsArtikel.AbrBez1 = reader("Bez1").ToString
    41. End If
    42. If Not IsDBNull(reader("Bez2")) Then
    43. abrechnungsArtikel.AbrBez2 = reader("Bez2").ToString
    44. End If
    45. If Not IsDBNull(reader("Bez3")) Then
    46. abrechnungsArtikel.AbrBez3 = reader("Bez3").ToString
    47. End If
    48. If Not IsDBNull(reader("Eigenschaft1")) Then
    49. abrechnungsArtikel.AbrEig1 = reader("Eigenschaft1").ToString
    50. End If
    51. If Not IsDBNull(reader("Eigenschaft2")) Then
    52. abrechnungsArtikel.AbrEig2 = reader("Eigenschaft2").ToString
    53. End If
    54. If Not IsDBNull(reader("Eigenschaft3")) Then
    55. abrechnungsArtikel.AbrEig3 = reader("Eigenschaft3").ToString
    56. End If
    57. If Not IsDBNull(reader("himi_nr")) Then
    58. abrechnungsArtikel.Abrhimi = reader("himi_nr").ToString
    59. End If
    60. If Not IsDBNull(reader("lieferantenkurzname")) Then
    61. abrechnungsArtikel.AbrLieferant = reader("lieferantenkurzname").ToString
    62. End If
    63. If Not IsDBNull(reader("LfArtikelNr")) Then
    64. abrechnungsArtikel.AbrLfArtikelNr = reader("LfArtikelNr").ToString
    65. End If
    66. If Not IsDBNull(reader("PharmaZentralNummer")) Then
    67. abrechnungsArtikel.Abrpzn = reader("PharmaZentralNummer").ToString
    68. End If
    69. If Not IsDBNull(reader("EAN")) Then
    70. abrechnungsArtikel.Abrean = reader("EAN").ToString
    71. End If
    72. If Not IsDBNull(reader("SaniZentralNummer")) Then
    73. abrechnungsArtikel.Abrszn = reader("SaniZentralNummer").ToString
    74. End If
    75. If Not IsDBNull(reader("alternnr")) Then
    76. abrechnungsArtikel.Abralternnr = reader("alternnr").ToString
    77. End If
    78. If Not IsDBNull(reader("mengeneinheit")) Then
    79. abrechnungsArtikel.Abrmengeneinheit = reader("mengeneinheit").ToString
    80. End If
    81. If Not IsDBNull(reader("Lagerkorrektur")) Then
    82. If reader("Lagerkorrektur").ToString = "1" Then
    83. abrechnungsArtikel.AbrLagerkorrektur = True
    84. Else
    85. abrechnungsArtikel.AbrLagerkorrektur = False
    86. End If
    87. End If
    88. vd.schreibeUndPrintMeldung(abrechnungsArtikel.intArtikelNr + "' abrechnungsIntartikelNr='" + abrechnungsArtikel.AbrintArtikelNr + "'" + vbCrLf)
    89. vd.schreibeUndPrintMeldung("gsqlstring='" + sqlstring + "'" + vbCrLf)
    90. AbrechnungsListe.Add(abrechnungsArtikel)
    91. End If
    92. loop
    94. reader.Close()
    96. Catch ex As Exception
    97. Response.Write(ex.ToString + "<br/>")
    98. vd.schreibeUndPrintMeldung("gsqlstring='" + sqlstring + "'" + vbCrLf)
    99. vd.schreibeUndPrintMeldung(ex.ToString + vbCrLf)
    100. End Try
    102. If Not reader Is Nothing Then
    103. reader.Close()
    104. End If
    105. Next



    Die vd.schreibeUndPrintMeldung könnt ihr übrigens Ignorieren , das sind nur meine Debugger ;)

    ctextrem schrieb:

    Nimm dafür ein typ. Dataset. da kannst du dann auch im Designer alle Commands eingeben und im Programm musst du es nur noch über eine Codezeile daraufzugreifen.


    Vielen Dank erstmal, mir ist mein Fehler allerdings aufgefallen, ich hätte statt
    reader = cmd.ExecuteReader(CommandBehavior.SingleRow)
    folgendes nehmen sollen reader = cmd.ExecuteReader(CommandBehavior.SingleResult)
    das gibt mir das richtige zurück, damit ist das problem gelöst , was mich zu meinem nächsten Problem führt :

    In der schleife gebe ich ja folgendes ein
    abrechnungsArtikel.intArtikelNr = ar.intArtikelNr

    das sorgt leider nicht wie gewollt dafür, dass jeder artikel die intartikelNr des aktuellen Hauptartikels kriegt sondern dafür dass alle die intartikelNr die intartikelNr des letzten Hauptartikels der Schleife kriegen, hat jemand eine Idee woran das liegt? Ich stehe da leider etwas auf dem schlauch ?(

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „M-Jay“ ()

    So bin nun selber auf die Lösung gekommen, hätte in der schleife die abrechnungsArtikel mit
    abrechnungsArtikel=new Abrechnungsartikel initialisieren müssen statt es am anfang der seite zu tun, dennoch vielen dank an alle die sich mit meiner Frage beschäftigt haben