URGENTE Error HOLA A TODOS ESTOY TRATANDO DE INGRESAR UN NUEVO DATO A MI GRID PERO ME PRODUCE EL SIGUIENTE ERROR
Error de servidor en la aplicación '/ingreso'.
--------------------------------------------------------------------------------
System.FormatException: La cadena de entrada no tiene el formato correcto. at System.Number.ParseInt32(String s, NumberStyles style, NumberFormatInfo info) at System.String.System.IConvertible.ToInt32(IFormatP rovider provider) at System.Convert.ToInt32(Object value) at System.Data.Common.Int32Storage.Set(Int32 record, Object value) at System.Data.DataColumn.set_Item(Int32 record, Object value)No se puede almacenar <> en la columna IDDeInventario. El tipo esperado es Int32
EL CUAL ME LO PRODUCE EN LA SIGUIENTE LINEA
Línea 269: dataset.Tables(0).Rows.Add(rowvalues)
Y EL CODIGO COMPLETO ES EL SIGUIENTE
Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
checkisediting("")
If Not isediting = True Then
addingnew = True
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand()
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dataadapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter()
dataadapter.SelectCommand = dbCommand
Dim dataset As System.Data.DataSet = New System.Data.DataSet()
dataadapter.Fill(dataset)
Dim rowvalues As Object() = {"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""}
dataset.Tables(0).Rows.Add(rowvalues)
Dim recordcount As Integer = dataset.Tables(0).Rows.Count
If recordcount > 1 Then
recordcount -= 1
DataGrid1.CurrentPageIndex = recordcount \ DataGrid1.PageSize
DataGrid1.EditItemIndex = recordcount Mod DataGrid1.PageSize
End If
DataGrid1.DataSource = dataset
DataGrid1.DataBind()
End If
End Sub
Y AQUI DECLARO LA VARIABLE
Sub datagrid_update(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
Dim iddeinventario As Int32 = CType(e.Item.Cells(2).Controls(0), TextBox).Text
If addingnew = True Then
dbCommand.CommandText = "INSERT INTO [Inventario] ([Item], [Inventario], [Equipo], [Modelo], [Serie], [Ubicacion], [Grupo Inventariable], [Inicio Garantia], [Termino Garantia], [Empresa Garantia], [Rut], [Fecha Compra], [Factura], [Valor Compra], [Tipo Depreciacion], [Estado], [Fecha Estado], [Lugar], [IDDeSolicitud]) VALUES (@item, @inventario, @equipo, @modelo, @serie, @ubicacion, @grupo, @inicio, @termino, @empresa, @rut, @fecha, @factura, @valor, @depreciacion, @estado, @fechaestado, @lugar, @iddesolicitud,0)"
Else
dbCommand.CommandText = "UPDATE [Inventario] SET [IDDeInventario]=@IDDeInventario,[Item]=@Item,[Inventario]=@Inventario,[Equipo]=@Equipo,[Modelo]=@Modelo, [Serie]=@Serie,[Ubicacion]=@Ubicacion,[Grupo Inventariable]=@Grupo ,[Inicio Garantia]=@Inicio , [Termino Garantia]=@Termino ,[Empresa Garantia]=@Empresa , [Rut]=@Rut, [Fecha Compra]=@Fecha , [Factura]=@Factura,[Valor Compra]=@Valor , [Tipo Depreciacion]=@ Depreciacion,[Estado]=@Estado,[Fecha Estado]=@FechaEstado,[Lugar]=@Lugar, [IDDeSolicitud]=@IDDeSolicitud WHERE ([Inventario].[IDDeInventario] = @IDDeInventario)"
End If
Dim dbParam_iDDeInventario As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter()
dbParam_iDDeInventario.ParameterName = "@IDDeInventario"
dbParam_iDDeInventario.Value = iddeinventario
dbParam_iDDeInventario.DbType = System.Data.DbType.Int32
dbCommand.Parameters.Add(dbParam_iDDeInventario)
Try
dbConnection.Open()
dbCommand.ExecuteNonQuery()
Finally
dbConnection.Close()
End Try
If addingnew = True Then
DataGrid1.CurrentPageIndex = 0
addingnew = False
End If
DataGrid1.EditItemIndex = -1
bindgrid()
addingnew = False
End Sub
