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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-12-13 21:32:29 +01:00
parent 0be9927381
commit 3bc1c8a309
48 changed files with 19407 additions and 302 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -747,7 +747,7 @@ Public Class SQL
End Function
Public Function loadDgvBySql_Param(ByVal sql As String, Optional conn_art As String = "SDL", Optional timeout As Integer = 0, Optional list As List(Of SQLVariable) = Nothing) As DataTable
Public Function loadDgvBySql_Param(ByVal sql As String, Optional conn_art As String = "SDL", Optional timeout As Integer = 0, Optional list As List(Of SQLVariable) = Nothing, Optional showErr As Boolean = True, Optional ByRef errOccured As Boolean = False) As DataTable
Try
Dim myTable = New DataTable()
Dim conn As New SqlConnection
@@ -781,7 +781,8 @@ Public Class SQL
' End Using
Return myTable 'While Schleife wird hier verlassen
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, , , , , sql)
If showErr Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, , , , , sql)
errOccured = True
End Try
Return Nothing