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)
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)"
Return CType(contDal.RunProc("dbo.PopulateSummaryImport_SP", param), Integer)
Catch Ex As Exception
MsgBox(Ex.Message)
Return -1
Finally
contDal.Close()
End Try
End Function