Need Help Posting To Sql Table With A Sproc

To all,





Here's the error:


Input string was not in a correct format.


Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.





Exception Details: System.FormatException: Input string was not in a correct format.





Source Error:








Line 159:


Line 160:objConn.Open()


Line 161:objCmd.ExecuteNonQuery()


Line 162:objConn.Close()


Line 163:








Source File: C:FullerAviationSupplymanagecatalog.vb Line: 161





Stack Trace:








[FormatException: Input string was not in a correct format.]


System.Data.SqlClient.SqlCommand.ExecuteReader(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream) +723


System.Data.SqlClient.SqlCommand.ExecuteNonQuery() +194


managecatalog.SubmitProd(Object s, EventArgs e) in C:FullerAviationSupplymanagecatalog.vb:161


System.Web.UI.WebControls.Button.OnClick(EventArgs e) +108


System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +57


System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) +18


System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +33


System.Web.UI.Page.ProcessRequestMain() +1277














--------------------------------------------------------------------------------


Version Information: Microsoft .NET Framework Version:1.1.4322.573; ASP.NET Version:1.1.4322.573

















Here's the code from my vb file:








Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init


'CODEGEN: This method call is required by the Web Form Designer


'Do not modify it using the code editor.


InitializeComponent()


End Sub





#End Region








Protected WithEvents dgProductCatalog As datagrid


Protected WithEvents tbxProductName As TextBox


Protected WithEvents tbxInventory As TextBox


Protected WithEvents dgCatProd_Active As DropDownList


Protected WithEvents dlvendor As DropDownList


Protected WithEvents dlSubcat As DropDownList


Protected WithEvents btnLinkvend As Button


Protected WithEvents tbxshortdesc As TextBox


Protected WithEvents tbxlongdesc As TextBox


Protected WithEvents qtyPA As TextBox


Protected WithEvents pricePA As TextBox


Protected WithEvents qtyPB As TextBox


Protected WithEvents pricePB As TextBox


Protected WithEvents qtyPC As TextBox


Protected WithEvents pricePC As TextBox


Protected WithEvents sizeX As TextBox


Protected WithEvents dlX As DropDownList


Protected WithEvents sizeY As TextBox


Protected WithEvents dlY As DropDownList


Protected WithEvents sizeZ As TextBox


Protected WithEvents dlZ As DropDownList


Protected WithEvents weight As TextBox


Protected WithEvents dlweight As DropDownList


Protected WithEvents dgInsertProduct As Button


Protected WithEvents thumbfile As TextBox


Protected WithEvents mainfile As TextBox











Dim objDA As SqlDataAdapter


Dim objDS As New DataSet()


Dim objDX As New DataSet()


Dim objDV As New DataSet()


Dim objDU As New DAtaSet()


Dim objDW As New DAtaSet()


Dim objDT As DataTable


Dim objDR As DataRow


Dim objConn As SqlConnection = New SqlConnection(ConStr)





Sub Page_Load()





If Not IsPostBack Then


BindData()


End IF





End Sub





Sub BindData()








objDA = New SqlDataAdapter("GETCATALOG",objConn)


objDA.Fill(objDS, "MainCatalog")


objDT = objDS.Tables("Catalog")


dgProductCatalog.DataSource = objDS


dgProductCatalog.DataBind()








objDA = New SqlDataAdapter("GETSUBCAT",objConn)


objDA.Fill(objDX, "SubCat")


dlSubcat.DataSource = objDX


dlSubcat.DataValueField = "SubCat_ID"


dlSubcat.DataTextField = "SubCat_Name"


dlSubcat.DataBind()





objDA = New SqlDataAdapter("GETVENDOR",objConn)


objDA.Fill(objDV, "Vendor")


dlvendor.DataSource = objDV


dlvendor.DataValueField = "VendorID"


dlvendor.DataTextField = "CompanyName"


dlvendor.DataBind()





objDA = New SqlDataAdapter("GETSIZEUNITS",objConn)


objDA.Fill(objDU, "Units")


dlX.DataSource = objDU


dlX.DataValueField = "Size_ID"


dlX.DataTextField = "Size_Unit"


dlX.DataBind()





dlY.DataSource = objDU


dlY.DataValueField = "Size_ID"


dlY.DataTextField = "Size_Unit"


dlY.DataBind()





dlZ.DataSource = objDU


dlZ.DataValueField = "Size_ID"


dlZ.DataTextField = "Size_Unit"


dlZ.DataBind()





objDA = New SqlDataAdapter("GETWEIGHTUNITS",objConn)


objDA.Fill(objDW, "Units")


dlweight.DataSource = objDW


dlweight.DataValueField = "weight_unitID"


dlweight.DataTextField = "weight_Unit"


dlweight.DataBind()





End Sub





Sub SubmitProd(s As Object, e As EventArgs)





Dim objCmd As New SqlCommand("INSERTPRODUCT", objConn)


objCmd.CommandType = CommandType.StoredProcedure


objCmd.Parameters.Add("@prodName", tbxProductName.Text)


objCmd.Parameters.Add("@descShort", tbxshortdesc.Text)


objCmd.Parameters.Add("@descLong", tbxlongdesc.Text)


objCmd.Parameters.Add("@qtyPA", SqlDbType.int ).Value = qtyPA.Text


objCmd.Parameters.Add("@qtyPB", SqlDbType.int ).Value = qtyPB.Text


objCmd.Parameters.Add("@qtyPC", SqlDbType.int ).Value = qtyPC.Text


objCmd.Parameters.Add("@pricePA",SqlDbType.money).Value = pricePA.Text


objCmd.Parameters.Add("@pricePB",SqlDbType.money).Value = pricePB.Text


objCmd.Parameters.Add("@pricePC",SqlDbType.money).Value = pricePC.Text


objCmd.Parameters.Add("@vendorID", dlvendor.SelectedItem.Value)


objCmd.Parameters.Add("@inventoryAvail", SqlDbType.int).Value = tbxInventory.Text


objCmd.Parameters.Add("@imageThumb", thumbfile.Text)


objCmd.Parameters.Add("@imageLarge", mainfile.Text)


objCmd.Parameters.Add("@sizeX", sizeX.Text)


objCmd.Parameters.Add("@sizeY", sizeY.Text)


objCmd.Parameters.Add("@sizeZ", sizeZ.Text)


objCmd.Parameters.Add("@sizeUX", dlX.SelectedItem.Value)


objCmd.Parameters.Add("@sizeUY", dlY.SelectedItem.Value)


objCmd.Parameters.Add("@sizeUZ", dlZ.SelectedItem.Value)


objCmd.Parameters.Add("@weight", weight.Text)


objCmd.Parameters.Add("@prodActive", dgCatProd_Active.SelectedItem.Value)


objCmd.Parameters.Add("@weightU", dlweight.SelectedItem.Value)


objCmd.Parameters.Add("@SubCat_ID", dlSubcat.SelectedItem.Value)








objConn.Open()


objCmd.ExecuteNonQuery()


objConn.Close()





tbxProductName.Text=""


tbxInventory.Text=""


tbxshortdesc.Text=""


tbxlongdesc.Text=""


qtyPA.Text=""


pricePA.Text=""


qtyPB.Text=""


pricePB.Text=""


qtyPC.Text=""


sizeX.Text=""


sizeZ.Text=""


sizeZ.Text=""


weight.Text=""


BindData()





End Sub














And here's the Stored Procedure:





CREATE PROCEDURE INSERTPRODUCT


(


@prodName nvarchar(50),


@descShort nvarchar(3000),


@descLong nvarchar(4000),


@qtyPA int,


@qtyPB int,


@qtyPC int,


@pricePA money,


@pricePB money,


@pricePC money,


@vendorID int,


@inventoryAvail int,


@imageThumb nvarchar,


@imageLarge nvarchar,


@sizeX nvarchar,


@sizeY nvarchar,


@sizeZ nvarchar,


@sizeUX int,


@sizeUY int,


@sizeUZ int,


@weight nvarchar,


@prodActive int,


@weightU int,


@SubCat_ID int


)





AS





INSERT INTO ProductCatalog (ProductName, Desc_Short, Desc_Long, qty_PerA, qty_PerB, qty_PerC, Price_PerA, Price_PerB, Price_PerC, VendorID, InventoryAvail, image_Thumb, image_Large, Size_X, Size_Y, Size_Z, SizeUnit_X, SizeUnit_Y, SizeUnit_Z, weight, Prod_Active, weight_unit, SubCat_ID) VALUES (@prodName, @descShort, @descLong, @qtyPA, @qtyPB, @qtyPC, @pricePA, @pricePB, @pricePC, @vendorID, @inventoryAvail, @imageThumb, @imageLarge, @sizeX, @sizeY, @sizeZ, @sizeUX, @sizeUY, @sizeUZ, @weight, @prodActive, @weightU, @SubCat_ID)


GO








Any help would be greatly appreciated.





Regards,


Seth