diff --git a/Database/Adapters/MSSQLServer.vb b/Database/Adapters/MSSQLServer.vb index ccb0c711..1e961864 100644 --- a/Database/Adapters/MSSQLServer.vb +++ b/Database/Adapters/MSSQLServer.vb @@ -470,6 +470,7 @@ Public Class MSSQLServer Dim oTransaction As SqlTransaction = MaybeGetTransaction(pSqlConnection, pTransactionMode, pTransaction) Try + Logger.Debug("ExecuteNonQueryWithConnectionObject: Running Command [{0}] and Parameters [{1}]", pSqlCommandObject.CommandText, GetParameterListAsString(pSqlCommandObject)) pSqlCommandObject.Connection = pSqlConnection @@ -651,7 +652,10 @@ Public Class MSSQLServer Cast(Of SqlParameter). Select(Function(p) $"({p.ParameterName}={p.Value})"). ToList() - - Return String.Join(",", oList) + Dim oParamString = String.Join(",", oList) + If oParamString.Length > 1000 Then + oParamString = oParamString.Substring(1, 1000) + End If + Return oParamString End Function End Class diff --git a/Database/My Project/AssemblyInfo.vb b/Database/My Project/AssemblyInfo.vb index 9705164d..1afe74ac 100644 --- a/Database/My Project/AssemblyInfo.vb +++ b/Database/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +