new

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -525,7 +525,7 @@ Public Class SQL
     End Function
 
 
-    Public Function getValueTxtBySql(ByVal sql As String, Optional conn_art As String = "SDL", Optional List As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing, Optional defaultReturn As Object = "") As String
+    Public Function getValueTxtBySql(ByVal sql As String, Optional conn_art As String = "SDL", Optional List As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing, Optional defaultReturn As Object = "", Optional timeout As Integer = 0) As String
 
         Try
             If conn Is Nothing Then
@@ -547,6 +547,7 @@ Public Class SQL
             End If
 
             Using cmd As New SqlCommand(sql, conn)
+                If timeout > 0 Then cmd.CommandTimeout = timeout
                 If List IsNot Nothing Then
                     For Each i In List
                         'MsgBox(i.Text.trim & " " & IIf(i.Value Is Nothing, DBNull.Value, i.Value))