question

Getting error "Procedure or function CreateSuggestionID has too many arguments specified." store procedure *************************** ALTER PROCEDURE [dbo].[CreateSuggestionID] @DeptID int, @EmpID char(9), @EmpHrlySalCode char(1), @JobTitle nvarchar(50), @empInitials nvarchar(50), @MailCode nvarchar(50), @wkPhone nvarchar(50), @EmpGroup nvarchar(50), @EmpShift nvarchar(50), @FirstSuggestion bit, @OutputSuggID int output AS BEGIN SET NOCOUNT ON; INSERT INTO tblEmpTeam (DeptID ,EmpID,EmpHrlySalCode,JobTitle,empInitials,MailCode,wkPhone,EmpGroup,EmpShift,FirstSuggestion) VALUES (@DeptID,@EmpID, @EmpHrlySalCode,@JobTitle, @empInitials,@MailCode,@wkPhone,@EmpGroup,@EmpShift,@FirstSuggestion) SET @OutputSuggID = SCOPE_IDENTITY() --RETURN @OutputSuggID END *************************************************** vb.net code _______________________ cmd.CommandType = CommandType.StoredProcedure cmd.CommandText = "CreateSuggestionID" cmd.Parameters.Add("@DeptID", Data.SqlDbType.Int).Value = CType(btSubmits.FindControl("emp_dept"), TextBox).Text cmd.Parameters.Add("@EmpID", Data.SqlDbType.Char, 9).Value = CType(btSubmits.FindControl("emp_gmin1"), TextBox).Text cmd.Parameters.Add("@EmpHrlySalCode", Data.SqlDbType.Char, 9).Value = "H" cmd.Parameters.Add("@JobTitle", Data.SqlDbType.NVarChar, 50).Value = CType(btSubmits.FindControl("emp_title"), TextBox).Text cmd.Parameters.Add("@empInitials", Data.SqlDbType.NVarChar, 50).Value = CType(btSubmits.FindControl("emp_Initials"), TextBox).Text cmd.Parameters.Add("@MailCode", Data.SqlDbType.NVarChar, 50).Value = CType(btSubmits.FindControl("emp_mail"), TextBox).Text cmd.Parameters.Add("@wkPhone", Data.SqlDbType.NVarChar, 50).Value = CType(btSubmits.FindControl("emp_phone"), TextBox).Text cmd.Parameters.Add("@EmpGroup", Data.SqlDbType.NVarChar, 50).Value = CType(btSubmits.FindControl("emp_group"), TextBox).Text cmd.Parameters.Add("@EmpShift", Data.SqlDbType.Decimal).Value = CType(btSubmits.FindControl("emp_shift"), TextBox).Text cmd.Parameters.Add("@FirstSuggestion", Data.SqlDbType.Decimal).Value = CType(btSubmits.FindControl("emp_firstsugg"), CheckBox).Checked cmd.Parameters.Add("@OutputSuggID", SqlDbType.Int).Direction = ParameterDirection.Output Dim OutputSuggID As Integer 'Dim outputSuggID As String = cmd.Parameters("@OutputSuggID").Value.ToString() OutputSuggID = cmd.ExecuteScalar() 'cmd.ExecuteScalar() trans.Commit()