How to retrieve output parameter from Store procedure and get value in vb.net?

Question

0.00/5 (No votes)

See more:

SQL-server-2000

I have created a sql stored procedure which returns one value. It runs
successfully from query analyser.

I have created Store procedure given below

CREATE PROCEDURE Realto
@MM		varchar(50),
@YY		varchar(50),
@amt     int  output
  	
AS
Declare  @alto int
Declare  @realto  int

if(select   sum(intAltoAmt) from tblJoiningPayment where strMonth<=  @MM  and strYear<=  @YY)=0
  Begin
    Set @alto=0
  end
else
  Begin             
    select   @alto=  sum(intAltoAmt) from tblJoiningPayment where strMonth<= @MM  and strYear<=  @YY
  end

if(select sum(intPayAmount) from tblAltoPayment where strMonth<=  @MM  and strYear<=  @YY)=0
  Begin
    Set @realto=0
  end
else                
  Begin		
    select   @realto=  sum(intPayAmount) from tblAltoPayment where strMonth<= @MM  and strYear<=  @YY
  End
Set @amt =@alto- @realto
GO

VB.net code

Dim cmd1 As SqlCommand = New SqlCommand("ReAlto", Con)
cmd1.CommandType = CommandType.StoredProcedure
cmd1.Parameters.Add("@MM", SqlDbType.VarChar, 50, ParameterDirection.Input).Value = "'" & MM & "'"
cmd1.Parameters.Add("@YY", SqlDbType.VarChar, 50, ParameterDirection.Input).Value = "'" & YY & "'"
cmd1.Parameters.Add("@amt", SqlDbType.Int)
cmd1.Parameters("@amt").Direction = ParameterDirection.Output)
Con.Open()
cmd1.ExecuteNonQuery()
Con.Close()

Label38.Text = cmd1.Parameters("@amt").Value.ToString()

Am I right or not? Because this is returning zero value.
But I run in query analyzer it returns some value. What's the problem?
Please help me.

Thanks
Mahendra Kumar Das

I want to run it from my vb.net code

Posted 13-Dec-10 23:21pm

Mahendra kumar das

Updated 13-Dec-10 23:37pm

JF2015

v5

Add a Solution

Comments

Toniyo Jackson 14-Dec-10 5:23am

Always put your code inside code block.

JF2015 14-Dec-10 5:37am

Edited to improve code readability.

senguptaamlan 14-Dec-10 8:08am

if you got the solution from any of the provided solutions please mark that as answered

3 solutions

Solution 2

Try closing the connection AFTER retrieving the output parameter.

Posted 13-Dec-10 23:31pm

#realJSOP

Solution 1

You need to close the connection after getting the output value.
Try this. I think this will help you.

VB

Dim cmd1 As SqlCommand = New SqlCommand("ReAlto", Con)
            cmd1.CommandType = CommandType.StoredProcedure
            cmd1.Parameters.Add("@MM", SqlDbType.VarChar, 50, ParameterDirection.Input).Value = "'" & MM & "'"
            cmd1.Parameters.Add("@YY", SqlDbType.VarChar, 50, ParameterDirection.Input).Value = "'" & YY & "'"
            cmd1.Parameters.Add("@amt", SqlDbType.Int)
            cmd1.Parameters("@amt").Direction = ParameterDirection.Output)
            Con.Open()
            cmd1.ExecuteNonQuery()
            
Label38.Text = cmd1.Parameters("@amt").Value.ToString()

Con.Close()

Posted 13-Dec-10 23:29pm

Toniyo Jackson

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)

Abdul Quader Mamun · Accepted Answer · 2010-12-13T23:35:00

Thank you for your question.

VB

Try
Dim cmd1 As SqlCommand = New SqlCommand("ReAlto", Con)
            cmd1.CommandType = CommandType.StoredProcedure
            cmd1.Parameters.Add("@MM", SqlDbType.VarChar, 50, ParameterDirection.Input).Value = "'" & MM & "'"
            cmd1.Parameters.Add("@YY", SqlDbType.VarChar, 50, ParameterDirection.Input).Value = "'" & YY & "'"
            cmd1.Parameters.Add("@amt", SqlDbType.Int)
            cmd1.Parameters("@amt").Direction = ParameterDirection.Output)
            cmd1.Parameters("@amt").Direction = ParameterDirection.Output
            Con.Open()
            cmd1.ExecuteNonQuery()
Label38.Text = cmd1.Parameters("@amt").Value.ToString()

    Catch ex As Exception
           // your code here
            Exit Sub
        Finally
            Con.Close()
        End Try

Thanks,
Mamun