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 @@
net8.0
tsUtilidades
net8.0, libreria
- 1.1.5
+ 1.1.6
Manuel
Tecnosis S.A
Utilidades Varias
+ - 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