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

AVISOTV

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-19 14:11:06 +01:00
parent 1b8c6c2842
commit aad2d4c83a
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.3.6")> <Assembly: AssemblyVersion("3.8.3.7")>
<Assembly: AssemblyFileVersion("3.8.3.6")> <Assembly: AssemblyFileVersion("3.8.3.7")>

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"))