AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: AppStd:43e95a20b9689f7c439f7b10d4a552e4fcd57b83
Branches Tags
AppStd:master
AppStd:Modules-Update-.Net-8
AppStd:Update-Net-8
AppStd:Database_SqlConnection
...
compare: AppStd:face3c76fbd1f3c467e6908e83b11b5553fcdcd0
Branches Tags
AppStd:master
AppStd:Modules-Update-.Net-8
AppStd:Update-Net-8
AppStd:Database_SqlConnection

2 Commits
43e95a20b9 ... face3c76fb

Author SHA1 Message Date
pitzm
face3c76fb Modules.Database: Version 2.3.6.0 2025-06-03 08:48:26 +02:00
pitzm
2d3a1cd25c Korrektur von MS in master nachgezogen 2025-06-03 08:47:17 +02:00
2 changed files with 9 additions and 4 deletions
Show Stats Expand all files Collapse all files

7
Database/Adapters/MSSQLServer.vb
View File

@ -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

6
Database/My Project/AssemblyInfo.vb
View File

@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Modules.Database")>
<Assembly: AssemblyCopyright("Copyright © 2025")>
<Assembly: AssemblyTrademark("")>
<Assembly: AssemblyTrademark("2.3.6.0")>
<Assembly: ComVisible(False)>
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.3.5.4")>
<Assembly: AssemblyFileVersion("2.3.5.4")>
<Assembly: AssemblyVersion("2.3.6.0")>
<Assembly: AssemblyFileVersion("2.3.6.0")>