fixed NotSupportedException in WriteDataTableToDataConnection

* fixed NotSupportedException on unnecessary call of AddMissingColumnsCommandText for NoDDL mode
CompuMasterGmbH · Mar 28, 2024 · 8c26930 · 8c26930
1 parent 428c17b
commit 8c26930
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/CompuMaster.Data/GlobalSuppressions.vb b/CompuMaster.Data/GlobalSuppressions.vb
@@ -14,3 +14,4 @@ Imports System.Diagnostics.CodeAnalysis
 <Assembly: SuppressMessage("Minor Code Smell", "S4136:Method overloads should be grouped together", Justification:="<Ausstehend>")>
 <Assembly: SuppressMessage("CodeQuality", "IDE0079:Unnötige Unterdrückung entfernen", Justification:="<Ausstehend>")>
 <Assembly: SuppressMessage("Naming", "CA1707:Identifiers should not contain underscores", Justification:="<Ausstehend>")>
+<Assembly: SuppressMessage("Maintainability", "CA1510:ArgumentNullException-Throw-Hilfsprogramm verwenden", Justification:="<Ausstehend>")>
diff --git a/CompuMaster.Data/Manipulation.vb b/CompuMaster.Data/Manipulation.vb
@@ -2,6 +2,7 @@
 Option Strict On
 
 Imports System.Data
+Imports System.Data.Common
 Imports CompuMaster.Data.Strings
 
 Namespace CompuMaster.Data
@@ -156,9 +157,11 @@ Namespace CompuMaster.Data
             End If
 
             'Extend schema if required
-            Dim extendSchemaCommandText As String = AddMissingColumnsCommandText(sourceTable, RemoteTable, ddlLanguage)
-            If extendSchemaCommandText <> Nothing Then
-                CompuMaster.Data.DataQuery.ExecuteNonQuery(dataConnection, extendSchemaCommandText, CommandType.Text, Nothing, CompuMaster.Data.DataQuery.Automations.None, 0)
+            If ddlLanguage <> DdlLanguage.NoDDL Then
+                Dim extendSchemaCommandText As String = AddMissingColumnsCommandText(sourceTable, RemoteTable, ddlLanguage)
+                If extendSchemaCommandText <> Nothing Then
+                    CompuMaster.Data.DataQuery.ExecuteNonQuery(dataConnection, extendSchemaCommandText, CommandType.Text, Nothing, CompuMaster.Data.DataQuery.Automations.None, 0)
+                End If
             End If
             RemoteTable = LoadTableStructureWith1RowFromConnection(remoteTableName, dataConnection, False)