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"?

[hoika]

Hallo,

ich sehe hier aber keine gettree Procedure,
soll wohl die GetPartListMain sein.

Ich sehe dort aber keinen Parameter.

Select * From GetPartListMain müsste gehen.

Ausserdem haben deine SP kein Parameter.


Heiko

[TUX_der_Pinguin]

Ach shit, ich habe das falsche gepostet, jetzt sollte es korrekt sein.

[hoika]

Hallo,

also wie ich das kenne, ruft man solche Sachen
über ein Query auf.
Nur das mit dem "Wenn eine Select in einer SP aufgerufen wird", (mysql Handbuch)
wird das Ergebnis beim Aufruf zurückgegeben,
kenne ich bei Firebird nicht so.

Dort bekommt man das nur über OUT Parameter hin.

Heiko

[TUX_der_Pinguin]

Naja was und wie das in Firebird klappt keine ahnnung, ist mir im grunde auch egal weil ich benutzer MySQL,
desweiteren gehts ja nicht darum das ich kein Ergebnis bekomme, die SP läßt sich nicht aufrufen bzw.
Parameter übergeben.

Ich bin doch solangsam am Ende, ich raffe einfach nicht wieso sich eine Stored Procedure nicht aufrufen läßt.
Es scheint mir an dem dbExpress müll zu liegen und mittlerweile bin ich so verwirrt mit den möglichkeiten die es
gibt überall steht was anderes und wird was anderes empfholen, zu php Zeiten war es da doch echt schön.

Aber das bringt mir alles nix, ich hatte gedacht das ich einen Teil der arbeit auf dem MySQL Server verlagern kann
und nur noch die Prozeduren aufzurufen brauch um meine Daten zuerhalten aber jetzt kann ich das doch alles von
Hand im Delphi machen, ergo rekursiv Select Abfragen raus hauen. *kotz*.

[hoika]

Hallo,

es muss mind. mysql 4.1 als Protocol (client) eingestellt werden,
und das scheint das Problem zu sein.


http://www.toolbox-mag.de/data/tx32006artikel1.pdf


Geh dch mal auf die HP des Treibers und frage dort nach,
ob sie genau dieses Feature (select * from in SP wird sofort an den Client geschickt)
unterstützen, sieht nämlich nicht so aus.

Ich hatte das auch mal bei einem OLEDB-Treiber,
der konnte auch keine "selectable stored procedures"


Heiko

[TUX_der_Pinguin]

Nagut das der keine Selectable Stored Prozedures kann wäre ja das eine,
aber heißt das jetzt es geht gar nicht oder es geht schon nur nicht per
Query !? Das wäre ja die viel wichtigere Frage an der ganzen Sache.

Das wäre einfach zu schön wenn das klappen würde, da ich evtl. vorgehabt
habe vermehrt mit SPs zuarbeiten, nur wenn das jetzt schon so anfängt.

[hoika]

Hallo,

eine selectable SP wird immer über eine Query aufgerufen,
wegen dem Recordset, ergo geht es gar nicht.
Frag einfahc mal nach, auf der 1. Seite der Homepgae
ist doch ne Mail angegeben.


Heiko

[TUX_der_Pinguin]

Und wofür ist der Typ TSQLStoredProc da !?
Nur für SPs die man ausführen will und nix zurück geben oder was.

Ich schick mal ne mail, habe aber keine hoffnung schnell eine lösung zu bekommen.

[hoika]

Hallo,

korrekt, für "normale" SP's.


Heiko

[TUX_der_Pinguin]

Ich habe eine Antwort vom Hersteller erhalten, tja wie vermutet
SPs werden von dem Treiber nicht unterstützt.

Zitat:

In the current version, stored procedures are not supported. This is on the
plan for future versions, but the MySQL driver is very low on our priority
list at the moment so I don't know when that will happen.

Tja ich werde das ganze dann etwas anders lösen habe da auch schon
eine idee mal abwarten, ob das ergebnis entsprechend ist.

mfg

TUX

[omata]

Hier ist noch eine andere Möglichkeit. Mit DbExpress über ODBC gehen auch die Stored Procedures. Dafür musst du allerdings einen ODBC-Eintrag anlegen und kannst eben nicht direkt auf die Datenbank zugreifen. Wenn der andere Treiber dann irgendwann auch Stored Procedures unterstützt kannst du ganz einfach umsteigen.

Gruss
Thorsten

[TUX_der_Pinguin]

Hmm ich denke ich werde erst mal auf SPs verzichten, weiß eigentlich jemand wie das mit dem ganz neuen
Delphi 2007 aussieht kann dort der dbExpress Treiber Stored Procedures!? Bin ja immer noch am überlegen
eine Version zu kaufen, entweder eine der 2007er oder falls raus kommt die TurboDelphi Variante von 2007,
ich hatte irgendwo gelesen das es sowas geben soll nur wann k.a.