- 2026-03-05 1.1.6 Correccion rutina EjeMySqlHex

bbdd.vb

@@ -9,8 +9,13 @@ Public Class bbdd
         Try
             Dim sSQL = Extensiones.StringExtensions.ConvierteDeRoman8AWindows(Extensiones.HexToString(sqlh))
             BD.Open()
-            Dim mc As New SqlCommand(sSQL, BD)
-            Return "Nº Registros afectados: " & mc.ExecuteNonQuery.ToString
+            Dim cmd = BD.CreateCommand()
+            cmd.CommandText = sSQL
+            If Not BD.State = ConnectionState.Open Then
+                BD.Open()
+            End If
+            Dim nr = cmd.ExecuteNonQuery
+            Return "Nº Registros afectados: " & nr.ToString
         Catch ex As Exception
             Throw New Exception(ex.Message, ex)
         Finally