MS_2911

app/RecordOrganizer_RightManager/ClassDatabase.vb

@@ -152,16 +152,16 @@ Public Class ClassDatabase
             Return Nothing
         End Try
     End Function
-    Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional Userinput As Boolean = False)
+    Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional Userinput As Boolean = False, Optional timeout As Integer = 120)
         Try
-         
+
             Dim SQLconnect As New SqlClient.SqlConnection
             Dim SQLcommand As SqlClient.SqlCommand
 
             SQLconnect.ConnectionString = ConnectionStringRM
             SQLconnect.Open()
             SQLcommand = SQLconnect.CreateCommand
-            SQLcommand.CommandTimeout = 120
+            SQLcommand.CommandTimeout = timeout
             'Update Last Created Record in Foo
             SQLcommand.CommandText = ExecuteCMD