Endlosschleife beim Daten auslesen

psychomama

Mitglied
Guten Morgen,

ich habe mal wieder ein Problem. In der rot-markierten Schleife werden die Daten aus der DB in ein Textfeld geladen. Nur komischerweiße unendlich(33 mal, vllt ist dann das Textfeld voll?!) mal. Ich finde leider den Fehler nicht und dachte mir Ihr könnt mir helfen.:)

Code:
    Function BeurteilungAuslesen() As Object

        Dim sID As String
        Dim spalte As String
        Dim sValue As String

        Dim rbl As RadioButtonList
        Dim con1 As New System.Data.OleDb.OleDbConnection(cDBPath)
        con1.Open()

        Dim com2 As New System.Data.OleDb.OleDbCommand("Select * FROM azgBewertungen ORDER BY Bereich", con1)
        Dim dr2 As System.Data.OleDb.OleDbDataReader
        dr2 = com2.ExecuteReader()
        Do While dr2.Read()
            rbl = Me.Beurteilung.FindControl("rbl" & (dr2("ID")))
            sID = (dr2("ID"))
            sValue = rbl.SelectedValue

            spalte = "SELECT " & sValue & " FROM azgBewertungen WHERE ID= " & sID & "ORDER BY Bereich"

            Dim com1 As New System.Data.OleDb.OleDbCommand(spalte, con1)
            Dim dr1 As System.Data.OleDb.OleDbDataReader
            dr1 = com1.ExecuteReader()
            Do While dr1.Read()

                Me.RN03_beurteilung.Text = Me.RN03_beurteilung.Text & vbCrLf & (dr1(sValue))

            Loop            dr1.Close()
        Loop

        dr2.Close()
        con1.Close()

    End Function
 
Ich bin mir nicht sicher, da ich damit schon länger nicht mehr gearbeitet habe, aber müsstest du nicht sowas wie
Code:
dr1.MoveNext
in der Schleife ausführen, damit er zum nächsten Datensatz weitergeht?
 
Ich merk grad, dass ich 33 Datensätze in der DB hab, des passt dann ja schon n bisschen zusammen... aber wie ich weiter komm weiß ich immer noch nicht):
 
Also mein Problem ist gelöst.... ich hatte noch ne Schleife zu viel in der Page_Load, wo die function aufgerufen wurde... also stimmt mit dem code alles:)
Trotzdem danke:)
 

Neue Beiträge

Zurück