Doppelte Einträge

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Doppelte Einträge

    Hey Leute,
    ich rufe für mehrere Gruppen Informationen aus einer Datenbank ab.
    Wenn jetzt einer in mehreren Gruppen ist wird er doppelt angezeigt.

    Die anderen Abfragen sind auch so aufgebaut halt nur mit einer anderen Where Abfrage.
    Wie mache ich jetzt das doppelte nicht in der ListView angezeigt bzw. gar nicht erst eingetragen werden.

    VB.NET-Quellcode

    1. Public Sub stufeovaurich()
    2. Dim sqlquery As String = "SELECT * FROM mitglieder WHERE OVAurich = 'Ja'"
    3. Dim sqlAdapter As New MySqlDataAdapter
    4. Dim sqlcommand As New MySqlCommand
    5. Dim TABLE As New DataTable
    6. Dim i As Integer
    7. With sqlcommand
    8. .CommandText = sqlquery
    9. .Connection = sConnection
    10. End With
    11. With sqlAdapter
    12. .SelectCommand = sqlcommand
    13. .Fill(TABLE)
    14. End With
    15. For i = 0 To TABLE.Rows.Count - 1
    16. With ListView1
    17. .Items.Add(TABLE.Rows(i)("Name"))
    18. With .Items(.Items.Count - 1).SubItems
    19. .Add(TABLE.Rows(i)("Vorname"))
    20. .Add(TABLE.Rows(i)("Strasse"))
    21. .Add(TABLE.Rows(i)("Hausnummer"))
    22. .Add(TABLE.Rows(i)("PLZ"))
    23. .Add(TABLE.Rows(i)("Ort"))
    24. .Add(TABLE.Rows(i)("Geburtsdatum"))
    25. .Add(TABLE.Rows(i)("Telefon"))
    26. .Add(TABLE.Rows(i)("Handy"))
    27. .Add(TABLE.Rows(i)("EMail"))
    28. .Add(TABLE.Rows(i)("Eintritt"))
    29. .Add(TABLE.Rows(i)("Ausweisnummer"))
    30. .Add(TABLE.Rows(i)("Juleica"))
    31. .Add(TABLE.Rows(i)("JuleicaBis"))
    32. .Add(TABLE.Rows(i)("Gruppenleiter"))
    33. .Add(TABLE.Rows(i)("Stufe01"))
    34. .Add(TABLE.Rows(i)("Stufe23"))
    35. .Add(TABLE.Rows(i)("StufeSSDRSA"))
    36. .Add(TABLE.Rows(i)("StufeSSDIGS"))
    37. .Add(TABLE.Rows(i)("StufeND"))
    38. .Add(TABLE.Rows(i)("StufeSBL"))
    39. .Add(TABLE.Rows(i)("Notfallblatt"))
    40. .Add(TABLE.Rows(i)("Internet"))
    41. .Add(TABLE.Rows(i)("PoloAurich"))
    42. .Add(TABLE.Rows(i)("PoloSBL"))
    43. .Add(TABLE.Rows(i)("PoloND"))
    44. .Add(TABLE.Rows(i)("PoloSSDRSA"))
    45. .Add(TABLE.Rows(i)("PoloSSDIGS"))
    46. .Add(TABLE.Rows(i)("PoloGL"))
    47. .Add(TABLE.Rows(i)("KJ"))
    48. .Add(TABLE.Rows(i)("KJGL"))
    49. .Add(TABLE.Rows(i)("HoseND"))
    50. End With
    51. End With
    52. Next
    53. End Sub


    Danke schonmal.