Updating database

Hot Topic

Updating Columns - newbie
Error updating data in table that uses a trigger?
Fact table load - will receive 31968 rows vs. will receive 52428 rows
ADO Connection Pooling Error: "The client was unable to reuse a session with ..."
"product level is insufficient" message during flat file import
Custom Log Provider - Notification Services
how can i sort my fieldnames alphabetically
Securables for Application Role in Management Studio do not stick
Will ROW_NUMBER ( ) keep the provided order of records if the OVER clause orders on the same value?
Automatic client redirect in SQL Server 2005

SQL Server

Management Studio: Error opening read-only SQL Template
Interactive Sort on date field
BIDS problem
MySQL to SQL Server migration
generate table or database schema
SQL Mobile Installation Problem on Device
SQL Server 2005 Express - Upgrading will Lose Data?
Can't connect to SQL Server 2005
Installing Management Studio on Separate Computer from SQL 2005
Subscription-Configuration HTML-Entities BUG

Updating database

Can someone please tell me what I am missing... I am trying to update a record with information a user types into a textbox. I am not getting any errors even when in DEBUG mode. But yet the Data is not getting updated.

Any Help would be very much appreciated.

CODE:

Protected Sub bUpdateSlsNum_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bUpdateSlsNum.Click

Dim myCommand As SqlCommand

Dim myConnection As SqlConnection

myConnection = New SqlConnection("Server=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|CustomerInfo.mdf;Integrated Security=True;User Instance=True")

Dim UpdateCmd As String = "UPDATE CustomerSalesNum SET WorkSheetID=@WorkSheetID, Price=@Price, Freight=@Freight, Setup=@Setup, " _

& "Injection=@Injection, Wheels=@Wheels, Security=@Security, SubTotal=@SubTotal, DocFee=@DocFee, TradeInAllow=@TradeInAllow, TaxAmount=@TaxAmount, SalesTax=@SalesTax, " _

& "TradeLienBal=@TradeLienBal, Other=@Other, PAQuote=@PAQuote, TitleFee=@TitleFee, DownPay=@DownPay, Total=@Total WHERE [WorkSheetID]= '" & "@" & lblRWorkSheetID.Text & "'"

myCommand = New SqlCommand(UpdateCmd, myConnection)

myCommand.Parameters.Add(New SqlParameter("@WorkSheetID", Data.SqlDbType.NVarChar))

myCommand.Parameters("@WorkSheetID").Value = lblRWorkSheetID.Text

myCommand.Parameters.Add(New SqlParameter("@Price", Data.SqlDbType.NVarChar))

myCommand.Parameters("@Price").Value = tbUPPRice.Text

myCommand.Parameters.Add(New SqlParameter("@Freight", Data.SqlDbType.NVarChar))

myCommand.Parameters("@Freight").Value = tbUPFreight.Text

myCommand.Parameters.Add(New SqlParameter("@Setup", Data.SqlDbType.NVarChar))

myCommand.Parameters("@Setup").Value = tbUPSetup.Text

myCommand.Parameters.Add(New SqlParameter("@Injection", Data.SqlDbType.NVarChar))

myCommand.Parameters("@Injection").Value = tbUPInjection.Text

myCommand.Parameters.Add(New SqlParameter("@Wheels", Data.SqlDbType.NVarChar))

myCommand.Parameters("@Wheels").Value = tbUPWheels.Text

myCommand.Parameters.Add(New SqlParameter("@Security", Data.SqlDbType.NVarChar))

myCommand.Parameters("@Security").Value = tbUPFactorySec.Text

myCommand.Parameters.Add(New SqlParameter("@SubTotal", Data.SqlDbType.NVarChar))

myCommand.Parameters("@SubTotal").Value = tbUPSUBT.Text

myCommand.Parameters.Add(New SqlParameter("@DocFee", Data.SqlDbType.NVarChar))

myCommand.Parameters("@DocFee").Value = tbUPDOCFee.Text

myCommand.Parameters.Add(New SqlParameter("@TradeInAllow", Data.SqlDbType.NVarChar))

myCommand.Parameters("@TradeInAllow").Value = tbUPTIA.Text

myCommand.Parameters.Add(New SqlParameter("@TaxAmount", Data.SqlDbType.NVarChar))

myCommand.Parameters("@TaxAmount").Value = tbUPTAX.Text

myCommand.Parameters.Add(New SqlParameter("@SalesTax", Data.SqlDbType.NVarChar))

myCommand.Parameters("@SalesTax").Value = tbUPSALETAX.Text

myCommand.Parameters.Add(New SqlParameter("@TradeLienBal", Data.SqlDbType.NVarChar))

myCommand.Parameters("@TradeLienBal").Value = tbUPTILB.Text

myCommand.Parameters.Add(New SqlParameter("@Other", Data.SqlDbType.NVarChar))

myCommand.Parameters("@Other").Value = tbUPOther.Text

myCommand.Parameters.Add(New SqlParameter("@PAQuote", Data.SqlDbType.NVarChar))

myCommand.Parameters("@PAQuote").Value = tbUPPAQuote.Text

myCommand.Parameters.Add(New SqlParameter("@TitleFee", Data.SqlDbType.NVarChar))

myCommand.Parameters("@TitleFee").Value = tbUPTitle.Text

myCommand.Parameters.Add(New SqlParameter("@DownPay", Data.SqlDbType.NVarChar))

myCommand.Parameters("@DownPay").Value = tbUPDownPay.Text

myCommand.Parameters.Add(New SqlParameter("@Total", Data.SqlDbType.NVarChar))

myCommand.Parameters("@Total").Value = LBLUTOTAL.Text

myCommand.Connection.Open()

Try

myCommand.ExecuteNonQuery()

ShowMessageBox(Me, "ATTENTION: Customer Data has been Updated.")

bUpdateSlsNum.Enabled = False

Catch ex As SqlException

If ex.Number = 2627 Then

ShowMessageBox(Me, "ERROR: A record already exists with " _

& "the same primary key")

Else

ShowMessageBox(Me, "ERROR: Could not add record")

End If

End Try

myCommand.Connection.Close()

MVMain.ActiveViewIndex = -1

End Sub

Answer this question