Hi friends,

I have a problem to call store procedure from VB.
Difficulty on send Numeric data as input to store procedure.
Following are the small e.g. of my problem.
My Store procedure like this :

create procedure UpdateTmpfrbrgr( 
@frbr char(1), 
@usercd varchar(15), 
@saleprodgrcd char(5), 
@FRBRCODE char(15),
@Tnramt as numeric(12,2),
@Tcost as numeric(12,2)
)
as
begin
 UPDATE TMPTEST SET NR = NR + @Tnramt, COST = COST + @Tcost 
         WHERE FRBR = @frbr AND USERCD = @usercd AND 
                saleprodgrcd = @saleprodgrcd AND 
                FRBRCODE = @FRBRCODE 

end
-------------

My VB code to call store procedure are as follows :
    Dim tFRBR As New ADODB.Parameter
    Dim tUSERCD As New ADODB.Parameter
    Dim tsaleprodgrcd As New ADODB.Parameter
    Dim tfrbrcode As New ADODB.Parameter
    Dim ttnramt As New ADODB.Parameter
    Dim ttcost As New ADODB.Parameter
        Dim cmdData As New ADODB.Command
    cmdData.CommandText = "UpdateTmpfrbrgr"
    cmdData.CommandType = adCmdStoredProc
    
    Set tFRBR = cmdData.CreateParameter("frbr", adChar, adParamInput, 1, "B")
    Set tUSERCD = cmdData.CreateParameter("usercd", adVarChar, adParamInput, 15, 
g_usercd)
    Set tsaleprodgrcd = cmdData.CreateParameter("saleprodgrcd", adChar, adParamInput, 
5, Rs("saleprodgrcd"))
    Set tfrbrcode = cmdData.CreateParameter("frbrcode", adChar, adParamInput, 15, 
Rs("branchcd"))
    Set ttnramt = cmdData.CreateParameter("tnramt", adNumeric, adParamInput, 15, 
Tnramt)
    Set ttcost = cmdData.CreateParameter("tcost", adNumeric, adParamInput, 15, Tcost)
            
    cmdData.Parameters.Append tFRBR
    cmdData.Parameters.Append tUSERCD
    cmdData.Parameters.Append tsaleprodgrcd
    cmdData.Parameters.Append tfrbrcode
    cmdData.Parameters.Append ttnramt
    cmdData.Parameters.Append ttcost
            
    Set cmdData.ActiveConnection = Connectionstring
    cmdData.Execute

-----------------
When i run this code, i got error on 
     cmdData.Execute
 
The precision is invalid No. 2147467259
Now i want to pass precision also, how can i write it.
 e.g. in Tnramt value are 450.55
I was try to define precision in store procedure also, but same error show.

Pl. give me solution for this.

Thanks
 


Regards,
 
Chintan Shah

Yahoo! India Matrimony: Find your life partneronline.

[Non-text portions of this message have been removed]




------------------------ Yahoo! Groups Sponsor --------------------~--> 
Yahoo! Domains - Claim yours for only $14.70
http://us.click.yahoo.com/Z1wmxD/DREIAA/yQLSAA/k7folB/TM
--------------------------------------------------------------------~-> 


'// =======================================================
    Rules : http://ReliableAnswers.com/List/Rules.asp
    Home  : http://groups.yahoo.com/group/vbHelp/
    =======================================================
    Post  : [EMAIL PROTECTED]
    Join  : [EMAIL PROTECTED]
    Leave : [EMAIL PROTECTED]
'// =======================================================
 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/vbhelp/

<*> To unsubscribe from this group, send an email to:
    [EMAIL PROTECTED]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 

Reply via email to