LCConnection の Call メソッド

このメソッドはストアドプロシージャを呼び出して、場合によっては結果セットを作成します。

このメソッドでは、ストアドプロシージャに対して入力パラメータのみがサポートされます。ストアドプロシージャからデータを返すには、出力パラメータを使用するのではなく、結果セットに返すようにします。

DB2® の場合、このメソッドでは PROCEDURE プロパティに定義されたストアドプロシージャが実行されます。プロシージャで結果セットが作成される場合は、RECORD_LIMIT プロパティに定義されているレコード数に結果セットを制限します。

注: DB2 では、C、C++、Java™ および SQL で書かれたストアドプロシージャがサポートされます。DB2 Application Development Client にはストアドプロシージャのビルダーが用意されています。このビルダーでは、使用するストアドプロシージャの生成、コンパイル、およびリンクを行います。

注: IBM® i のストアドプロシージャは、RPG、C、CL、COBOL、C++、FORTRAN、PLI、および REXX で作成できます。ストアドプロシージャの生成には Create Procedure SQL ステートメントを使用します。Create Procedure ステートメントは、System i® Interactive SQL 製品 (5769ST1) でも使用できます。

定義位置

LCConnection

構文

count = lcConnection.Call(parmFieldList, recordIndex, destFieldList)

パラメータ

パラメータ	説明
parmFieldList	LCFieldlist。ストアドプロシージャ用の入力パラメータリスト。このプロパティには「Nothing」は指定できません。プロシージャに引数がない場合は、空のフィールドリストを指定します。
recordIndex	Long、1 以上。フィールドリスト内でのパラメータ値の位置を表す索引。
destFieldList	LCFieldlist。結果セットのメタデータを格納するフィールドリスト。結果セット内のフィールドがこのフィールドリストに追加されます。結果セットのメタデータが必要ない場合は「Nothing」を使用します。

戻り値

値	説明
count	Long。呼び出しの影響を受けたレコード数。データソースによってはカウント数が返されない場合もあります。カウント数が明らかでない場合には LCCOUNT_UNKNOWN が返されます。

例

Option Public
Uselsx "*lsxlc"  

Sub Initialize
  Dim Con As New LCConnection ("sybase") 
  Dim Parms As New LCFieldList
  Dim Result As New LCFieldList
  Dim Parm As LCField
  ' set properties to connect to both data sources
  Con.Server = "Rainbow"
  Con.Userid = "JDoe"
  Con.Password = "xyzzy"

  ' set the connection property to the stored procedure name
  Con.Procedure = "NPInsertIntoSM_ADBOOK"

  ' now connect
  Con.Connect

  ' append the new field to the fieldlist
  Set Parm = Parms.Append ("spParm", LCTYPE_TEXT)
  ' set the field to a value -- in this case it is
  ' the one parameter needed for the stored procedure
  Parm.text = " 'Edge' "

  ' using the fieldlist containing the field with the
  ' stored procedure parameter, call the stored procedure
  count = Con.Call (Parms, 1, Result)
  If count = 0 Then
    Print "No results were generated from the procedure call."
  Elseif count = LCCOUNT_UNKNOWN Then
    Print "A result set was generated but the number of results is unknown."
  Else
    Print "The stored procedure returned " & count & " records."
  End If
End Sub

出力例

A result set was generated but the number of results is unknown.