diff --git a/AvisoTV/frmAnzeige.vb b/AvisoTV/frmAnzeige.vb index 007956a..13686d6 100644 --- a/AvisoTV/frmAnzeige.vb +++ b/AvisoTV/frmAnzeige.vb @@ -296,7 +296,7 @@ Public Class frmAnzeige Try Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError() removeControls() - 'MsgBox(hSQL) + ' MsgBox(hSQL) 'If IsNothing(conn) Then Exit Sub 'Fehler bei DB-Zugriff - Anzeige nicht aktualisieren Using cmd As New SqlCommand(hSQL, conn) ' MsgBox(conn.ConnectionString) @@ -438,7 +438,7 @@ Public Class frmAnzeige Dim dr = cmd.ExecuteReader() If Not IsNothing(dr) Then gridFertig.Rows.Clear() 'Ansicht löschen - + ' MsgBox(getSQL("", False, True)) While dr.Read() anz += 1 Dim LKW_Nr As String = VarToStr(dr.Item("LKW_Nr"))