From 2d3a1cd25c3591ecc66534540c6d7222b09ec95c Mon Sep 17 00:00:00 2001 From: pitzm Date: Tue, 3 Jun 2025 08:47:17 +0200 Subject: [PATCH] Korrektur von MS in master nachgezogen --- Database/Adapters/MSSQLServer.vb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Database/Adapters/MSSQLServer.vb b/Database/Adapters/MSSQLServer.vb index ccb0c711..ccda8538 100644 --- a/Database/Adapters/MSSQLServer.vb +++ b/Database/Adapters/MSSQLServer.vb @@ -652,6 +652,11 @@ Public Class MSSQLServer 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