Visual Basic.NET - Error al grabar

 
Vista:
sin imagen de perfil
Val: 9
Ha disminuido su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Error al grabar

Publicado por Pinly (110 intervenciones) el 02/07/2013 23:35:52
Hola amigos del foro tengo un pequeño problema, y no se como solucionarlo, al momento de grabar los datos de una grilla, me da el siguiente mensaje de error:
Se produjo una excepción de tipo 'System.FormatException' en System.Data.dll pero no se controló en el código del usuario
Información adicional: Error al convertir el valor del parámetro de String a Int16.

reviso cada columna de la declaración de la grilla, los entero los coloco {0} y los string como {0:c}, ah proposito los datos que lleno en la grilla los llamo de otra tabla (Orden_Trabajo), pero los grabo en otra tabla (Rem_Tratos_Desabollador), pero siempre con los mismos nombres y las mismas especificaciones que las utilice con anterioridad, además agrego el codigo que utilizo para el grabar:
Sub Graba()
Dim ds As DataSet
ds = Session("tabla")
Dim builder As SqlCommandBuilder
builder = Session("cmd")
Dim sqladd As New SqlCommand
sqladd = builder.GetInsertCommand()
sqladd.Connection = conn
Dim sqlmod As New SqlCommand
sqlmod.Connection = conn
Dim sqldel As New SqlCommand
sqldel.Connection = conn
sqladd.CommandText = "insert into Rem_Tratos_Desabollador ([N_Orden], [Fecha_Recepcion], [Nombre_Desabollador], [Marca_Vehiculo], [Modelo_Vehiculo], [Patente_Vehiculo], [Mano_Obra], [Porcentaje], [Descuento], [Saldo], [Mes_Trato], [Año_Trato], [Activo]) VALUES (@p1, @p2, @p3, @p4, @p5, @p6, @p7, @p8, @p9, @p10, @p11, @p12, @p13)"
Dim contador As Integer = 0
Try
sqldel.CommandText = "delete from Rem_Tratos_Desabollador where (Mes_Trato='" _
+ ds.Tables("Grilla").Rows(0).Item("Mes_Trato").ToSt ring.Trim + "')"
sqldel.ExecuteNonQuery()
Catch ex As Exception
Dim script As String = String.Format("alert('{0}');", ex.Message)
ScriptManager.RegisterStartupScript(Me, GetType(Page), "Información Incorrecta", script, True)
End Try
For Each fila As DataRow In ds.Tables("Grilla").Rows
If Not fila.RowState = DataRowState.Deleted Then
sqladd.Parameters(0).Value = fila("N_Orden")
sqladd.Parameters(1).Value = fila("Fecha_Recepcion")
sqladd.Parameters(2).Value = fila("Nombre_Desabollador")
sqladd.Parameters(3).Value = fila("Marca_Vehiculo")
sqladd.Parameters(4).Value = fila("Modelo_Vehiculo")
sqladd.Parameters(5).Value = fila("Patente_Vehiculo")
sqladd.Parameters(6).Value = fila("Mano_Obra")
sqladd.Parameters(7).Value = fila("Porcentaje")
sqladd.Parameters(8).Value = fila("Descuento")
sqladd.Parameters(9).Value = fila("Saldo")
sqladd.Parameters(10).Value = fila("Mes_Trato")
sqladd.Parameters(11).Value = fila("Año_Trato")
sqladd.Parameters(12).Value = fila("Activo")
sqladd.ExecuteNonQuery()
End If
Next

End Sub
Ojala que me puedan ayudar con este problema, estoy con este dilema desde el Viernes y no se como solucionarlo, desde ya muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder