tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルADO.NETでのストアードの戻り値の取得方法
記事No3506
投稿日: 2006/04/18(Tue) 19:08
投稿者たけし
[OSのVer]:Windows    [VBのVer]:VB.NET  

VB.NETのASP.NET Webアプリケーションを使用してWeb画面を作成しております。
その中で、ADO接続によるストアードの戻り値を取得したいのですが、取得方法がわかりません
よろしければお教えください

[ツリー表示へ]
タイトルRe: ADO.NETでのストアードの戻り値の取得方法
記事No3511
投稿日: 2006/04/19(Wed) 15:10
投稿者なおこ(・∀・)
お世話になります。

ParameterDirection.ReturnValue を使う事と、
戻り値取得用のパラメータは、一番最初に Add しないといけないです。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click

  Dim command As SqlClient.SqlCommand = New SqlClient.SqlCommand
  Try
    With command
      .Connection = SqlConnection オブジェクト
      .CommandType = CommandType.StoredProcedure
      .CommandText = "プロシージャ名"
    End With

    'Parameter の設定
    Dim returnParam As SqlClient.SqlParameter = New SqlClient.SqlParameter
("@RETURN_VALUE", System.DBNull.Value)
    returnParam.Direction = ParameterDirection.ReturnValue

    Dim idParam As SqlClient.SqlParameter = New SqlClient.SqlParameter("@ID",
System.DBNull.Value)

    command.Parameters.Add(returnParam)
    command.Parameters.Add(idParam)

    Dim effectCount As Integer = command.ExecuteNonQuery()
    Console.WriteLine(command.Parameters(0).Value.ToString())
  Finally
    If Not command Is Nothing Then command.Dispose()
  End Try
End Sub

[ツリー表示へ]