Stored Procedure abrufen funktioniert nicht

[TUX_der_Pinguin]

IDE: TurboDelphi32 Explorer
Datenbank: MySQL 5.1
DB-Treiber: freier dbExpress für MySQL 5.x von http://www.justsoftwaresolutions.co.uk
OS: WinXP SP2

Ich bin langsam am verzweifeln, ich weiß nicht obs an mir oder dem dbExpress Treiber liegt,
es will einfach nicht klappen das ich eine Gespeicherte Prozedure abgerufen bekomme. :?

Delphi-Quellcode:

SQLProc                := TSQLStoredProc.Create(Self); 
SQLProc.SQLConnection  := frmMain.SQLCon; 
SQLProc.StoredProcName := 'GetTree'; 
With SQLProc.Params.CreateParam(ftInteger, '_ParentID', ptInput) Do AsInteger := PID; 
SQLProc.Open; 

If SQLProc.RecordCount > 0 Then Begin 
  ShowMessage(IntToStr(SQLProc.RecordCount)); 
End; 

SQLProc.Close; 
SQLProc.Free;

Egal was ich auch probiere ich bekomme ständig die Meldung "dbExpress-Fehler: [0x0005]: Operation wird nicht unterstützt."

Was zum Teufel mache ich nur falsch. :evil: Ich hatte schon an ein MySQL Rechte problem gedacht nur dann müßte ich doch eher
eine Meldung bekommen das ich keinen Zugriff habe als das die Operation nicht unterstützt wird.

mfg

TUX

[Udontknow]

Hallo!

Ich habe langsam DBexpress im Verdacht, überhaupt keine Stored Procedures zu unterstützen, denn das gleiche Problem habe ich mit DB2-Datenbanken. Ich habe dann extra eine ADO-Verbindung für die Nutzung von SPs eingebaut... :-(

Bis dann,

Andreas

[Andreas Schilling]

Ich kenne zwar nur Interbase, aber ein "Open" bei einer SP funktioniert da auch nicht sondern "exeproc". Wenn du meherere Datensätze erhalten willst (wie in deinem anderen Artikel beschrieben) dann muss ich unter IB / FB eine Query / Dataset nehmen und als SQL-Stament "select * from GetTree (' + inttostr(PID) + ')" ausführen

Gruß Andreas

[TUX_der_Pinguin]

hmm das hört sich alles nicht so gut an, also mit ADO habe ich noch nie gearbeitet müßte ich mir erst ansehen
ob ich das darüber hinbekomme.

Zu dem zweiten vorschlag das als Query zugestaltet, funktioniert auch nicht bei 'SELECT * FROM GetTree('+QuotedStr(PID)+')'
erhalte ich eine Fehlermeldung vom MySQL Server das in der nähe von ('1008') ein Fehler liegen würde. K.a. der
akzeptiert da irgendwie den Parameter nicht.

mfg

TUX

[Andreas Schilling]

Dann wäre auch noch der Syntax / Aufbau der SP interessant. Hat die Procedure Rückgabeparameter usw. ...

Gruß Andreas

[TUX_der_Pinguin]

Ich glaube eher das MySQL das so generell nicht akzeptiert, sicher bin ich mir nicht.
Hier mal die Fehlermeldung wenn ich das ganze in der MySQL console ausführe.

Zitat:

mysql> SELECT * FROM GetTree(1008);
ERROR 1064 (42000): You have an error in your SQL syntax; check the manual that
corresponds to your MySQL server version for the right syntax to use near '(1008
)' at line 1

[Andreas Schilling]

Ich ziehe mir gerade den mysql-Syntax rein http://dev.mysql.com/doc/refman/5.0/...rocedures.html. Sieht doch alles ein wenig anders aus als wie ich es gewohnt bin. Das "call" solte schon OK sein
Hier ein Ausschnitt aus dem Handbuch wobei die OUT Paramter mir unbekannt sind ...

Delphi-Quellcode:

mysql> SET @_ParentID = 1008;
mysql> CALL gettree(@_ParentID);
mysql> SELECT ???;

[hoika]

Hallo,

zeige doch mal deine SP (Kopf und Parameter).


Heiko

[TUX_der_Pinguin]

So hier die gespeicherte Prozedur. Erstellt und bearbeitet mit dem MySQL Query Browser.
Also in dem Tool bzw. der Console läßt sich die Prozedur astrein ausführen nur gelingt
mir der Aufruf in Delphi nicht, keine ahnnung wieso.

SQL-Code:

DELIMITER $$

-- -----------------------------------------------------------------------------

DROP PROCEDURE IF EXISTS `CBase`.`GetList` $$
CREATE DEFINER=`CBaseAdmin`@`%` PROCEDURE `GetList`(IN _ParentID INT)
BEGIN

  DECLARE _done INT DEFAULT 0;
  DECLARE _PoolID INT;
  DECLARE _Ident VARCHAR(10);
  DECLARE _Quantity FLOAT(10,2);

  DECLARE curNodes CURSOR FOR
    SELECT PartsUnit.PID, PartsPool.Ident, PartsUnit.Quantity  FROM PartsUnit LEFT JOIN PartsPool ON PartsPool.ID=PartsUnit.PID WHERE GID = _ParentID ORDER BY (ASCII(PartsPool.Ident) > 48 AND ASCII(PartsPool.Ident) < 57), PartsPool.Ident;
    DECLARE CONTINUE HANDLER FOR SQLSTATE '02000' SET _done = 1;
  Open curNodes;

  REPEAT
    FETCH curNodes INTO _PoolID, _Ident, _Quantity;
    IF _done = 0 Then
      IF(SELECT Count(*) FROM PartsUnit WHERE GID = _PoolID) > 0 Then
        INSERT INTO Temp(PID, ParentID, Ident, Quantity) VALUES (_PoolID, _ParentID, _Ident, _Quantity);
      END IF;
      CALL GetList(_PoolID);
    END IF;
  UNTIL _done END REPEAT;

END $$

-- -----------------------------------------------------------------------------

DROP PROCEDURE IF EXISTS `CBase`.`GetTree` $$
CREATE DEFINER=`CBaseAdmin`@`%` PROCEDURE `GetTree`(IN _ParentID INT)
BEGIN
  SET @@max_sp_recursion_depth = 100;
  CREATE TEMPORARY TABLE Temp(PID INT, ParentID INT, Ident VARCHAR(45), Quantity FLOAT(10,2));
  CALL GetList(_ParentID);
  SELECT * FROM Temp;
  DROP TEMPORARY TABLE Temp;
  SET @@max_sp_recursion_depth = 0;
END $$

-- -----------------------------------------------------------------------------

DELIMITER ;

[Andreas Schilling]

Du löscht die Proceduren? Und wo ist das "create procedure GetTree"?