Alguien sabe a que se debe el error ORA-01036: illegal variable name/number? Hola, alguien tendrá un ejemplo de como debo llamar un Stored Procedure de Oracle desde VB6? estoy usando ADO 2.5. el procedimiento ya esta creado dentro de un package en oracle pero no se que estoy haciendo mal.
la descripcion de la tabla en oracle es:
CREATE TABLE C_DOCUMENTO
(
CVE_DOCUMENTO INTEGER NOT NULL,
DSC_DOCUMENTO VARCHAR2(50 BYTE) NOT NULL
)
el codigo del sp en oracle es :
CREATE OR REPLACE package CONTROLPRES as
cursor c1 is select DSC_documento FROM C_DOCUMENTO;
type cur_doc is ref cursor return c1%ROWTYPE;
Procedure Get_Doc_Dsc (cve_doc in integer,dsc_doc out cur_doc);
END;
CREATE OR REPLACE package body CONTROLPRES as
Procedure Get_Doc_Dsc (cve_doc in integer,dsc_doc out cur_doc) IS
begin
open dsc_doc for select dsc_documento from c_documento;
end;
end;
y el codigo en VB6:
Option Explicit
Private mCnn As ADODB.Connection
Private mrsSelect As ADODB.Recordset
Private mCmd As ADODB.Command
Private msSelect As String
Private mCmdPrmCveDoc As New ADODB.Parameter
Private cve_doc As Integer
Private Sub Form_Load()
Dim sConnect As String 'Declare our connection string
sConnect = "Data Source=CTL_PRES" & ";" & _
"User ID=CTL_PRES" & ";" & _
"Password=CTL_PRES" & ";"
cve_doc = 1
Set mCnn = New ADODB.Connection
With mCnn
.CommandTimeout = 10
.CursorLocation = adUseClient
.Provider = "MSDAORA"
.Open sConnect
End With
'resultset is a keyword, fname the name of the table in the proc.
msSelect = "{call CONTROLPRES.GET_DOC_DSC(?, {resultset 1000, cve_doc})}"
Set mCmd = New ADODB.Command
With mCmd
.CommandText = msSelect
.CommandType = adCmdText
.ActiveConnection = mCnn
Set mCmdPrmCveDoc = .CreateParameter("Cve_Doc", adInteger, adParamInput, 1, 1)
.Parameters.Append mCmdPrmCveDoc
End With
Set mrsSelect = New ADODB.Recordset
mCmdPrmCveDoc = 1
Set mrsSelect = mCmd.Execute
MsgBox mrsSelect.Fields(0)
End Sub
y al llegar al Set mrsSelect = mCmd.Execute
envia el error:
ORA-01036: illegal variable name/number
Gracias
