[Firebird-odbc-devel] Firebird ODBC Driver problem

[Olaf K. <ola...@sa...>]

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