Problemas al grabar grilla
Publicado por Pinky (110 intervenciones) el 09/03/2011 02:26:55
Hola amigos del foro, he retomado mi proyecto nuevamente y llegue a la parte que me da siempre problema que es al tratar de grabar una grilla con datos grabados con anterioridad en otra tabla (presupuesto1), al llamarlos me carga bien la grilla, pero al momento de grabar loa mismos datos en la otra tabla me da este error.
The parameterized query '(@p1 smallint,@p2 char(100),@p3 int,@p4 char(10),@p5 int,@p6 bit' expects the parameter '@p6', which was not supplied.
de todas meneras les indico el código que me encuentro utilizando y que ocupo para todas las grillas y siempre me funciona pero en este caso en particular no es así.
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
Dim contador As Integer = 0
Try
sqldel.CommandText = "delete from Orden_Trabajo1 where (Patente_Vehiculo='" _
+ ds.Tables("Grilla").Rows(0).Item("Patente_Vehiculo").ToString.Trim + "')"
sqldel.ExecuteNonQuery()
Catch ex As Exception
MsgBox(sqldel.CommandText)
MsgBox("error en formatear los datos")
End Try
For Each fila As DataRow In ds.Tables("Grilla").Rows
Dim row As DataRow
row = ds.Tables("Grilla").NewRow()
row("activo") = 1
If Not fila.RowState = DataRowState.Deleted Then
sqladd.Parameters(0).Value = fila("N_Filas")
sqladd.Parameters(1).Value = fila("Mano_Mobra")
sqladd.Parameters(2).Value = fila("Valor_Mobra")
sqladd.Parameters(3).Value = fila("Patente_Vehiculo")
sqladd.Parameters(4).Value = fila("Activo")
sqladd.ExecuteNonQuery()
End If
Next
ojala que me puedan ayudar desde ya muchas gracias.
The parameterized query '(@p1 smallint,@p2 char(100),@p3 int,@p4 char(10),@p5 int,@p6 bit' expects the parameter '@p6', which was not supplied.
de todas meneras les indico el código que me encuentro utilizando y que ocupo para todas las grillas y siempre me funciona pero en este caso en particular no es así.
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
Dim contador As Integer = 0
Try
sqldel.CommandText = "delete from Orden_Trabajo1 where (Patente_Vehiculo='" _
+ ds.Tables("Grilla").Rows(0).Item("Patente_Vehiculo").ToString.Trim + "')"
sqldel.ExecuteNonQuery()
Catch ex As Exception
MsgBox(sqldel.CommandText)
MsgBox("error en formatear los datos")
End Try
For Each fila As DataRow In ds.Tables("Grilla").Rows
Dim row As DataRow
row = ds.Tables("Grilla").NewRow()
row("activo") = 1
If Not fila.RowState = DataRowState.Deleted Then
sqladd.Parameters(0).Value = fila("N_Filas")
sqladd.Parameters(1).Value = fila("Mano_Mobra")
sqladd.Parameters(2).Value = fila("Valor_Mobra")
sqladd.Parameters(3).Value = fila("Patente_Vehiculo")
sqladd.Parameters(4).Value = fila("Activo")
sqladd.ExecuteNonQuery()
End If
Next
ojala que me puedan ayudar desde ya muchas gracias.
Valora esta pregunta


0