Probleme mit Stored Procs, ZEOS und Firebird embedded

[lume96]

Hi Stevie,

Danke für den Link zu dem Zeos Tuto.
Ich hatte mir das Firebird embedded Tuto von Domo Sokrat angesehen (wurde igrendwo auf der DP darauf hingewiesen), hatte den zweiten Teil (bezüglich ZEOS) allerdings übersehen. Mal sehen, ob ich damit meine Probleme lösen kann.

Trotzdem noch mal kurz zum Problem :

Ich hab's noch mal durchgetestet und der Fehler bei wiederholtem Aufruf einer Stored Proc tritt tatsächlich nur dann auf, wenn man der Stored Proc vorher einen Wert übergibt.

Z.B. folgende SP :

SQL-Code:

CREATE PROCEDURE TEST2_PROC (
    INVALUE INTEGER)
RETURNS (
    RESULT INTEGER)
AS
BEGIN
  result = :INVALUE;
  SUSPEND;
END

In Delphi :

Delphi-Quellcode:

  ZStoredProc.ExecProc;
  MessageDlg(IntToStr(ZStoredProc.ParamByName('RESULT').Value),mtInformation,[mbOK],0);

  ZStoredProc.ExecProc;
  MessageDlg(IntToStr(ZStoredProc.ParamByName('RESULT').Value),mtInformation,[mbOK],0);

funktioniert, während

Delphi-Quellcode:

  ZStoredProc.ParamByName('INVALUE').Value := 1;
  ZStoredProc.ExecProc;
  MessageDlg(IntToStr(ZStoredProc.ParamByName('RESULT').Value),mtInformation,[mbOK],0);

  ZStoredProc.ExecProc;
  MessageDlg(IntToStr(ZStoredProc.ParamByName('RESULT').Value),mtInformation,[mbOK],0);

beim zweiten ExecProc nicht mehr funktioniert.

Schon komisch.

Tschüss,
Lutz