Asp.net update records using sql stored procedures

[Sporke13]

I have used stored procedures to insert and select but for some reason I can
not get this code to update records. Please help I must have made a dumb
mistake

STORED PROCEDURE
CREATE Procedure OrdersAddDetail
( @fname nvarchar(50),
@lnametxt nvarchar(50),
@add1 nvarchar(50),
@add2 nvarchar(50),
@city nvarchar(50),
@state nvarchar(50),
@zip nvarchar(50),
@phone nvarchar(50),
@bfname nvarchar(50),
@blname nvarchar(50),
@badd1 nvarchar(50),
@badd2 nvarchar(50),
@bcity nvarchar(50),
@bstate nvarchar(50),
@bzip nvarchar(50),
@bphone nvarchar(50),
@CustomerID int
)
AS

UPDATE Customers

SET
fname = @fname,
lname = @lnametxt,
add1 = @add1,
add2 = @add2,
city = @city,
state = @state,
zip = @zip,
phone = @phone,
bfname = @bfname,
blname = @blname,
badd1 = @badd1,
badd2 = @badd2,
bcity = @bcity,
bstate = @bstate,
bzip = @bzip,
bphone = @bphone
WHERE
CustomerID = @CustomerID
GO

SUB

Public Sub UpdateAdd(ByVal customerID As Integer, ByVal fnametxt As String,
ByVal lname As String, ByVal add1 As String, ByVal add2 As String, ByVal city
As String, ByVal state As String, ByVal zip As String, ByVal phone As String,
ByVal bfname As String, ByVal blname As String, ByVal badd1 As String, ByVal
badd2 As String, ByVal bcity As String, ByVal bstate As String, ByVal bzip As
String, ByVal bphone As String)
' Create Instance of Connection and Command Object
Dim myConnection2 As SqlConnection = New
SqlConnection(C onfigurationMan ager.AppSetting s("ConnectionSt ring"))
Dim myCommand2 As SqlCommand = New SqlCommand("Ord ersAddDetail",
myConnection2)

' Mark the Command as a SPROC
myCommand2.Comm andType = CommandType.Sto redProcedure

' Add Parameters to SPROC
Dim parameterCustom erID As SqlParameter = New
SqlParameter("@ CustomerID", SqlDbType.Int, 4)
parameterCustom erID.Value = CInt(customerID )
myCommand2.Para meters.Add(para meterCustomerID )

'Dim parameterOrderI D As SqlParameter = New
SqlParameter("@ OrderID", SqlDbType.Int, 4)
'parameterOrder ID.Direction = ParameterDirect ion.Output
'myCommand2.Par ameters.Add(par ameterOrderID)

Dim parameterfname As SqlParameter = New SqlParameter("@ fname",
SqlDbType.NVarC har, 50)
parameterfname. Value = fnametxt
myCommand2.Para meters.Add(para meterfname)

Dim parameterlname As SqlParameter = New
SqlParameter("@ lnametxt", SqlDbType.NVarC har, 50)
parameterlname. Value = lname
myCommand2.Para meters.Add(para meterlname)

Dim parameteradd1 As SqlParameter = New SqlParameter("@ add1",
SqlDbType.NVarC har, 50)
parameteradd1.V alue = add1
myCommand2.Para meters.Add(para meteradd1)

Dim parameteradd2 As SqlParameter = New SqlParameter("@ add2",
SqlDbType.NVarC har, 50)
parameteradd2.V alue = add2
myCommand2.Para meters.Add(para meteradd2)

Dim parametercity As SqlParameter = New SqlParameter("@ city",
SqlDbType.NVarC har, 50)
parametercity.V alue = city
myCommand2.Para meters.Add(para metercity)

Dim parameterstate As SqlParameter = New SqlParameter("@ state",
SqlDbType.Char, 10)
parameterstate. Value = state
myCommand2.Para meters.Add(para meterstate)

Dim parameterzip As SqlParameter = New SqlParameter("@ zip",
SqlDbType.NChar , 18)
parameterzip.Va lue = zip
myCommand2.Para meters.Add(para meterzip)

Dim parameterphone As SqlParameter = New SqlParameter("@ phone",
SqlDbType.NChar , 18)
parameterphone. Value = phone
myCommand2.Para meters.Add(para meterphone)

Dim parameterbfname As SqlParameter = New
SqlParameter("@ bfname", SqlDbType.NVarC har, 50)
parameterbfname .Value = bfname
myCommand2.Para meters.Add(para meterbfname)

Dim parameterblname As SqlParameter = New
SqlParameter("@ blname", SqlDbType.NVarC har, 50)
parameterblname .Value = blname
myCommand2.Para meters.Add(para meterblname)

Dim parameterbadd1 As SqlParameter = New SqlParameter("@ badd1",
SqlDbType.NVarC har, 50)
parameterbadd1. Value = badd1
myCommand2.Para meters.Add(para meterbadd1)

Dim parameterbadd2 As SqlParameter = New SqlParameter("@ badd2",
SqlDbType.NVarC har, 50)
parameterbadd2. Value = badd2
myCommand2.Para meters.Add(para meterbadd2)

Dim parameterbcity As SqlParameter = New SqlParameter("@ bcity",
SqlDbType.NVarC har, 50)
parameterbcity. Value = bcity
myCommand2.Para meters.Add(para meterbcity)

Dim parameterbstate As SqlParameter = New
SqlParameter("@ bstate", SqlDbType.Char, 10)
parameterbstate .Value = bstate
myCommand2.Para meters.Add(para meterbstate)
'
Dim parameterbzip As SqlParameter = New SqlParameter("@ bzip",
SqlDbType.NChar , 18)
parameterbzip.V alue = bzip
myCommand2.Para meters.Add(para meterbzip)

Dim parameterbphone As SqlParameter = New
SqlParameter("@ bphone", SqlDbType.NVarC har, 50)
parameterbphone .Value = bphone
myCommand2.Para meters.Add(para meterbphone)

' Open the connection and execute the Command
myConnection2.O pen()
myCommand2.Exec uteNonQuery()
myConnection2.C lose()

CODE IN ASPX PG

Protected Sub Button1_Click(B yVal sender As Object, ByVal e As
System.EventArg s)
Dim cart As Commerce.Shoppi ngCartDB = New Commerce.Shoppi ngCartDB()

' Calculate end-user's shopping cart ID
Dim cartId As String = cart.GetShoppin gCartId()

' Calculate end-user's customerID
' Dim CustomerID As Integer = CInt(Request.Pa rams("CustomerI D"))
'Dim customerId As String = User.Identity.N ame
' Update the address detail into customers record
' Dim orderadd As Commerce.Orders DB = New Commerce.Orders DB()

' Dim CustomerId As Integer = orderadd.PlaceO rderAdd(Custome rId,
fname.Text, lname.Text, add1.Text, add2.Text, city.Text, state.Text,
zip.Text, phone.Text, bfname.Text, blname.Text, badd1.Text, badd2.Text,
bcity.Text, bstate.Text, bzip.Text, bphone.Text)
UpdateCustomerD atabase()
Dim CustomerID As Integer = CInt(Request.Pa rams("CustomerI D"))
'Update labels to reflect the fact that the order has taken place
Header.Text = "Check Out Complete!"
'Message.Text = "<b>Your Order Number Is: </b>" & orderId
End Sub
Sub UpdateCustomerD atabase()

Dim Customer As Commerce.Orders DB = New Commerce.Orders DB()

' Obtain current user's Customer ID
Dim CustomerID As String = CInt(Request.Pa rams("CustomerI D"))

' Obtain references to row's controls
Dim fnametxt As TextBox = CType(FindContr ol("fname"), TextBox)
Dim lname As TextBox = CType(FindContr ol("lname"), TextBox)
Dim add1 As TextBox = CType(FindContr ol("add1"), TextBox)
Dim add2 As TextBox = CType(FindContr ol("add2"), TextBox)
Dim city As TextBox = CType(FindContr ol("city"), TextBox)
Dim state As TextBox = CType(FindContr ol("state"), TextBox)
Dim zip As TextBox = CType(FindContr ol("zip"), TextBox)
Dim phone As TextBox = CType(FindContr ol("phone"), TextBox)
Dim bfname As TextBox = CType(FindContr ol("bfname"), TextBox)
Dim blname As TextBox = CType(FindContr ol("blname"), TextBox)
Dim badd1 As TextBox = CType(FindContr ol("badd1"), TextBox)
Dim badd2 As TextBox = CType(FindContr ol("badd2"), TextBox)
Dim bcity As TextBox = CType(FindContr ol("bcity"), TextBox)
Dim bstate As TextBox = CType(FindContr ol("bstate"), TextBox)
Dim bzip As TextBox = CType(FindContr ol("bzip"), TextBox)
Dim bphone As TextBox = CType(FindContr ol("bphone"), TextBox)
Dim fname = fnametxt.Text

Customer.Update Add(CInt(Custom erID), fname, lname.Text, add1.Text,
add2.Text, city.Text, state.Text, zip.Text, phone.Text, bfname.Text,
blname.Text, badd1.Text, badd2.Text, bcity.Text, bstate.Text, bzip.Text,
bphone.Text)

Response.Redire ct("CheckOutpay ment.aspx?Custo merID=" & CustomerID)

End Sub

--
t

[Guest]

THIS IS THE PROBLEM DOES ANYONE KNOW HOW TO GET THE VALUES OUT OFTHE TEXTBOXES ON A PAGE THIS CODE IS NOT WORKING!!!!! I ampulling in the cusotmers old information into the textbox atpage load I want them to be able to make changes then update itbut it only passes the original text box values not the valuesat the time the update button is pushed help

Dim fnametxt As TextBox = CType(FindContr ol("fname"), TextBox)
Dim lname As TextBox = CType(FindContr ol("lname"), TextBox)
Dim add1 As TextBox = CType(FindContr ol("add1"), TextBox)
Dim add2 As TextBox = CType(FindContr ol("add2"), TextBox)
Dim city As TextBox = CType(FindContr ol("city"), TextBox)
Dim state As TextBox = CType(FindContr ol("state"), TextBox)
Dim zip As TextBox = CType(FindContr ol("zip"), TextBox)
Dim phone As TextBox = CType(FindContr ol("phone"), TextBox)
Dim bfname As TextBox = CType(FindContr ol("bfname"), TextBox)
Dim blname As TextBox = CType(FindContr ol("blname"), TextBox)
Dim badd1 As TextBox = CType(FindContr ol("badd1"), TextBox)
Dim badd2 As TextBox = CType(FindContr ol("badd2"), TextBox)
Dim bcity As TextBox = CType(FindContr ol("bcity"), TextBox)
Dim bstate As TextBox = CType(FindContr ol("bstate"), TextBox)
Dim bzip As TextBox = CType(FindContr ol("bzip"), TextBox)
Dim bphone As TextBox = CType(FindContr ol("bphone"), TextBox)
Dim fname = fnametxt.Text

User submitted from AEWNET (http://www.aewnet.com/)

[Guest]

THIS IS THE PROBLEM DOES ANYONE KNOW HOW TO GET THE VALUES OUT OFTHE TEXTBOXES ON A PAGE THIS CODE IS NOT WORKING!!!!! I ampulling in the cusotmers old information into the textbox atpage load I want them to be able to make changes then update itbut it only passes the original text box values not the valuesat the time the update button is pushed help

Dim fnametxt As TextBox = CType(FindContr ol("fname"), TextBox)
Dim lname As TextBox = CType(FindContr ol("lname"), TextBox)
Dim add1 As TextBox = CType(FindContr ol("add1"), TextBox)
Dim add2 As TextBox = CType(FindContr ol("add2"), TextBox)
Dim city As TextBox = CType(FindContr ol("city"), TextBox)
Dim state As TextBox = CType(FindContr ol("state"), TextBox)
Dim zip As TextBox = CType(FindContr ol("zip"), TextBox)
Dim phone As TextBox = CType(FindContr ol("phone"), TextBox)
Dim bfname As TextBox = CType(FindContr ol("bfname"), TextBox)
Dim blname As TextBox = CType(FindContr ol("blname"), TextBox)
Dim badd1 As TextBox = CType(FindContr ol("badd1"), TextBox)
Dim badd2 As TextBox = CType(FindContr ol("badd2"), TextBox)
Dim bcity As TextBox = CType(FindContr ol("bcity"), TextBox)
Dim bstate As TextBox = CType(FindContr ol("bstate"), TextBox)
Dim bzip As TextBox = CType(FindContr ol("bzip"), TextBox)
Dim bphone As TextBox = CType(FindContr ol("bphone"), TextBox)
Dim fname = fnametxt.Text

User submitted from AEWNET (http://www.aewnet.com/)