[RESOLVED] What does this means?

[melvados]

Whenever I am trying to add in new data in my form, I ge this windows pop-up; It states that 'Too few parameters, Expected 5.'

What does this means and also which it is referring to?

By the way, I input data for name, description, quantity no and price, these 4 sections...

[bagstoper]

let me see your code and what version are you using?

[RobDog888]

Without any code we can only guess and guess badly

Sounds like you are not supplying the proper requested/required number of fields/parameters to completely insert the record.

[melvados]

This is for the case of selecting

Case "Groups"
                        objData.SQL = "usp_InsertGroup"
                        objData.InitializeCommand()
                         objData.AddParameter("@OrderID", _
                            Data.OleDb.OleDbType.Guid, 16, Guid.NewGuid())
                        objData.AddParameter("@OrderName", _
                            Data.OleDb.OleDbType.VarChar, 50, txtGroupName.Text)
                        objData.AddParameter("@OrderDescription", _
                            Data.OleDb.OleDbType.LongVarChar, _
                            txtGroupDescription.Text.Length, _
                            txtGroupDescription.Text)
                        objData.OpenConnection()
                        intRowsAffected = objData.Command.ExecuteNonQuery()
                        objData.CloseConnection()
                        If intRowsAffected = 0 Then
                            Throw New Exception("Insert Group Failed")
                        End If
                        txtGroupName.Text = String.Empty
                        txtGroupDescription.Text = String.Empty
                        LoadGroups()

This is the code og the loadgroups

 Private Sub LoadGroups()
        Dim objListViewItem As ListViewItem

        Using objData As New WDABase
            Try
                cboUserGroup.DataSource = Nothing
                cboUserGroup.DisplayMember = String.Empty
                cboUserGroup.ValueMember = String.Empty

                objData.SQL = "usp_SelectGroups"
                objGroupsDS = New DataSet
                objData.FillDataSet(objGroupsDS, "Groups")

                lvwGroups.Items.Clear()

                For intIndex = 0 To objGroupsDS.Tables("Groups").Rows.Count - 1

                    objListViewItem = New ListViewItem

                    objListViewItem.Text = _
                        objGroupsDS.Tables("Groups").Rows(intIndex).Item( _
                        "OrderName")
                    objListViewItem.Tag = _
                        objGroupsDS.Tables("Groups").Rows(intIndex).Item( _
                        "OrderID")

                    objListViewItem.SubItems.Add( _
                        objGroupsDS.Tables("Groups").Rows(intIndex).Item( _
                        "OrderDescription"))
                    objListViewItem.SubItems.Add( _
                        Format(objGroupsDS.Tables("Groups").Rows(intIndex).Item( _
                        "LastUpdateDate"), "g"))

                    lvwGroups.Items.Add(objListViewItem)

                Next

                cboUserGroup.DataSource = objGroupsDS.Tables("Groups")
                cboUserGroup.DisplayMember = "OrderName"
                cboUserGroup.ValueMember = "OrderID"

                cboUserGroup.SelectedIndex = -1
            Catch ExceptionErr As Exception
                MessageBox.Show(ExceptionErr.Message, strAppTitle)
            End Try
        End Using

        objListViewItem = Nothing
    End Sub

    Private Sub lvwGroups_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles lvwGroups.Click

        Using objData As New WDABase
            Try
                objData.SQL = "usp_SelectGroup"
                objData.InitializeCommand()
                objData.AddParameter("@OrderID", Data.OleDb.OleDbType.Guid, 16, _
                    lvwGroups.SelectedItems.Item(0).Tag)
                objData.OpenConnection()
                objData.DataReader = objData.Command.ExecuteReader

                If objData.DataReader.HasRows Then

                    objData.DataReader.Read()

                    txtGroupID.Text = _
                        objData.DataReader.Item("OrderID").ToString.ToUpper
                    txtGroupName.Text = _
                        objData.DataReader.Item("OrderName")
                    txtGroupDescription.Text = _
                        objData.DataReader.Item("OrderDescription")
                    txtGroupUpdateDate.Text = _
                        Format(objData.DataReader.Item("LastUpdateDate"), "g")

                End If

                objData.DataReader.Close()

                objData.CloseConnection()
            Catch ExceptionErr As Exception
                MessageBox.Show(ExceptionErr.Message, strAppTitle)
            End Try
        End Using
    End Sub

Erm, will this be enough? Do you still need any more info? My file or something?

[bagstoper]

have you tried debugging your code to find out what line the error is on? that would help me to help you.

[jmcilhinney]

The answer to this is pretty simple. The error message speaks for itself. The sproc you're executing expects 5 parameters. Nowhere in that code do you add 5 parameters to a command.

[melvados]

hmm.. what is parameter actually?

[jmcilhinney]

hmm.. what is parameter actually?

Hmmm... I wonder...

Case "Groups"
                        objData.SQL = "usp_InsertGroup"
                        objData.InitializeCommand()
                         objData.AddParameter("@OrderID", _
                            Data.OleDb.OleDbType.Guid, 16, Guid.NewGuid())
                        objData.AddParameter("@OrderName", _
                            Data.OleDb.OleDbType.VarChar, 50, txtGroupName.Text)
                        objData.AddParameter("@OrderDescription", _
                            Data.OleDb.OleDbType.LongVarChar, _
                            txtGroupDescription.Text.Length, _
                            txtGroupDescription.Text)
                        objData.OpenConnection()
                        intRowsAffected = objData.Command.ExecuteNonQuery()
                        objData.CloseConnection()
                        If intRowsAffected = 0 Then
                            Throw New Exception("Insert Group Failed")
                        End If
                        txtGroupName.Text = String.Empty
                        txtGroupDescription.Text = String.Empty
                        LoadGroups()

[melvados]

Well, I mean the exact term if it actually have. Because in the quote, given the fact that I did put 'addparameter' and that I still have the error of 'Too few parameters. expecpected 5', which is why I am kinda confused now.... T_T

[jmcilhinney]

I'm not sure what's to be confused about. The error message says that 5 parameters are expected. You're calling AddParameter 3 times. 3 is not equal to 5.

[CoachBarker]

Aren't you missing the parameters for "quantity no and price", they would be the other 2 parameters.

[RobDog888]

Yes, and in your stored procedure "usp_InsertGroup" you can look to see its parameters declared for input will have 5. So when you call the sp you need to pass 5 parameters as mentioned.

[melvados]

have resolved the above problem. Thanks alot.
Anyway had a question to ask, in some books I have seen the author writing some codes that has 'And Not' stuff...

What does the Not means? As the book did not show wat it means...

[jmcilhinney]

have resolved the above problem. Thanks alot.
Anyway had a question to ask, in some books I have seen the author writing some codes that has 'And Not' stuff...

What does the Not means? As the book did not show wat it means...

This question is unrelated to the topic of this thread and so it should have been asked in a new thread of its own. Please do so in future.

The 'Not' key word reverses a Boolean value. Not True is equal to False and Not False is equal to True. It basically allows you to check whether something is not true, i.e. that it's false. For instance:

If Not myCheckBox.Checked Then
    'The check box is not checked.
End If

[bagstoper]

i know it is unrelated to the topic but why do you use not true when you can just check to see if it is false or not false when you could check if it is true?

[jmcilhinney]

i know it is unrelated to the topic but why do you use not true when you can just check to see if it is false or not false when you could check if it is true?

Using 'Not' is more succinct, and more natural, than comparing one Boolean value to another Boolean value to get a third Boolean value. Tell me which of these sentences sounds more logical.

1.

If you are not a member of VBForums you cannot post questions.

2.

If you are a member of VBForums is false then you cannot post questions.

If you speak it one way then why choose to code it the other?

Also, 'Not' is useful for toggling Boolean values. You could do this:

If someValue Then
    someValue = False
Else
    someValue = True
End If

but I'd much rather do this:

someValue = Not someValue

[jmcilhinney]

i know it is unrelated to the topic but why do you use not true when you can just check to see if it is false or not false when you could check if it is true?

I think I may have misunderstood your question, and you have misunderstood what I originally said. The 'If' statement does one thing: it tests a Boolean expression and, if that expression evaluates to True, an action is executed. You can only test for True using an If statement, so what do you do if you specifically want to know if an expression is False? You negate the expression. If expression X evaluates to False then Not X evaluates to True. You can then use an If statement to test whether Not X evaluates to True, in which case you know that X evaluates to False, which is what you wanted to know in the first place.

[bagstoper]

thanks that makes a lot of sense when explained that way.