edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Browse Source
This commit is contained in:
d.breimaier
2022-12-21 14:05:24 +01:00
parent bc100dc340 0f6a78428b
commit 552dd3b02c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
AvisoTV/frmAnzeige.vb
View File

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