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