17/05/2006, 15:33
|
| | Fecha de Ingreso: mayo-2006
Mensajes: 55
Antigüedad: 18 años, 7 meses 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. |