sql >> Databasteknik >  >> RDS >> Oracle

VBA-anropsfunktion via VBA och ADO

Hämta funktionsreturvärde med OLEDB

Jag sökte högt och lågt efter detta men löste till slut problemet själv.
Min lösning finns i VBScript men jag har representerat den i den (otestade) koden nedan.

Knepet är att första parametern är returvärdet .

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. Värden som upprepas vid fyllning av en JTable

  2. Har felet som returneras av db.Exec(...) en kod?

  3. Introduktion till Firebase

  4. Hur man tar bort ett lösenord från en databas i Access 2016