2

Oracle ストアド プロシージャを呼び出すためのサンプル LC LSX エージェントを以下からコピーしました。

http://publib.boulder.ibm.com/infocenter/domhelp/v8r0/index.jsp?topic=%2Fcom.ibm.designer.domino.main.doc%2FH_EXAMPLE_SAMPLE_LC_LSX_AGENT_TO_CALL_AN_ORACLE_STORED_PROCEDURE_9674_OVER.html

関連する値で.Server、.usernameなどを変更しました。エージェントを実行すると、次のエラーが生成されます。

「この操作はフィールドのないフィールドリストでは実行できません」

ストア プロシージャに従います (sqlplus クライアントから実行すると正常に動作します)。

PROCEDURE test_conn_txt1 ( p_in IN VARCHAR2 ,p_out OUT VARCHAR2) IS
l_out VARCHAR2(100);
BEGIN 

   --p_out :=p_in;
   l_out := 'Testing';--||to_char(p_in);
   p_out := l_out;  
   insert into xx_test1 values (to_char(p_in),to_char(p_out));
   commit;

END ;

以下はエージェントコードです

Option Public
Option Explicit

UseLSX "*lsxlc"

Sub Initialize  
    Dim sess As New LCSession   
    Dim conn As New LCConnection ("oracle8")        

    'set the connection parameters...   
    conn.Server = "ora_prod"    
    conn.UserId = "user1"   
    conn.Password = "password"

    src.OracleTextFormat = "UTF8"


    'connect to the database... conn.Connect        
    'set the stored procedure owner and stored procedure name...    
    'conn.Owner = "OWNER"   
    conn.Procedure = "test_conn_txt1"
    conn.connect        

    'set Fieldnames property with any output parameters declared in the stored procedure... 
    'conn.Fieldnames = "p_out"      

    'declare any fields and fieldlists for input/output data... 
    Dim input_fieldlist As New LCFieldList  
    Dim output_parms As New LCFieldlist 
    Dim in_field_int As New LCField (1, LCTYPE_INT) 
    Dim in_field_text As New LCField (1, LCTYPE_TEXT)   
    Dim out1 As New LCField (1, LCTYPE_INT) 
    Dim out2 As New LCField (1, LCTYPE_TEXT)    
    Dim out As Double       

    'set the input parameters of the stored procedure...        
    Set in_field_text = input_fieldlist.Append ("p_in", LCTYPE_TEXT)    
    in_field_text.Text = "testing of stored procedure for input values"     

    'Set in_field_text = input_fieldlist.Append ("p_out", LCTYPE_TEXT)  
    'in_field_text.Text = "testing of stored procedure for input values"        

    Set out2 = output_parms.Append ("p_out", LCTYPE_TEXT)   
    out2.Text = "testing of stored procedure for input values"      


    'with the input parameters set, call the stored procedure...    
    'the declared output_parms fieldlist will hold the output parameters of the stored procedure... 

    out = conn.Call (input_fieldlist, 1, output_parms)  

    'fetch parameter(s) into the output_parms fieldlist...  

    out = conn.Fetch (output_parms)     
    'retrieve the parameter(s) from the output_parms fieldlist...   

    Set out1 = output_parms.GetField (1)    
    'Set out2 = output_parms.GetField (2)       
    'use the output parameter value(s) in your script...    

    Print "Output parameter 1 is " & out1.Value(0)  
    'Print "Output parameter 2 is " & out2.Text(0)      

    conn.Disconnect 

End Sub
4

1 に答える 1

0

call メソッドは、ストアド プロシージャへの入力パラメーターのみをサポートします。ストアド プロシージャからデータを出力する場合は、それを結果セットに入れる必要があります。Fetchその後、ステートメントを使用して結果セットを読み取ることができます。

さらに調査した結果、ドキュメントに矛盾があることがわかりました。いくつかのことを試してみて、それがどのように機能するかをお知らせください.

リンクは次のとおりです。

Set out2 = ...およびで始まるエージェントの行をコメントアウトしてみてくださいout2.Text = ...。

于 2013-09-20T13:28:27.863 に答える