ADO ile, nasıl bir Oracle PL/SQL bloğu arayabilirim ve giriş/çıkış bağlantı değişkenlerini belirtirim (parametreler?)

Question

ADO ve VBA ile bir PL/SQL bloğu çağırmaya çalışıyorum, ancak girişi geçemiyorum ve/veya çıkış değişkenleri (muhtemelen aka parametreleri). değil benim sorun için bir çözüm yolunda herhangi bir yardım takdir ediyorum

bağlı tüm değişkenler:

dim cn as ADODB.connection 
' ... open connection ... 

dim plsql as string 

plsql =   "declare" 
plsql = plsql & " num_in number := ?;" 
plsql = plsql & " num_out number; " 
plsql = plsql & "begin" 
plsql = plsql & " num_out := num_in * 5;" 
plsql = plsql & " ? := num_out;" 
plsql = plsql & "end;" 

dim cm as ADODB.command 
set cm = new ADODB.command 
set cm.activeConnection = cn 
cm.commandText = plsql 
cm.commandType = adCmdText 

cm.parameters.append cm.createParameter(, adDouble, adParamInput,, 5) 
cm.parameters.append cm.createParameter(, adDouble, adParamOutput ) 

cm.execute ' FAILS HERE 

msgBox(cm.parameters(2)) 

pasajı üzerinde bir ORA-01008 ile cm.execute çizgisinde başarısız olur.

Answer 1

Bildirim, declare ile başlayamıyor gibi görünüyor. (Değerli yorumu için Thomas Jones-Low'a teşekkürler).

Yani, deyim başka begin .. end blokta içine alınmalıdır: beklendiği gibi

' additional begin so that the statement does not start with a declare: 
plsql =   "begin " 

plsql = plsql & "declare" 
plsql = plsql & " num_in number := ?;" 
plsql = plsql & " num_out number; " 
plsql = plsql & "begin" 
plsql = plsql & " num_out := num_in * 5;" 
plsql = plsql & " ? := num_out;" 
plsql = plsql & "end;" 

' closing the additional begin: 
plsql = plsql & "end;" 

Şimdi, işe yarıyor.