Saving Data to SQL database having data from various other tables.

See more:

VB

Good afternoon

I am developing a custom made logistics application and in one of my forms i have 4 dropdown lists a textbox and gridview. The four dropdowns are populated with data from four different tables, while the textbox requires that data is inputed by the user.

My problem that i am finding is that when i go to save to the require table it is not saving any data.

The Dropdowns are a follows
Shipment No - display shipment number from table ShipmentNumbers
Client - lists all the clients
Brand - lists all the Brands
Currency - lists all the currenct currency's.
Season - textbox for user to enter relevant season eg. SU15

The below code is the Current Insert Statement using parameters.

Public Sub InsertShipmentNoDetails(ByVal RegShipmentID As Integer, ByVal ClientID As Integer, ByVal Season As String, ByVal BrandID As Integer, ByVal CurrencyID As Integer)
       'This inserts a new transit document to the database table in question
       'A set of parameters are passed then connected to the command object
       Dim myCommand As New SqlCommand()

       myCommand.Connection = SQLCon

       myCommand.CommandText = "INSERT INTO RegisterShipmentNoDetails(RegShipmentID, ClientID, Season, BrandID, CurrencyID)values(@RegShipmentID,@ClientID,@Season,@BrandID,@CurrencyID)"
       'Parameters are passed and connected to the Command Object

       myCommand.Parameters.AddWithValue("@RegShipmentID", RegShipmentID)
       myCommand.Parameters.AddWithValue("@ClientID", ClientID)
       myCommand.Parameters.AddWithValue("@Season", Season)
       myCommand.Parameters.AddWithValue("@BrandID", BrandID)
       myCommand.Parameters.AddWithValue("@Currency", CurrencyID)

       'Here the command on the database is executed.
       myCommand.ExecuteNonQuery()

   End Sub

The above method is then called from the save button as follows.

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
       'Validate if textbox is empty or not
       If ValidateData(txtSeason) = False Then
           ' MessageBox.Show("Please enter Required Textbox Details", ApplicationName, MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk)

           Exit Sub
       End If

       Try
           mySQL.InsertShipmentNoDetails(txtSeason.Text, cboBrand.SelectedValue, cboClient.SelectedValue, cboCurrency.SelectedValue, cboShipmentNo.SelectedValue)

       Catch ex As Exception
           MessageBox.Show("Register Shipment Details Could Not Be Inserted," & ex.Message, ApplicationName, MessageBoxButtons.OK, MessageBoxIcon.Error)
           Exit Sub
       End Try

       MessageBox.Show(" Register Shipments Details Successfully Inserted", ApplicationName, MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
       'Gridview is loaded
       dvShipmentRegister.Table = mySQL.LoadShipmentNoDetails()

   End Sub

Would appreciate if someone would explain what or where i am doing wrong in the above code.

Thanks.