Tricky: Calling Oracle Function in an Package with DAO over ODBC

Question

Hello,
our customer is using Oracle 10.2.0.3 Enterprise Edition. We've to create an interface from our Microsoft Access 2000 application to the oracle system.
We want to call a Oracle Package-Function with DAO over ODBC.
We are using VBA with Microsoft Access 2000 SP3.
The ADO solution that works is:
Public Function CallSProcADO()
Dim cmd As ADODB.Command
Dim cmdWrite As ADODB.Command
Dim conn As ADODB.Connection
Dim param As ADODB.Parameter
On Error GoTo err_handler
Set conn = New ADODB.Connection
conn.Open "dsn=xxx;UID=xxx;PWD=xxx;"
Set cmdWrite = New ADODB.Command
cmdWrite.ActiveConnection = conn
cmdWrite.CommandText = "{ ? = call XXX.PACKAGENAME.FUNCTION(?,?)}"
cmdWrite.Parameters(0).Direction = adParamReturnValue
cmdWrite.Parameters(0).Type = adInteger
cmdWrite.Parameters(1).Direction = adParamInput
cmdWrite.Parameters(1).Type = adVarChar
cmdWrite.Parameters(1).Value = "C0045/2006"
cmdWrite.Parameters(2).Direction = adParamInput
cmdWrite.Parameters(2).Type = adVarChar
cmdWrite.Parameters(2).Value = "J"
cmdWrite.Execute
conn.Close
MsgBox "Successfull!"
Exit Function
err_handler:
MsgBox "Error!"
End Function
Now we want to know if it's possible to use DAO to do the same.
best regards
Arndt

Answer 1

During binding, strings are generally skipped. As such, you should first try replacing XMLType('?') with XMLType(?). You don't need to specify '?' because the system knows the proper type from your SQLBindParameter call.
Also, you should try replacing:
sr = SQLBindParameter(hstmt, 3, SQL_PARAM_INPUT, SQL_C_CHAR, SQL_LONGVARCHAR, 0, 0,(SQLPOINTER)3, 0, &type[2]);
with
sr = SQLBindParameter(hstmt, 3, SQL_PARAM_INPUT, SQL_C_CHAR, SQL_LONGVARCHAR, 0, 0,(SQLPOINTER)buf, BUFSIZE, &type[2]);