Re: Any suggestions with this updated code????

Tech-Archive recommends: Fix windows errors by optimizing your registry

Paul -- thanks again for the help... But still not having any luck
with the suggestions. The error, "-2147217900 Syntax Error in
{Resultset....} " is still coming up -- below I have added the exact
Oracle "package", which was given to me as a "prop.sql" file (and I am
assuming that this is exactly what is on the database).

***
create or replace package body property1 as
procedure open_prop(rc_prop in out props_ref_type,
street_no in varchar2, street_name in varchar2)
is
v_str varchar2(23):='%'||street_name ||'%';
v_no varchar2(6):= '%'|| street_no ||'%';

begin
open rc_prop for
select locn, locs, name1, property.id from property
where locn = v_no and locs = v_str;
end open_prop;

procedure close_prop(rc_prop in out props_ref_type)
is
begin
close rc_prop;
end close_prop;

end property1;
***

Do you think I am setting up everything correctly in the Visual Basic
App? Perhaps I am confusing parameter names (there are several
parameters that I probably getting confused on):

1. rc_prop
2. street_no
3. street_name
3. v_no
4. v_str

In the sproc, this is what I am seeing:

procedure open_prop(rc_prop in out props_ref_type,
street_no in varchar2, street_name in varchar2)
is
v_str varchar2(23):='%'||street_name ||'%';
v_no varchar2(6):= '%'|| street_no ||'%';

Also -- I do not have the reference to "varChar2" type, only "varChar".
Could this be the problem too????

VB code:

pCommText = "{call PROPERTY.open_prop ({resultset 1000}, street_no,
street_name)}"

'other tries
'pCommText = {call PROPERTY.open_prop (?, ?, {resultset 1000,
rc_prop})}
'pCommText = "{call PROPERY.open_prop ({resultset 1000, street_no,
street_name})}"
'{call PROPERY.open_prop ({resultset 1000}, street_no,
street_name)}



sLOCN = frmOwnerSearch.txtStreetNumber
sLOCS = frmOwnerSearch.txtStreetName

Dim pConn As New ADODB.Connection
pConn = "Provider=msdaora;" & _
"Data Source=SDETEST;" & _
"User Id=;" & _
"Password="
pConn.Open

Dim objParam1 As New ADODB.Parameter
Dim objParam2 As New ADODB.Parameter

Dim pCommand As New ADODB.Command
With pCommand
.ActiveConnection = pConn
.CommandType = adCmdStoredProc
.CommandText = pCommText
Set objParam1 = .CreateParameter("v_no", adVarChar, adParamInput, 20,
sLOCN)
Set objParam2 = .CreateParameter("v_str", adVarChar, adParamInput,
30, sLOCS)
.Parameters.Append objParam1
.Parameters.Append objParam2
End With

Set rsNames = New ADODB.Recordset
Set rsNames.ActiveConnection = pConn

.