Hello,

I have a problem with the firebird odbc driver. I use a connection with adodb in microsoft access: (vba) This one is only a test with test-parameters!

Private Sub Befehl1_Click()
Dim Cmd As New ADODB.Command
Dim cn As ADODB.Connection
Dim sConn As String
Dim param As ADODB.Parameter
Dim paramr As ADODB.Parameter
Dim i As Integer

Set cn = New ADODB.Connection
'cn.CursorLocation = adUseServer
'cn.CursorLocation = adUseClient
sConn = "DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME=D:\Interbase\TEST.FDB"

Set cn = New ADODB.Connection
cn.Open sConn
cn.CursorLocation = adUseServer
Set Cmd.ActiveConnection = cn
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = "TTT"
Set param = Cmd.CreateParameter("INPUTPARAM", adVarChar, adParamInput, 2)
Cmd.Parameters.Append param
param.Value = "jo"
Set paramr = Cmd.CreateParameter("OUTPUTPARAM", adVarChar, adParamReturnValue, 2)
Cmd.Parameters.Append paramr

Cmd.Execute

MsgBox Cmd.Parameters(0).Value & " " & Cmd.Parameters(1).Value
Set param = Nothing
Set paramr = Nothing
Set Cmd = Nothing
cn.Close
End Sub

When I use only a input-parameter, the procedure-call works fine. But the return-parameter doesn't work, the procedure does not startet.

If I switch the input/output-parameter (output first), I get an error message: Laufzeitfehler... [ODBC Firebird Driver]not yet implemented

Do you have any ideas?

Thank you so much.


the firebird procedure:

CREATE PROCEDURE TTT (
inputparam varchar(2))
returns (
outputparam varchar(2))
as
begin
OUTPUTPARAM = '65';
suspend;
end