Lotus Domino 代理执行存储过程

Domino 代理可以执行存储过程，但目前只支持输入参数，不支持输出参数。可以使用select 语句查询字段来代理输出参数。

以下是一个执行SqlServer存储过程的一个insert（新增）例子：

Sub Initialize

    On Error Goto errormsg


      Dim Parms As New LCFieldList

      Dim Result As New LCFieldList

      Dim Parm As LCField

      Dim Parm1 As LCField

      Dim Parm2 As LCField

      Dim Parm3 As LCField

      Dim Parm4 As LCField

      Dim count As integer

      Dim Con As New LCConnection ("oledb") 

      'SqlServer数据库

      Con.Provider = "SQLOLEDB"

      '数据库名称

      Con.Database="dbname"

      '地址

      Con.Server = "127.0.0.1"

      '帐户、密码

      Con.Userid = "sa"

      Con.Password = "pass123"

      ' set the connection property to the stored procedure name

      ' 存储过程名称

      Con.Procedure = "insert_bank"

      ' now connect

      Con.Connect

      msgbox "链接成功"

      

      '设置输入参数

      Set Parm = Parms.Append ("@param1", LCTYPE_TEXT)

      Parm.text="001"

      Set Parm1 = Parms.Append ("@param2", LCTYPE_TEXT)

      Parm.text="li"

      Set Parm2 = Parms.Append ("@param3", LCTYPE_TEXT)

      Parm.text="男"

      Set Parm3 = Parms.Append ("@param4", LCTYPE_TEXT)

      Parm.text="150"

      Set Parm4 = Parms.Append ("@param5", LCTYPE_TEXT)

      '开始执行存储过程

      call Con.Call (Parms, 1, Result)

      '打印结果，结果是返回的sql查询语句的字段

      if Con.fetch(Result)>0 then

          print Result.Lookup("param5").text(0)

      end if



    Exit Sub

errormsg:

    Msgbox "Rule Error:" & Str(Erl) & "  " & Error

End Sub