Insertar campos vacios de un datagridview en un campo DateTime de una tabla en sql

Question

Hola Buenas Tardes

Antes que nada un agradecimiento por tomarse el tiempo de leer.

Les comento, llevo dias batallando con un problema que presento al momento de querer insertar registros de un datagridview a una tabla de sql, ya que en este datagridview existen campos de fechas en los cuales algunos no tienen datos y al momento de realizar la insercción a la tabla en sql, no me deja por esos campos vacios. Los campos son: Checada_Entrada, Checada_SalidaC, Checada_EntradaC y Checada_Salida. Si defino estos campos en la BD como nvarchar y en la insercción realizo el Convert.ToString si me guarda los registros sin problemas, pero yo necesito guardarlos en tipo DateTime para realizar operaciones posteriores.

Si alguien pudiera orientarme, para saber que estoy haciendo mal o que tipo de función u otra opción podria aplicar, les agradeceria el dato.

Este es un extracto de mi codigo de insercción

Dim insert As SqlCommand = New SqlCommand("insert into Datos_Reloj values (@Clave_Empleado, @Checada_Entrada,@Checada_SalidaC,@Checada_EntradaC, @Checada_Salida, @Fecha_Inicio, @Fecha_Termino)", conexion)
Try
Dim fila As DataGridViewRow = New DataGridViewRow()
For Each fila In DGridImportar.Rows

insert.Parameters.Clear()
insert.Parameters.AddWithValue("@Clave_Empleado", Convert.ToString(fila.Cells("Clave empleado").Value))
insert.Parameters.AddWithValue("@Checada_Entrada", Convert.ToDateTime(fila.Cells("Checada entrada").Value))
insert.Parameters.AddWithValue("@Checada_SalidaC", Convert.ToDateTime(fila.Cells("Checada al salir de comer").Value))
insert.Parameters.AddWithValue("@Checada_EntradaC", Convert.ToDateTime(fila.Cells("Checada entrar a comer").Value))
insert.Parameters.AddWithValue("@Checada_Salida", Convert.ToDateTime(fila.Cells("Checada salida").Value))
insert.Parameters.AddWithValue("@Fecha_Inicio", TxtFechaImportar1.Text)
insert.Parameters.AddWithValue("@Fecha_Termino", TxtFechaImportar2.Text)
insert.ExecuteNonQuery()
Next
MsgBox("Datos agregados correctamente", MsgBoxStyle.Information, "Operación Exitosa")

Answer 1

Mira aqui hay un ejemplo de como le puedes hacer declarando un tipo Nullable<T>.Esta explicado.

No se si te sirva

MSDN EJEMPLO

Answer 2

Hola DAQL,

[-] ... al momento de realizar la insercción a la tabla en sql, no me deja por esos campos vacios

Pero si estás declarando la columna con tipo DateTime, este no permite valores vacíos, ya que estos son de tipo cadena (varchar), si no deseas agregar valor al campo debes asignar el valor NULLO, por lo que tu columna deberá aceptarlos.

Y cuando envíes el valor mediante Vb.Net :

....AddWithValue("@Fecha1", DBNull.Value)

Saludos.

---

JC NaupaCrispín
Lima - Perú

La magia no existe, la programación SI

Answer 3

"DAQL" escribió:

> al momento de querer insertar registros de un datagridview a una tabla de sql, ya que
> en este datagridview existen campos de fechas en los cuales algunos no tienen datos y
> al momento de realizar la insercción a la tabla en sql, no me deja por esos campos vacios.

Hola:

Si los valores de las celdas del control DataGridView correspondientes a las fechas son Nothing o DBNull.Value, tendrás que especificar un valor NULL para que se inserte en el correspondiente campo de la tabla, suponiendo que dichos campos admitan valores NULL en la tabla, claro está.

Inserta en algún Module de tu proyecto la siguiente función:

Friend Module NombreModulo

    Public Function IsNothingOrDbNullValue(value As Object) As Boolean
        ' La función devolverá True si el valor es Nothing o DBNull.Value,
        ' devolviendo False en caso contrario.
        Return ((value Is Nothing) OrElse (value Is DBNull.Value))
    End Function

End Module

Y a la hora de especificar los valores de los parámetros correspondientes a las fechas, ejecutarías lo siguiente:

    Dim value As Object = fila.Cells("Checada entrada").Value
    insert.Parameters.AddWithValue("@Checada_Entrada", If(IsNothingOrDbNullValue(value), DBNull.Value, value))

    value = fila.Cells("Checada al salir de comer").Value
    insert.Parameters.AddWithValue("@Checada_SalidaC", If(IsNothingOrDbNullValue(value), DBNull.Value, value))

    value = fila.Cells("Checada entrar a comer").Value
    insert.Parameters.AddWithValue("@Checada_EntradaC", If(IsNothingOrDbNullValue(value), DBNull.Value, value))

    value = fila.Cells("Checada salida").Value
    insert.Parameters.AddWithValue("@Checada_Salida", If(IsNothingOrDbNullValue(value), DBNull.Value, value))

Asumo que el control DataGridView lo tienes enlazado con un objeto DataTable. Si no es así, entonces tendrás que hacer una conversión explícita de String a DateTime:

En los cuatro parámetros especificarías la función If como indico a continuación:

insert.Parameters.AddWithValue("@Checada_Entrada", If(IsNothingOrDbNullValue(value), CObj(DBNull.Value), CDate(value)))

Ni que decir tiene que si el valor alfanumérico no se puede convertir a DateTime, obtendrás la oportuna excepción.

Así que será mejor que tengas enlazado el control DataGridView con un objeto DataTable para no tener que ejecutar muchas conversiones. ;-)

Un saludo

---

Enrique Martínez Montejo
[MS MVP - Visual Studio y Tecnologías de Desarrollo]

Nota informativa: La información contenida en este mensaje, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en el presente mensaje.

Si esta respuesta le ha resultado útil, recuerde marcarla como satisfactoria.

Si usas Visual Basic .NET y deseas ser productivo y feliz, se inteligente y activa la instrucción Option Strict.