0

Hi.

problem in where insert data into table. Using vwd 2012 and Mssql 2012. Insert command is working fine in first record. If add another record, it shows "Procedure or Function has too many argument" I have tried may way, I could not solve. Pls help me. Below is my Store Procedure, Class file and aspx.vb files.

Store Procedure

GO
/****** Object:  StoredProcedure [dbo].[usp_CommonInfo_Insert]   ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER Procedure [dbo].[usp_CommonInfo_Insert]
    @Code nvarchar(10) = NULL,
    @Name nvarchar(100) = NULL,
    @Type nvarchar(10) = NULL,
    @BAddress nvarchar(150) = NULL,
    @SAddress nvarchar(150) = NULL,
    @Tel1 nvarchar(20) = NULL,
    @Tel2 nvarchar(20) = NULL,
    @Fax1 nvarchar(20) = NULL,
    @Fax2 nvarchar(20) = NULL,
    @Email nvarchar(30) = NULL,
    @ContactName nvarchar(30) = NULL,
    @ContactTel nvarchar(20) = NULL,
    @BusinessNature nvarchar(50) = NULL,
    @CrLt numeric(18,2) = NULL,
    @Terms numeric(18,0) = NULL,
    @BillType nvarchar(10) = NULL,
    @OpDate datetime = NULL,
    @OpBal numeric(18,2) = NULL,
    @CreatedOn datetime = NULL,
    @CreatedBy nvarchar(10) = NULL,
    @LastUpdate datetime = NULL,
    @LastUpdateBy nvarchar(10) = NULL,
    @Terminal nvarchar(50) = NULL,
    @UptodateSales numeric(18,2) = NULL,
    @UpToDatePaid numeric(18,2) = NULL,
    @PrePaid numeric(18,2) = NULL,
    @Balance numeric(18,2) = NULL
As
Begin
    Insert Into CommonInfo
        ([Code],[Name],[Type],[BAddress],[SAddress],[Tel1],[Tel2],[Fax1],[Fax2],[Email],[ContactName],[ContactTel],[BusinessNature],[CrLt],[Terms],[BillType],[OpDate],[OpBal],[CreatedOn],[CreatedBy],[LastUpdate],[LastUpdateBy],[Terminal],[UptodateSales],[UpToDatePaid],[PrePaid],[Balance])
    Values
        (@Code,@Name,@Type,@BAddress,@SAddress,@Tel1,@Tel2,@Fax1,@Fax2,@Email,@ContactName,@ContactTel,@BusinessNature,@CrLt,@Terms,@BillType,@OpDate,@OpBal,@CreatedOn,@CreatedBy,@LastUpdate,@LastUpdateBy,@Terminal,@UptodateSales,@UpToDatePaid,@PrePaid,@Balance)

    Declare @ReferenceID int
    Select @ReferenceID = @@IDENTITY

    Return @ReferenceID

End

dbl_clients.vb

Public Function SaveMode(incode As String, inname As String, intype As String, inbaddress As String, insaddress As String, _
                             intel1 As String, intel2 As String, infax1 As String, infax2 As String, inemail As String, incontactname As String, incontacttel As String, _
                             inbusiness As String, incrlt As Decimal, interms As Integer, inbilltype As String, inopdate As Date, inopbal As Decimal, _
                             increatedOn As Date, increatedby As String, inlastupdate As String, inlastupdateby As String, interminal As String, _
                             inuptodatesales As Decimal, inuptodatepaid As Decimal, inprepaid As Decimal, inbalance As Decimal) As String
        'SaveMode = True
        SaveMode = String.Empty

        Try
            cmd.Connection = conn
            cmd.CommandType = CommandType.StoredProcedure
            cmd.CommandText = "usp_CommonInfo_Insert"

            cmd.Parameters.AddWithValue("@Code", incode)
            cmd.Parameters.AddWithValue("@Name", UCase(inname))
            cmd.Parameters.AddWithValue("@Type", intype)
            cmd.Parameters.AddWithValue("@BAddress", inbaddress)
            cmd.Parameters.AddWithValue("@SAddress", insaddress)
            cmd.Parameters.AddWithValue("@Tel1", intel1)
            cmd.Parameters.AddWithValue("@Tel2", intel2)
            cmd.Parameters.AddWithValue("@Fax1", infax1)
            cmd.Parameters.AddWithValue("@Fax2", infax2)
            cmd.Parameters.AddWithValue("@Email", inemail)
            cmd.Parameters.AddWithValue("@ContactName", incontactname)
            cmd.Parameters.AddWithValue("@ContactTel", incontacttel)
            cmd.Parameters.AddWithValue("@BusinessNature", inbusiness)
            cmd.Parameters.AddWithValue("@CrLt", incrlt)
            cmd.Parameters.AddWithValue("@Terms", interms)
            cmd.Parameters.AddWithValue("@BillType", inbilltype)
            cmd.Parameters.AddWithValue("@OpDate", inopdate)
            cmd.Parameters.AddWithValue("@OpBal", inopbal)
            cmd.Parameters.AddWithValue("@CreatedOn", Date.Now)
            cmd.Parameters.AddWithValue("@CreatedBy", increatedby)
            cmd.Parameters.AddWithValue("@LastUpdate", Date.Now)
            cmd.Parameters.AddWithValue("@LastUpdateBy", increatedby)
            cmd.Parameters.AddWithValue("@Terminal", interminal)
            cmd.Parameters.AddWithValue("@UptodateSales", 0)
            cmd.Parameters.AddWithValue("@UpToDatePaid", 0)
            cmd.Parameters.AddWithValue("@PrePaid", 0)
            cmd.Parameters.AddWithValue("@Balance", 0)

            Dim da As New SqlDataAdapter(cmd)
            Dim dt As New DataTable
            da.Fill(dt)
            cmd.Dispose()
            conn.Close()
        Catch ex As Exception
            SaveMode = ex.Message.ToString
        Finally
            cmd.Dispose()
            conn.Close()

        End Try
        Return SaveMode
    End Function

client_ADD.aspx.vb

Private Sub SaveMode()
        Dim errmsg As String
        errmsg = dblClient.SaveMode(txtCode.Text, Me.txtName.Text, cboType.SelectedValue, txtBAddres.Text, txtSAddress.Text, _
                                    txtTel1.Text, txtTel2.Text, txtFax1.Text, txtFax2.Text, txtEmail.Text, txtContactName.Text, _
                                    "ContactTel", txtBusiness.Text, txtCrLt.Text, txtTerms.Text, cboBillType.SelectedValue, txtOPDate.Text, _
                                    txtOPBal.Text, Date.Now, Request.Cookies("userid").Value, Date.Now, Request.Cookies("userid").Value, _
                                    "Terminal", 0, 0, 0, 0)

        If errmsg <> String.Empty Then
            ScriptManager.RegisterStartupScript(Me, Me.[GetType](), "Message", "alert('Error occured : " & errmsg & "');", True)
        Else
            ScriptManager.RegisterStartupScript(Page, Page.GetType(), "alert", "alert('Record Saved !');", True)
            Response.Redirect("client_View.aspx")
        End If
end sub

Pls help me

2
Contributors
1
Reply
12
Views
3 Years
Discussion Span
Last Post by cxzei
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.