VB & Oracle question

From: Teresita Castro <Teresita.Castro_at_s-martmx.com>
Date: Wed, 18 Jun 2003 16:33:23 -0700
Message-ID: <F001.005B4845.20030618160503@fatcity.com>

Hi!!! I create a package in Oracle. When I run the line: Set adoRS = mCmd.Execute VB sent me the next error: Run-time error '-214721700 (80040E14)': Ora-06550: line 1, column 33: PLS-002001: Identifier 'P_IC' must be declare. Ora-06550: line1, column 7: PLS/SQL: Statemnt ignored. What I am doing wrong????????
This is the code<FONT face="Courier New" color=#0000ff

POINT-SIZE="9">CREATE<FONT face="Courier New" color=#000000 
POINT-SIZE="9"> <FONT face="Courier New" color=#0000ff 
POINT-SIZE="9">OR 

REPLACE<FONT

face="Courier New" color=#000000 POINT-SIZE="9"> <FONT face="Courier New" 
color=#0000ff POINT-SIZE="9">PACKAGE<FONT face="Courier New" 
color=#000000 POINT-SIZE="9"> LAWSON1.PACK_ICTRANS <FONT 
face="Courier New" color=#0000ff POINT-SIZE="9">AS<FONT 
face="Courier New" color=#000000 POINT-SIZE="9">

<FONT

face="Courier New" color=#0000ff POINT-SIZE="9">CURSOR<FONT 
face="Courier New" color=#000000 POINT-SIZE="9"> c1 <FONT 
face="Courier New" color=#0000ff POINT-SIZE="9">IS<FONT 
face="Courier New" color=#000000 POINT-SIZE="9">

<FONT

face="Courier New" color=#0000ff POINT-SIZE="9">SELECT<FONT face="Courier New" color=#000000 POINT-SIZE="9"> ITEM,DOC_TYPE,DOCUMENT FROM<FONT
face="Courier New" color=#000000 POINT-SIZE="9"> ICTRANS;  
<FONT

face="Courier New" color=#0000ff POINT-SIZE="9">TYPE<FONT 
face="Courier New" color=#000000 POINT-SIZE="9"> t_row <FONT 
face="Courier New" color=#0000ff POINT-SIZE="9">IS<FONT 
face="Courier New" color=#000000 POINT-SIZE="9"> <FONT face="Courier New" 

color=#0000ff POINT-SIZE="9">REF<FONT face="Courier New" color=#000000

POINT-SIZE="9"> <FONT face="Courier New" color=#0000ff 
POINT-SIZE="9">CURSOR<FONT face="Courier New" color=#000000 
POINT-SIZE="9">  <FONT face="Courier New" color=#0000ff 
POINT-SIZE="9">RETURN<FONT face="Courier New" color=#000000 
POINT-SIZE="9"> c1%<FONT face="Courier New" color=#0000ff 
POINT-SIZE="9">ROWTYPE<FONT face="Courier New" color=#000000 
POINT-SIZE="9">;

<FONT

face="Courier New" color=#0000ff POINT-SIZE="9">PROCEDURE<FONT 
face="Courier New" color=#000000 POINT-SIZE="9"> CL_CURSOR(p_item <FONT 
face="Courier New" color=#0000ff POINT-SIZE="9">in<FONT 
face="Courier New" color=#000000 POINT-SIZE="9"> <FONT face="Courier New" 
color=#0000ff POINT-SIZE="9">varchar2<FONT face="Courier New" 

color=#000000 POINT-SIZE="9">, P_IC  <FONT face="Courier New" color=#0000ff POINT-SIZE="9">OUT<FONT face="Courier New" color=#000000 POINT-SIZE="9"> t_row);
 
<FONT

face="Courier New" color=#0000ff POINT-SIZE="9">END<FONT face="Courier New" color=#000000 POINT-SIZE="9"> PACK_ICTRANS;  
<FONT face="Courier New" color=#0000ff

POINT-SIZE="9">CREATE<FONT face="Courier New" color=#000000 
POINT-SIZE="9"> <FONT face="Courier New" color=#0000ff 
POINT-SIZE="9">OR 

REPLACE<FONT

face="Courier New" color=#000000 POINT-SIZE="9"> <FONT face="Courier New" 
color=#0000ff POINT-SIZE="9">PACKAGE<FONT face="Courier New" 
color=#000000 POINT-SIZE="9"> <FONT face="Courier New" color=#0000ff 

POINT-SIZE="9">BODY
LAWSON1.PACK_ICTRANS <FONT face="Courier New" color=#0000ff POINT-SIZE="9">AS<FONT face="Courier New" color=#000000 POINT-SIZE="9">
<FONT

face="Courier New" color=#0000ff POINT-SIZE="9">PROCEDURE<FONT 
face="Courier New" color=#000000 POINT-SIZE="9"> CL_CURSOR(p_item <FONT 
face="Courier New" color=#0000ff POINT-SIZE="9">in<FONT 
face="Courier New" color=#000000 POINT-SIZE="9"> <FONT face="Courier New" 
color=#0000ff POINT-SIZE="9">varchar2<FONT face="Courier New" 

color=#000000 POINT-SIZE="9">, P_IC  <FONT face="Courier New" color=#0000ff POINT-SIZE="9">OUT<FONT face="Courier New" color=#000000 POINT-SIZE="9"> t_row)
  <FONT
face="Courier New" color=#0000ff POINT-SIZE="9">IS<FONT face="Courier New" color=#000000 POINT-SIZE="9">  
  <FONT
face="Courier New" color=#0000ff POINT-SIZE="9">BEGIN<FONT face="Courier New" color=#000000 POINT-SIZE="9">  
<FONT face="Courier New" color=#000000

POINT-SIZE="9">     <FONT face="Courier New" color=#0000ff POINT-SIZE="9">OPEN<FONT face="Courier New" color=#000000

POINT-SIZE="9"> P_IC <FONT face="Courier New" color=#0000ff 
POINT-SIZE="9">FOR<FONT face="Courier New" color=#000000 
POINT-SIZE="9">

<FONT face="Courier New" color=#000000

POINT-SIZE="9">     <FONT face="Courier New" color=#0000ff POINT-SIZE="9">SELECT<FONT face="Courier New" color=#000000 POINT-SIZE="9"> ITEM,DOC_TYPE,DOCUMENT <FONT face="Courier New" color=#0000ff POINT-SIZE="9">FROM<FONT face="Courier New" color=#000000

POINT-SIZE="9"> ICTRANS <FONT face="Courier New" color=#0000ff 
POINT-SIZE="9">WHERE<FONT face="Courier New" color=#000000 
POINT-SIZE="9"> ITEM=p_item;

  <FONT
face="Courier New" color=#0000ff POINT-SIZE="9">END<FONT face="Courier New" color=#000000 POINT-SIZE="9"> CL_CURSOR;
<FONT

face="Courier New" color=#0000ff POINT-SIZE="9">END<FONT face="Courier New" POINT-SIZE="9"> PACK_ICTRANS;
<FONT

color=#0000ff>This is the code in VB:
Private Sub cmdTestOracle_Click()
Dim mCmd As ADODB.Command Dim mCmdPrm1 As New ADODB.Parameter Set adoRS = New ADODB.Recordset If Open_cnOracle Then adoRS.CursorType = adOpenDynamic    sSQL = "{call PACK_ICTRANS.CL_CURSOR(?, {resultset  1000, P_IC})}"      ' adoRS.Open sSQL, gcnOracle, , , adCmdTable      Set mCmd = New ADODB.Command      With

mCmd        .CommandText = 
sSQL        .CommandType = 
adCmdText        .ActiveConnection = 
gcnOracle       

        Set mCmdPrm1 =
.CreateParameter("p_item", adVarChar, adParamInput, 32, "0010096")        
.Parameters.Append mCmdPrm1      End
With    Set adoRS = New ADODB.Recordset    mCmdPrm1 = "0010096"    Set adoRS = mCmd.Execute <FONT color=#ff0000><-----Error here    MsgBox adoRS.Fields(0)End If End Sub Function
Open_cnOracle() As Boolean Dim oMsgSplitter As New LawsonErrMsgSplitter.Splitter Dim vaPieces As Variant On Error GoTo ErrorConectarOracle: Set gcnOracle = New ADODB.Connection With gcnOracle .ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=burke00;Persist Security Info=True;User ID=lawson1;Data Source=LAWS" .CommandTimeout = 0 .Open Open_cnOracle = True End With Exit Function ErrorConectarOracle: vaPieces = oMsgSplitter.SplitMsg(Err.Description) MsgBox vaPieces(mpText) Open_cnOracle = False End Function Received on Wed Jun 18 2003 - 18:33:23 CDT