From c0054d41ae2b8d2a0220a27c78dfed087e61a47f Mon Sep 17 00:00:00 2001 From: Developer01 Date: Tue, 3 Jun 2025 08:30:05 +0200 Subject: [PATCH] V 2.3.6.0 Debug Param-Liste auf 1000 Zeichen begrenzt --- Database/Adapters/MSSQLServer.vb | 8 ++++++-- Database/My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 8 insertions(+), 4 deletions(-) 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: ' - - + +