none
Ayuda urgente RRS feed

  • Pregunta

  • Ayuda Urgente no puedo seguir con mi dieta , me da error al guarda la informacion de la receta

    codigo 

    Dim Nombre_del_producto As String = ""
    Dim Cantidad As String = ""
    Dim Calorias As String = ""
    Dim Grasas As String = ""
    Dim Proteinas As String = ""
    Dim Carbohidratos As String = ""

    If CStr(DGV_RRECETAS.Columns.Count) Is "9" Then
    Nombre_del_producto = CStr(DGV_RRECETAS.CurrentRow.Cells(0).Value)
    Cantidad = CStr(DGV_RRECETAS.CurrentRow.Cells(1).Value)
    Calorias = CStr(DGV_RRECETAS.CurrentRow.Cells(5).Value)
    Grasas = CStr(DGV_RRECETAS.CurrentRow.Cells(6).Value)
    Proteinas = CStr(DGV_RRECETAS.CurrentRow.Cells(7).Value)
    Carbohidratos = CStr(DGV_RRECETAS.CurrentRow.Cells(8).Value)
    Else
    Nombre_del_producto = CStr(DGV_RRECETAS.CurrentRow.Cells(0).Value)
    Cantidad = CStr(DGV_RRECETAS.CurrentRow.Cells(1).Value)
    Calorias = CStr(DGV_RRECETAS.CurrentRow.Cells(4).Value)
    Grasas = CStr(DGV_RRECETAS.CurrentRow.Cells(5).Value)
    Proteinas = CStr(DGV_RRECETAS.CurrentRow.Cells(6).Value)
    Carbohidratos = CStr(DGV_RRECETAS.CurrentRow.Cells(7).Value)
    End If

    martes, 24 de junio de 2014 19:48

Respuestas

  • Hola

    El primer error es porque intentar convertir DBNull en un String. Te recomendaría primero validar si la celda tiene información o no para que de esta forma no te salten estos errores. Lo mismo para el segundo error si estás recibiendo un valor DBNull no podrás realizar la conversión.


    Si se solucionó tu consulta no olvides marcar la respuesta de esta forma mantendremos el orden en el Foro.

    José Carlos Barba Gutierrez
    Lima - Perú
    Saludos

    martes, 24 de junio de 2014 20:11

Todas las respuestas

  • Tambien me da erro aqui

    Dim cmd As New OleDb.OleDbCommand(Sql, Conec)


    For Each row As DataGridViewRow In DGV_RRECETAS.Rows
    If CStr(DGV_RRECETAS.Columns.Count) Is "9" Then
    cmd.Parameters.Clear()
    cmd.Parameters.AddWithValue("@Nombre_del_producto", CStr(row.Cells(0).Value))
    cmd.Parameters.AddWithValue("@Cantidad", CDec(row.Cells(1).Value)) 'Si cantidad solo permite numeros enteres cambia la conversion de tipo por CInt
    cmd.Parameters.AddWithValue("@Calorias", Replace(CStr(CDec(row.Cells(5).Value)), ".", ","))
    cmd.Parameters.AddWithValue("@Grasas", Replace(CStr(CDec(row.Cells(6).Value)), ".", ","))
    cmd.Parameters.AddWithValue("@Proteina", Replace(CStr(CDec(row.Cells(7).Value)), ".", ","))
    cmd.Parameters.AddWithValue("@Carbohidratos", Replace(CStr((row.Cells(8).Value)), ".", ","))
    Else
    cmd.Parameters.Clear()
    cmd.Parameters.AddWithValue("@Nombre_del_producto", CStr(row.Cells(0).Value))
    cmd.Parameters.AddWithValue("@Cantidad", CDec(row.Cells(1).Value)) 'Si cantidad solo permite numeros enteres cambia la conversion de tipo por CInt
    cmd.Parameters.AddWithValue("@Calorias", Replace(CStr(CDec(row.Cells(4).FormattedValue)), ".", ","))
    cmd.Parameters.AddWithValue("@Grasas", Replace(CStr(CDec(row.Cells(5).Value)), ".", ","))
    cmd.Parameters.AddWithValue("@Proteina", Replace(CStr(CDec(row.Cells(6).Value)), ".", ","))
    cmd.Parameters.AddWithValue("@Carbohidratos", Replace(CStr((row.Cells(7).Value)), ".", ","))
    End If


    martes, 24 de junio de 2014 19:56
  • Hola

    El primer error es porque intentar convertir DBNull en un String. Te recomendaría primero validar si la celda tiene información o no para que de esta forma no te salten estos errores. Lo mismo para el segundo error si estás recibiendo un valor DBNull no podrás realizar la conversión.


    Si se solucionó tu consulta no olvides marcar la respuesta de esta forma mantendremos el orden en el Foro.

    José Carlos Barba Gutierrez
    Lima - Perú
    Saludos

    martes, 24 de junio de 2014 20:11
  • gracias
    martes, 24 de junio de 2014 20:36