چگونگی گرفتن خروجی از Stored Procedure

[Maryam80]

با سلام
من یک Stored Procedure برای عمل INSERT نوشته ام که پس از عمل ثبت می خواهم مقدار کلید اصلی را بعنوان خروجی ارسال کند ولیکن نمی دانم که به چه صورت می توان خروجی SP را درون یک متغیر در برنامه ریخت

 SqlCommand1.CommandText = "INSERT TBL_Client(CLIENTNAME,GROUPID,CLIENTPARENTID,SHORT  NAME,STRUCTUREID,VER,WHO,DELTAG,EDITTAG,CustomerID  ,ContractID) VALUES('" & TxtClient.Text & "'," & CmbGroup.SelectedValue & "," & SelectedParentID & ",'" & TxtShortname.Text & "'," & CmbGroupStructure.SelectedValue & ",1," & KeepUserId & "," & deltag & ",0," & CmbCustomer.SelectedValue & "," & CmbContract.SelectedValue & ")"

        SqlCommand1.CommandType = CommandType.StoredProcedure

        SqlCommand1.CommandText = "exec Insert_Tbl_Client '" & TxtClient.Text & "'," & CmbGroup.SelectedValue & "," & SelectedParentID & ",'" & TxtShortname.Text & "'," & CmbGroupStructure.SelectedValue & ",1," & KeepUserId & "," & deltag & ",0," & CmbCustomer.SelectedValue & "," & CmbContract.SelectedValue & "," & ClientIDentity

        SqlCommand1.Parameters.Add("@clientid", ClientIDentity)

        SqlCommand1.Parameters("@clientid").Direction = ParameterDirection.ReturnValue

        SqlCommand1.Parameters("@clientid").Value = "null"

        SqlCommand1.Connection.Open()

       ClientIDentity = SqlCommand1.ExecuteScalar

  SqlCommand1.Connection.close()

[M.kavyani]

با سلام
مشکل در کجاست؟ این کدش که مقداری بازگشتی از sp رو تو متغیره ClientIDentity ذخیره میکنه.

[Maryam80]

مشکل حل شد

ممنون

[hamed_bostan]

ضمنا فقط جهت اطلاع می گم که شما می تونید توی استورد پروسیجر خودتون بلافاصله بعد از دستور insert خود این کد رو بنویسید تا id رکورد insert شده رو براتون در بیاره :

SELECT @@IDENTITY AS 'Id' return

[Cybersilent]

سلام خدمت دوستان
کاش به ما هم می گفتید مشکلش کجا بود که حل شد.

[Cybersilent]

سلام
اونقدر نگفتین تا خودم پیداش کردم

اینم کد وی بی هست که از یک Stored Procedure خروجی می گیره

Dim Avg As String
Cmd.CommandType = CommandType.StoredProcedure
Cmd.CommandText = "Show_Collegian_Average"
Cmd.Parameters.AddWithValue("@C_Code", MaskedTextBox4.Text)
Cmd.Parameters.AddWithValue("@Date", MaskedTextBox2.Text)
Cmd.Parameters.Add("@op", SqlDbType.Float, 3).Direction = ParameterDirection.Output
Cmd.ExecuteScalar()
Avg = DirectCast(Cmd.Parameters("@op").Value.ToString, String)