From 76a3dde5796af81a94f73ad7123882dc53b9cad6 Mon Sep 17 00:00:00 2001
From: manuel <manmog@tecnosis.net>
Date: Thu, 5 Mar 2026 09:21:39 +0100
Subject: [PATCH] - 2026-03-05 1.1.6 Correccion rutina EjeMySqlHex

---
 bbdd.vb             | 9 +++++++--
 tsUtilidades.vbproj | 3 ++-
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/bbdd.vb b/bbdd.vb
index 1968db8..23828a2 100644
--- a/bbdd.vb
+++ b/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
diff --git a/tsUtilidades.vbproj b/tsUtilidades.vbproj
index 53eba30..021ced5 100644
--- a/tsUtilidades.vbproj
+++ b/tsUtilidades.vbproj
@@ -16,11 +16,12 @@
 		<TargetFramework>net8.0</TargetFramework>
 		<PackageId>tsUtilidades</PackageId>
 		<PackageTags>net8.0, libreria</PackageTags>
-		<Version>1.1.5</Version>
+		<Version>1.1.6</Version>
 		<Authors>Manuel</Authors>
 		<Company>Tecnosis S.A</Company>
 		<Description>Utilidades Varias</Description>
 		<PackageReleaseNotes>
+			- 2026-03-05 1.1.6 Correccion rutina EjeMySqlHex
 			- 2025-10-05 1.1.5 Nueva funcion EjecutarScript
 			- 2025-09-05 1.1.4 No se eliminan los caracteres especiales ni se mayusculiza en ValidarDocumentoIdentidad
 			- 2025-09-05 1.1.3 Se marcan como obsoletas las clases de zip correos y la función validateNIF dentro de utilidades