CBAM

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -787,7 +787,7 @@ Public Class SQL
         Return defaultReturn
 
     End Function
-    Public Function doSQL(ByVal sql As String, Optional conn_art As String = "SDL", Optional showErr As Boolean = True, Optional list As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing) As Boolean
+    Public Function doSQL(ByVal sql As String, Optional conn_art As String = "SDL", Optional showErr As Boolean = True, Optional list As List(Of MyListItem2) = Nothing, Optional conn As SqlConnection = Nothing, Optional timeout As Integer = 0) As Boolean
 
         If conn Is Nothing Then
             conn = New SqlConnection
@@ -812,9 +812,11 @@ Public Class SQL
                     conn.Open()
             End Select
         End If
+
         Try
             '  MsgBox(sql)
             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))