sql >> データベース >  >> RDS >> Oracle

VBAおよびADOを介したVBA呼び出し関数

    OLEDBを使用して関数の戻り値を取得する

    私はこれを高低で検索しましたが、最終的に自分で問題を解決しました。
    私の解決策はVBScriptにありますが、以下の(テストされていない)コードで表現しました。

    秘訣は、
    strong>最初のパラメータは戻り値です 。

    Private Sub test()
    Dim Oracon As ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim param1 As New ADODB.Parameter
    Dim param0 As New ADODB.Parameter
    Dim objErr As ADODB.Error
    
    Set Oracon = CreateObject("ADODB.Connection")
    mujuser = "xxxx"
    mujPWD = "xxxxx"
    
      strConn = "UID=" & mujuser & ";PWD=" & mujPWD & ";driver={Microsoft ODBC for Oracle};" & _
                  "SERVER=xx.xxx;"
    Oracon.ConnectionString = strConn
    Oracon.Open
    cmd.ActiveConnection = Oracon
     cmd.CommandText = "el_test"
       cmd.CommandType = adCmdStoredProc
    
    Set param0 = cmd.CreateParameter("P0", adLongVarChar, adParamReturnValue, 256)
    Set param1 = cmd.CreateParameter("P1", adLongVarChar, adParamInput, 256)
    cmd.Parameters.Append param0
    cmd.Parameters.Append param1
    
    cmd.Execute
    
    Dim result As String
    result = param0.Value  ' Use the variable you set. Same as cmd.Parameters(1).Value '
    
    End Sub
    


    1. 親が所有するルートの割合を計算します

    2. 削除、派生テーブルで更新しますか?

    3. クライアントをインストールせずにOracleデータベースに接続するAzureWebApp(.NET)

    4. どちらが速いですか— INSTRまたはLIKE?