Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datareader @ Newbie
Autor: Easyrider
Datum: 26.03.04 15:47
Hawan, ich nerv mal wieder : Mein Code:   rLP As SqlDataReader Dim cmdLP As SqlCommand = conn.CreateCommand Dim Zeile As Integer = 0 Dim Passwort As String Dim Benutzer As String Dim Server As String Dim Database As String Passwort = ReadValue(strPfad, "PW") Benutzer = ReadValue(strPfad, "User") Server = ReadValue(strPfad, "Server") Database = ReadValue(strPfad, "Database") cmdLP.CommandText = "EXEC bitLaufendeProduktion " & Me.boxMaschine1.Tag If mdlFehlerwerte.conn.State = ConnectionState.Closed Then Try mdlFehlerwerte.conn.ConnectionString = "Password=" & Passwort & ";Persist Security Info=True;User ID=" & Benutzer & ";Initial Catalog=" & Database & ";Data Source=" & Server & ";" mdlFehlerwerte.conn.Open() mdlFehlerwerte.daWE.Fill(dsWE, "Werkzeugeinsatz") Catch ex As Exception MsgBox(ex.Message) Exit Sub End Try End If drLP = cmdLP.ExecuteReader If drLP.IsClosed = False Then drLP.Close() End If Try Do If Me.boxMaschine1.Tag = mdlFehlerwerte.dsWE.Tables(0).Rows(Zeile)(1) And _ IsDBNull(mdlFehlerwerte.dsWE.Tables(0).Rows(Zeile)(4)) = True Then If drLP.Read = False Then Me.tmrBlinklicht1.Enabled = True mdlFehlerwerte.Fehler1 = 2 Exit Try Else mdlFehlerwerte.Fehler1 = 0 Me.boxMaschine1.Refresh() Exit Try End If End If Zeile += 1 Loop Until Zeile = mdlFehlerwerte.dsWE.Tables(0).Rows.Count mdlFehlerwerte.Fehler1 = 1 Me.boxMaschine1.Refresh() Catch ex As Exception MsgBox(ex.Message) End Try cmdLP.CommandText = "EXEC bitLaufendeProduktion " & Me.boxMaschine2.Tag Zeile = 0 Try Do If Me.boxMaschine2.Tag = mdlFehlerwerte.dsWE.Tables(0).Rows(Zeile)(1) And _ IsDBNull(mdlFehlerwerte.dsWE.Tables(0).Rows(Zeile)(4)) = True Then If drLP.Read = False Then Me.tmrBlinklicht2.Enabled = True mdlFehlerwerte.Fehler2 = 2 Exit Try Else mdlFehlerwerte.Fehler2 = 0 Me.boxMaschine2.Refresh() Exit Try End If End If Zeile += 1 Loop Until Zeile = mdlFehlerwerte.dsWE.Tables(0).Rows.Count mdlFehlerwerte.Fehler2 = 1 Me.boxMaschine2.Refresh() Catch ex As Exception MsgBox(ex.Message) End Try cmdLP.CommandText = "EXEC bitLaufendeProduktion " & Me.boxMaschine3.Tag If drLP.IsClosed = False Then drLP.Close() End If If mdlFehlerwerte.conn.State = ConnectionState.Open Then Try mdlFehlerwerte.conn.Close() Catch ex As Exception End Try End If   blem: Ich Versuch mit dem Datenleser eine Prozedur auf meinem SQL-Server aufzurufen, welche mir True oder False zurückliefert. Damit find ich heraus ob ein Daten-Generator gerade Daten an die Datenbank liefert. Blos der meldet mir immer das: Ungültiger Versuch, zu Read, da der Datenleser bereits geschlossen ist. Wie soll ich das verstehen? Ich schließ doch den DataReader erst am Schluss?!?! Oder wird der DataReader nach jedem .Read automatisch geschlossen? Bitte um schnelle Hilfe *stress* mfg Stefan P.S.: Wer sich das alles durchgelesen hat ist genauso krank wie ich!

Datareader @ Newbie	2.563	Easyrider	26.03.04 15:47
Re: Datareader @ Newbie	1.916	Easyrider	26.03.04 17:13
Re: Datareader @ Newbie	1.863	spike24	26.03.04 17:21
Re: Datareader @ Newbie	1.870	Easyrider	26.03.04 17:43
Re: Datareader @ Newbie	1.870	spike24	26.03.04 17:48
Re: Datareader @ Newbie	1.891	waYne	26.03.04 18:24

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen