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.
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