How to get PL/SQL package to execute in VB

Question

We have a PL/SQL reference cursor that returns values from Oracle table. we need to pass these values to MS Access tables using VB Code.
We created ODBC connection and were able to retrieve records from Oracle table in MS ACCESS. but now we need to retrieve cursor values. For that we are using the following code:
Option Explicit
Public m_adoCnn As New ADODB.Connection
Public Sub Command0_Click()
Dim sSQL As String
Dim m_adoRst As ADODB.Recordset
Dim m_adoCmd As ADODB.Command
Dim m_adoPrm As ADODB.Parameter
sSQL = "emp_hist_refcur.empsearch"
Set m_adoCmd = New ADODB.Command
With m_adoCnn
'.ConnectionString = "DSN=TGFSDBA_Test;Pwd=tgfsdba_ot35;UID=tgfsdba"
.ConnectionString = "Provider=msdaora;Data Source=TGFSDBA_Test;" & _
"User ID=tgfsdba;Password=tgfsdba_ot35;PLSQLRSet=1;"
.CursorLocation = adUseServer
.Open
End With
With m_adoCmd
.ActiveConnection = m_adoCnn
.CommandType = adCmdStoredProc
.CommandText = sSQL
' .Parameters.Refresh
' Set m_adoPrm = .CreateParameter("pTest", adVarChar, adParamInput, 1)
'.Parameters.Append m_adoPrm
End With
'm_adoPrm.Value = "x"
Set m_adoRst = m_adoCmd.Execute
End Sub
Private Sub Form_Unload(Cancel As Integer)
m_adoCnn.Close
End Sub
But when we run it, it gives us TNSNAMES.ORA could not be resolved error and it highlights ".OPEN" in the code? What could be wrong? Please help.
When we run it using this connection string
'.ConnectionString = "DSN=TGFSDBA_Test;Pwd=tgfsdba_ot35;UID=tgfsdba"
Then we get error saying
Wrong number or type of arguments in a call.
Do we need to configure TNSNAMES, or install a driver or try a new connection string like OO4O instead of ADO?

Answer 1

I worked on my code some and I have reached a point where I have created a msg box which shows that I am connected to Oracle. I am executing it step by step (step into). When I reach
Set m_adoRst = m_adoCmd.Execute()
I get an error message Microsfot ODBC for Oracle: Syntax error or access violation.
We think that there is something wrong with the way we are passing the parameter.
Can you tell how to pass an OUT refcursor parameter? There is no IN in the procedure.
Option Explicit
Public m_adoCnn As New ADODB.Connection
Public Sub Command0_Click()
Dim m_Cnn As ADODB.Connection
Dim sSQL As String
Dim m_adoRst As ADODB.Recordset
Dim m_adoCmd As ADODB.Command
Dim m_adoPrm As New ADODB.Parameter
Dim emp_cursor As String
sSQL = "call emp_hist_refcur.empsearch(resultset 1000, fname)"
Set m_adoCmd = New ADODB.Command
With m_adoCnn
.ConnectionString = "DSN=TGFSDBA_Test;UID=tgfsdba;Pwd=tgfsdba_ot35"
.Open
.CursorLocation = adUseServer
MsgBox ("connected")
End With
With m_adoCmd
.CommandText = sSQL
.CommandType = adCmdStoredProc
.ActiveConnection = m_adoCnn
Set m_adoPrm = .CreateParameter("pTest", adVarChar, adParamInput, 1)
.Parameters.Append m_adoPrm
' .Parameters.Refresh
End With
Set m_adoRst = m_adoCmd.Execute()
Do While Not m_adoRst.EOF
Debug.Print m_adoRst(0)
m_adoRst.MoveNext
Loop
' Close the recordset.
m_adoRst.Close
'Print m_adoRst.Fields.Item
' End With
' m_adoPrm.Value = "x"
End Sub
Private Sub Form_Unload(Cancel As Integer)
m_adoCnn.Close
End Sub