Procedure or function PopulateSummaryImport_SP has too many arguments specified.

Question

1.00/5 (2 votes)

See more:

Guys here's my code in vb.net having and error of "Procedure or function PopulateSummaryImport_SP has too many arguments specified. " can you please help me and check this out thanks in advance

BACK END PROGRAM:

Public Function SubmitRawData(ByVal vid As Integer, ByVal vsrn As String, ByVal vsrcode As String, ByVal vsrnumber As String, _
ByVal vstatus As String, ByVal vCustomerName As String, ByVal vHomeContact As String, ByVal vBusinessContact As String, _
ByVal vMobileContact As String, ByVal vLotHouseNo As String, ByVal vRoomUnitStall As String, ByVal vBldgFloor As String, _
ByVal vBldgName As String, ByVal vStreet As String, ByVal vSubdivision As String, ByVal vBarangay As String, _
ByVal vCityMunicipality As String, ByVal vProvince As String, ByVal vRegion As String, ByVal vPackage As String, _
ByVal vPromoCode As String, ByVal vPayType As String, ByVal vApplicationDate As DateTime, ByVal vPaymentDate As DateTime, _
ByVal vEndorsedDate As DateTime, ByVal vScheduleDate As DateTime, ByVal vActivationDate As DateTime, ByVal vPCDelivery As String, _
ByVal vNoPCAvailable As String, ByVal vDatePCPickUp As DateTime, ByVal vSalesAgent As String, ByVal vCoordinator As String, _
ByVal vSalesChannel As String, ByVal vSalesGroup As String, ByVal vCreatedBy As String, ByVal vloanStatus As String, _
ByVal vtimestamp As DateTime, ByVal vPCIssue As String) As Integer

Dim contDal As DAL
Dim param(37) As SqlParameter
Try
contDal = New DAL("Data Source=192.168.0.4;Initial Catalog=CYBERYA;Persist Security Info=True;User ID=cyberya;Password=Piso4minutes;MultipleActiveResultSets=True")
contDal.Open()

param(0) = New SqlParameter("@ID", vid)
param(1) = New SqlParameter("@srn", vsrn)
param(2) = New SqlParameter("@SRCode", vsrcode)
param(3) = New SqlParameter("@SRNumber", vsrnumber)
param(4) = New SqlParameter("@Status", vstatus)
param(5) = New SqlParameter("@CustomerName", vCustomerName)
param(6) = New SqlParameter("@HomeContact", vHomeContact)
param(7) = New SqlParameter("@BusinessContact", vBusinessContact)
param(8) = New SqlParameter("@MobileContact", vMobileContact)
param(9) = New SqlParameter("@LotHouseNo", vLotHouseNo)
param(10) = New SqlParameter("@RoomUnitStall", vRoomUnitStall)
param(11) = New SqlParameter("@BldgFloor", vBldgFloor)
param(12) = New SqlParameter("@BldgName", vBldgName)
param(13) = New SqlParameter("@Street", vStreet)
param(14) = New SqlParameter("@Subdivision", vSubdivision)
param(15) = New SqlParameter("@Barangay", vBarangay)
param(16) = New SqlParameter("@CityMunicipality", vCityMunicipality)
param(17) = New SqlParameter("@Province", vProvince)
param(18) = New SqlParameter("@Region", vRegion)
param(19) = New SqlParameter("@Package", vPackage)
param(20) = New SqlParameter("@PromoCode", vPromoCode)
param(21) = New SqlParameter("@PaymentType", vPayType)
param(22) = New SqlParameter("@ApplicationDate", vApplicationDate)
param(23) = New SqlParameter("@PaymentDate", vPaymentDate)
param(24) = New SqlParameter("@EndorsedDate", vEndorsedDate)
param(25) = New SqlParameter("@ScheduleDate", vScheduleDate)
param(26) = New SqlParameter("@ActivationDate", vActivationDate)
param(27) = New SqlParameter("@PCDelivery", vPCDelivery)
param(28) = New SqlParameter("@NoPCAvailed", vNoPCAvailable)
param(29) = New SqlParameter("@datepcpickedup", vDatePCPickUp)
param(30) = New SqlParameter("@SalesAgent", vSalesAgent)
param(31) = New SqlParameter("@Coordinator", vCoordinator)
param(32) = New SqlParameter("@SalesChannel", vSalesChannel)
param(33) = New SqlParameter("@SalesGroup", vSalesGroup)
param(34) = New SqlParameter("@CreatedBy", vCreatedBy)
param(35) = New SqlParameter("@loanStatus", vloanStatus)
param(36) = New SqlParameter("@timestamp", vtimestamp)
param(37) = New SqlParameter("@pcissuance", vPCIssue)

VB

Dim strSql As String = "INSERT INTO tblsummaryImport ([id],[status],[SRN],[SrCode],[SrNumber],[CustomerName],[HomeContact],[BusinessContact],[MobileContact],[LotHouseNo],[RoomUnitStall],[BldgFloor],[BldgName],[Street],[Subdivision],[Barangay],[CityMunicipality],[Province],[Region],[Package],[PromoCode],[PaymentType],[ApplicationDate],[Endorseddate],[loanstatus],[PaymentDate],[ScheduleDate],[ActivationDate],[PCDelivery],[No.PCAvailed],[DatePCPickedUp],[SalesAgent],[Coordinator],[SalesChannel],[Salesgroup],[createdby],[timestamp]) Values(@id,@status,@srn,@customername,@homecontact,@businesscontact,@mobilecontact,@lothouseno,@roomunitstall,@bldgfloor,@bldgname,@street,@subdivision,@barangay,@citymunicipality,@province,@region,@package,@promocode,@loanstatus,@application,@paymenttype,@scheduledate,@activationdate,@pcdelivery,@nopcavailable,@datepcpickup,@salesagent,@salesgroup,@createdby,@timestamp)"
        'PopulateSummaryImport_SP

        Return CType(contDal.RunProc("dbo.PopulateSummaryImport_SP", param), Integer)
    Catch Ex As Exception
        'EventLog.WriteEntry("Auto Dispatch", "GetDispatch: " + Ex.Message, EventLogEntryType.Error)
        MsgBox(Ex.Message)
        Return -1
    Finally
        contDal.Close()
    End Try
End Function

Posted 6-Jun-13 2:37am

Member 10033107

Add a Solution

Comments

Member 10033107 6-Jun-13 8:37am

Private Sub myconnect2(ByVal sourceTbl As DataTable)
Try
If sourceTbl IsNot Nothing AndAlso sourceTbl.Rows.Count > 0 Then
'count status SRN SrCode SrNumber Customer_Name Home_Contact Business_Contact Mobile_Contact
'LotHouseNo RoomUnitStall BldgFloor BldgName Street Subdivision Barangay City_Municipality
'Province Region Package Promo_Code Payment Type Application_Date Endorsed_date status Payment_Date
'Schedule_Date Activation_Date PC Delivery No. PC Availed Date PC Pick-Up PC_Issuance SalesAgent
'Coordinator Sales Channel Sales Group Created by TimeStamp
Dim i As Integer = 0
For Each dr As DataRow In sourceTbl.Rows
If IsNumeric(dr("count").ToString) Then
i += SubmitRawData(CInt(dr("count").ToString), _
dr("SRN").ToString, _
dr("SrCode").ToString, _
dr("SrNumber").ToString, _
dr("status").ToString, _
dr("Customer_Name").ToString, _
dr("Home_Contact").ToString, _
dr("Business_Contact").ToString, _
dr("Mobile_Contact").ToString, _
dr("LotHouseNo").ToString, _
dr("RoomUnitStall").ToString, _
dr("BldgFloor").ToString, _
dr("BldgName").ToString, _
dr("Street").ToString, _
dr("Subdivision").ToString, _
dr("Barangay").ToString, _
dr("City_Municipality").ToString, _
dr("Province").ToString, _
dr("Region").ToString, _
dr("Package").ToString, _
dr("Promo_Code").ToString, _
dr("Payment Type").ToString, _
CDate(IIf(IsDate(dr("Application_Date").ToString), dr("Application_Date").ToString, "1/1/2013")), _
CDate(IIf(IsDate(dr("Payment_Date").ToString), dr("Payment_Date").ToString, "1/1/2013")), _
CDate(IIf(IsDate(dr("Endorsed_date").ToString), dr("Endorsed_date").ToString, "1/1/2013")), _
CDate(IIf(IsDate(dr("Schedule_Date").ToString), dr("Schedule_Date").ToString, "1/1/2013")), _
CDate(IIf(IsDate(dr("Activation_Date").ToString), dr("Activation_Date").ToString, "1/1/2013")), _
dr("PC Delivery").ToString, _
dr("No. PC Availed").ToString, _
CDate(IIf(IsDate(dr("Date PC Pick-Up").ToString), dr("Date PC Pick-Up").ToString, "1/1/2013")), _
dr("SalesAgent").ToString, _
dr("Coordinator").ToString, _
dr("Sales Channel").ToString, _
dr("Sales Group").ToString, _
dr("Created by").ToString, _
"LOAN", _
CDate(IIf(IsDate(dr("Timestamp").ToString), dr("Timestamp").ToString, "1/1/2013")), _
dr("PC_Issuance").ToString)
End If
Next

MsgBox("Success")
Else
MsgBox("No data found.")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try

Member 10033107 6-Jun-13 8:39am

and this is for stored procedure command:

ALTER procedure [dbo].[PopulateSummaryImport_SP]
@ID BIGINT,
@SRCode VARCHAR (50),
@SRNumber VARCHAR (50),
@Status VARCHAR (MAX),
@CustomerName VARCHAR (MAX),
@HomeContact VARCHAR (MAX),
@BusinessContact VARCHAR (MAX),
@MobileContact VARCHAR (MAX),
@LotHouseNo VARCHAR (MAX),
@RoomUnitStall VARCHAR (MAX),
@BldgFloor VARCHAR (MAX),
@BldgName VARCHAR (MAX),
@Street VARCHAR (MAX),
@Subdivision VARCHAR (MAX),
@Barangay VARCHAR (MAX),
@CityMunicipality VARCHAR(MAX),
@Province VARCHAR (MAX),
@Region VARCHAR (MAX),
@Package VARCHAR (MAX),
@PromoCode VARCHAR (MAX),
@PaymentType VARCHAR (MAX),
@ApplicationDate DATETIME,
@EndorsedDate DATETIME,
@PaymentDate DATETIME,
@ScheduleDate DATETIME,
@ActivationDate DATETIME,
@PCDelivery VARCHAR (MAX),
@NoPCAvailed VARCHAR (50),
@datepcpickedup DATETIME,
@pcissuance VARCHAR (MAX),
@SalesAgent VARCHAR (MAX),
@Coordinator VARCHAR (MAX),
@SalesChannel VARCHAR (MAX),
@SalesGroup VARCHAR (MAX),
@CreatedBy VARCHAR (MAX),
@LoanStatus VARCHAR (MAX),
@TimeStamp DATETIME

AS
BEGIN

SET @ID= ''
SELECT @ID = COALESCE(@ID+',' ,'') + ID
FROM tblsummaryIMPORT
SELECT @ID
SET @SRCode= ''
SELECT @SRCode = COALESCE(@SRCode+',' ,'') + SRCode
FROM tblsummaryIMPORT
SELECT @SRCode
SET @SRNumber= ''
SELECT @SRNumber = COALESCE(@SRNumber+',' ,'') + SRNumber
FROM tblsummaryIMPORT
SELECT @SRNumber
SET @Status= ''
SELECT @Status = COALESCE(@Status+',' ,'') + Status
FROM tblsummaryIMPORT
SELECT @Status
SET @CustomerName= ''
SELECT @CustomerName = COALESCE(@CustomerName+',' ,'') + customername
FROM tblsummaryIMPORT
SELECT @CustomerName
SET @HomeContact= ''
SELECT @HomeContact = COALESCE(@HomeContact+',' ,'') + HomeContact
FROM tblsummaryIMPORT
SELECT @HomeContact
SET @BusinessContact= ''
SELECT @BusinessContact = COALESCE(@BusinessContact+',' ,'') + businesscontact
FROM tblsummaryIMPORT
SELECT @BusinessContact
SET @MobileContact= ''
SELECT @MobileContact = COALESCE(@MobileContact+',' ,'') + MobileContact
FROM tblsummaryIMPORT
SELECT @MobileContact
SET @LotHouseNo= ''
SELECT @LotHouseNo = COALESCE(@LotHouseNo+',' ,'') + LotHouseNo
FROM tblsummaryIMPORT
SELECT @LotHouseNo
SET @RoomUnitStall= ''
SELECT @RoomUnitStall = COALESCE(@RoomUnitStall+',' ,'') + RoomUnitStall
FROM tblsummaryIMPORT
SELECT @RoomUnitStall
SET @BldgFloor= ''
SELECT @BldgFloor = COALESCE(@BldgFloor+',' ,'') + BldgFloor
FROM tblsummaryIMPORT
SELECT @BldgFloor
SET @BldgName= ''
SELECT @BldgName = COALESCE(@BldgName+',' ,'') + BldgName
FROM tblsummaryIMPORT
SELECT @BldgName
SET @Street= ''
SELECT @Street = COALESCE(@Street+',' ,'') + Street
FROM tblsummaryIMPORT
SELECT @Street
SET @Subdivision= ''
SELECT @Subdivision = COALESCE(@Subdivision+',' ,'') + Subdivision
FROM tblsummaryIMPORT
SELECT @Subdivision
SET @Barangay= ''
SELECT @Barangay= COALESCE(@Barangay+',' ,'') + Barangay
FROM tblsummaryIMPORT
SELECT @Barangay
SET @CityMunicipality= ''
SELECT @CityMunicipality= COALESCE(@CityMunicipality+',' ,'') + CityMunicipality
FROM tblsummaryIMPORT
SELECT @CityMunicipality
SET @Province= ''
SELECT @Province= COALESCE(@Province+',' ,'') + Province
FROM tblsummaryIMPORT
SELECT @Province
SET @Region= ''
SELECT @Region= COALESCE(@Region+',' ,'') + Region
FROM tblsummaryIMPORT
SELECT @Region
SET @Package= ''
SELECT @Package= COALESCE(@Package+',' ,'') + Package
FROM tblsummaryIMPORT
SELECT @Package
SET @PromoCode= ''
SELECT @PromoCode= COALESCE(@PromoCode+',' ,'') + PromoCode
FROM tblsummaryIMPORT
SELECT @PromoCode
SET @PaymentType= ''
SELECT @PaymentType= COALESCE(@PaymentType+',' ,'') + PaymentType
FROM tblsummaryIMPORT
SELECT @PaymentType
SET @ApplicationDate= ''
SELECT @ApplicationDate= COALESCE(@ApplicationDate+',' ,'') + ApplicationDate
FROM tblsummaryIMPORT
SELECT @ApplicationDate
SET @EndorsedDate= ''
SELECT @EndorsedDate= COALESCE(@EndorsedDate+',' ,'') + EndorsedDate
FROM tblsummaryIMPORT
SELECT @EndorsedDate
SET @PaymentDate= ''
SELECT @PaymentDate= COALESCE(@PaymentDate+',' ,'') + P

Member 10033107 6-Jun-13 8:39am

SET @PaymentType= ''
SELECT @PaymentType= COALESCE(@PaymentType+',' ,'') + PaymentType
FROM tblsummaryIMPORT
SELECT @PaymentType
SET @ApplicationDate= ''
SELECT @ApplicationDate= COALESCE(@ApplicationDate+',' ,'') + ApplicationDate
FROM tblsummaryIMPORT
SELECT @ApplicationDate
SET @EndorsedDate= ''
SELECT @EndorsedDate= COALESCE(@EndorsedDate+',' ,'') + EndorsedDate
FROM tblsummaryIMPORT
SELECT @EndorsedDate
SET @PaymentDate= ''
SELECT @PaymentDate= COALESCE(@PaymentDate+',' ,'') + PaymentDate
FROM tblsummaryIMPORT
SELECT @PaymentDate
SET @ScheduleDate= ''
SELECT @ScheduleDate= COALESCE(@ScheduleDate+',' ,'') +ScheduleDate
FROM tblsummaryIMPORT
SELECT @ScheduleDate
SET @ActivationDate= ''
SELECT @ActivationDate= COALESCE(@ActivationDate+',' ,'') +ActivationDate
FROM tblsummaryIMPORT
SELECT @ActivationDate
SET @PCDelivery= ''
SELECT @PCDelivery= COALESCE(@PCDelivery+',' ,'') +PCDelivery
FROM tblsummaryIMPORT
SELECT @PCDelivery
SET @NoPCAvailed= ''
SELECT @NoPCAvailed= COALESCE(@NoPCAvailed+',' ,'') +NoPCAvailed
FROM tblsummaryIMPORT
SELECT @NoPCAvailed
SET @datepcpickedup= ''
SELECT @datepcpickedup= COALESCE(@datepcpickedup+',' ,'') +datepcpickedup
FROM tblsummaryIMPORT
SELECT @datepcpickedup
SET @pcissuance= ''
SELECT @pcissuance= COALESCE(@pcissuance+',' ,'') +pcissuance
FROM tblsummaryIMPORT
SELECT @pcissuance
SET @SalesAgent= ''
SELECT @SalesAgent= COALESCE(@SalesAgent+',' ,'') +SalesAgent
FROM tblsummaryIMPORT
SELECT @SalesAgent
SET @Coordinator= ''
SELECT @Coordinator= COALESCE(@Coordinator+',' ,'') +Coordinator
FROM tblsummaryIMPORT
SELECT @Coordinator
SET @SalesChannel= ''
SELECT @SalesChannel= COALESCE(@SalesChannel+',' ,'') +SalesChannel
FROM tblsummaryIMPORT
SELECT @SalesChannel
SET @SalesGroup= ''
SELECT @SalesGroup= COALESCE(@SalesGroup+',' ,'') +SalesGroup
FROM tblsummaryIMPORT
SELECT @SalesGroup
SET @CreatedBy= ''
SELECT @CreatedBy= COALESCE(@CreatedBy+',' ,'') +CreatedBy
FROM tblsummaryIMPORT
SELECT @CreatedBy
SET @LoanStatus= ''
SELECT @LoanStatus= COALESCE(@LoanStatus+',' ,'') +LoanStatus
FROM tblsummaryIMPORT
SELECT @LoanStatus
SET @TimeStamp= ''
SELECT @TimeStamp= COALESCE(@TimeStamp+',' ,'') +TimeStamp
FROM tblsummaryIMPORT
SELECT @TimeStamp

INSERT INTO dbo.tblsummaryIMPORT(
ID,SRCode,SRNumber,[Status],CustomerName,HomeContact,
BusinessContact,MobileContact,LotHouseNo,RoomUnitStall,
BldgFloor,BldgName,Street,Subdivision,Barangay,
CityMunicipality,Province,Region,Package,PromoCode,
PaymentType,ApplicationDate,EndorsedDate,PaymentDate,
ScheduleDate,ActivationDate,PCDelivery,NoPCAvailed,
datepcpickedup,pcissuance,SalesAgent,Coordinator,
SalesChannel,SalesGroup,CreatedBy,LoanStatus,[TimeStamp])
VALUES(
@ID,@SRCode,@SRNumber,@Status,@CustomerName,@HomeContact,
@BusinessContact,@MobileContact,@LotHouseNo,@RoomUnitStall,
@BldgFloor,@BldgName,@Street,@Subdivision,@Barangay,
@CityMunicipality,@Province,@Region,@Package,@PromoCode,
@PaymentType,@ApplicationDate,@EndorsedDate,@PaymentDate,
@ScheduleDate,@ActivationDate,@PCDelivery,@NoPCAvailed,
@datepcpickedup,@pcissuance,@SalesAgent,@Coordinator,
@SalesChannel,@SalesGroup,@CreatedBy,@LoanStatus,@TimeStamp)

RETURN @@IDENTITY

END

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

ZurdoDev · Answer 1 · 2013-06-06T02:57:00

Solution 1

There is way too much code to try and follow this. However, the error is exactly correct. In your code when you call the Stored Procedure you are passing in more parameters than the Stored Procedure actually has.

Posted 6-Jun-13 2:57am

ZurdoDev

Comments

Member 10033107 6-Jun-13 8:59am

ok i see i will check my code thanks