Ver Mensaje Individual
  #3 (permalink)  
Antiguo 17/05/2006, 15:33
Irving_24
 
Fecha de Ingreso: mayo-2006
Mensajes: 55
Antigüedad: 18 años
Puntos: 0
Specified cast is not valid.

Hola a Todos

Estoy haciendo una aplicación en donde estoy metiendo en un DataGrid el editCommand, cancelCommand y UpdateCommand, este es mi codigo:

Public Sub editarSeccion(ByVal s As Object, ByVal e As DataGridCommandEventArgs)
lst_sec.EditItemIndex = e.Item.ItemIndex
dame_secciones_inm()
End Sub
Public Sub cancelarEdicion(ByVal s As Object, ByVal e As DataGridCommandEventArgs)
lst_sec.EditItemIndex = -1
dame_secciones_inm()
End Sub
Public Sub actualizarSeccion(ByVal s As Object, ByVal e As DataGridCommandEventArgs)

Dim nombreSeccion As TextBox
nombreSeccion = CType(e.Item.Cells(1).Controls(0), TextBox)

'Actualiza a Base de Datos

cmd = New SqlClient.SqlCommand("UPDATE Seccion_Inmuebles SET Sec_Descripcion = @desc_sec WHERE IdSec = @Id_sec")
cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Id_sec", System.Data.SqlDbType.Int, 4))
cmd.Parameters.Add(New System.Data.SqlClient.SqlParameter("@desc_sec", System.Data.SqlDbType.VarChar, 50))
cmd.Parameters("@Id_sec").Value = lst_sec.DataKeys.Item(e.Item.ItemIndex)
cmd.Parameters("@Id_sec").Value = nombreSeccion.Text
con.Open()
cmd.ExecuteNonQuery()
con.Close()

lst_sec.EditItemIndex = -1
dame_secciones_inm()

End Sub

Cuando Quiero actualizar me manda el siguiente error:


Specified cast is not valid.

Espero me puedan ayudar.