Hace tiempo que uso este par de funciones para comprobar si el valor que les ingreso es Null, de ser así en caso de que quiera devolver un número pues devuelvo un cero, en caso que quiera devolver una cadena devuelvo la cadena vacía y no me provoca errores al manejar valores ingresados por el usuario o por una base de datos. Bueno, pues agrego el código para usarlas en Visual Basic .Net que es a lo que me estoy dedicando ahora, digo pasarlas a VB6 o a C ya les resultará fácil, no?

Public Function nIsNull(ByVal oValor)    Dim iResultado As Integer = 0    If IsDBNull(oValor) Then        iResultado = 0    Else        iResultado = CInt(oValor)    End If    nIsNull = iResultadoEnd Function

Public Function sIsNull(ByVal oValor)    Dim sResultado As String = ""    If IsDBNull(oValor) Then        sResultado = ""    Else        sResultado = CStr(oValor)    End If    sIsNull = sResultadoEnd Function

PD. Creo que debería modificar la plantilla para hacer más amigable la lectura del código que ingreso.

Deja un comentario

*