ADOStoredProc liefert Oraclefehler beim anhäkeln von Active

[shmia]

Gibt die Stored Proc ein Rowset als Ergebnis zurück?
Falls nein, ist es verboten das Property Active auf True zu setzen.
Stattdessen darf nur ExecProc im Sourcecode aufgerufen werden:

Delphi-Quellcode:

ADOStoredProc1.Parameters.ParamValues['ArtikelNr'] := ...;
ADOStoredProc1.ExecProc;

[Bernhard Geyer]

Welcher ADO-Provider? Die von MS sind an vielen Stellen fehlerhaft. Und MS hat mittlerweile jeglichen Support/Weiterentwicklung eingestellt.

[Glühwürmchen]

Sehr schnelle Antwort, danke.
Woran erkenne ich denn, ob die Stored Proc ein Rowset als Ergebnis zurückliefert?

Sie gibt jeden falls ein "varchar2" zurück.
Den von Dir erwähnten Aufruf teste ich jetzt mal....

[Glühwürmchen]

Provider=OraOLEDB.Oracle.1;Password=...;Persist Security Info=True;User ID=...;Data Source=XE;Extended Properties=""

[Glühwürmchen]

Kaum macht man es richtig, schon geht es!
Der Tip mit dem "ExecProc" war zielführend.

Danke.

[Glühwürmchen]

Nun habe ich aber doch noch eine Frage:

Wenn das hier das Script ist, mit dem die SP in die DB kam,

was muss ich dann tun um an den ReturnWert der SP heranzukommen?

CREATE OR REPLACE FUNCTION SP_BlaBlub(iAbc_ID in varchar2) return varchar2
IS
tCnt pls_integer;
tRes varchar2(4) := 'F';
begin
select count(*) into tCnt from tableXox t where Xyz_ID = '14' and t.P_ID = iAbc_ID;
if tCnt > 0 then
tRes := 'T';
end if;
return tRes;
EXCEPTION
WHEN OTHERS THEN
...
;
END;

Ich habe bisher folgende drei Zeilen:
ADOStoredProc_SP_BlaBlub.Open;
DM1.ADOStoredProc_SP_BlaBlub.Parameters.ParamValue s['iAbc_ID'] := '020880';
DM1.ADOStoredProc_SP_BlaBlub.ExecProc;

Wie was muss ich schreiben um an
tRes
heranzukommen?

[DeddyH]

Ich kenne mich mit der Kombination ADO/Oracle zwar nicht aus, aber geht es so?

Delphi-Quellcode:

DM1.ADOStoredProc_SP_BlaBlub.Parameters.ParamValues['iAbc_ID'] := '020880';
DM1.ADOStoredProc_SP_BlaBlub.Open;
ShowMessage(DM1.ADOStoredProc_SP_BlaBlub.Fields[0].AsString);

[mikhal]

Wenn die SP bereits auf der Datenbank liegt, müsstest du eigentlich so an das Ergebnis kommen:

Code:

SELECT SP_BLABLUB('020880') ERGEBNIS FROM DUAL

Dieses Statement packst du in eine AdoQuery und rufst das Ergebnis mit Open und FieldByNAme('Ergebnis').AsString ab. Dann brauchst du natürlich auch keine AdoStoredProcedure mehr...

Grüße
Mikhal

[shmia]

Zitat von Glühwürmchen:

Wie was muss ich schreiben um an tRes heranzukommen?

Der Returnwert müsste eigentlich ebenfalls als Parameter auslesbarbar sein:

Delphi-Quellcode:

ADOStoredProc_SP_BlaBlub.Parameters.ParamValue s['iAbc_ID'] := '020880';
ADOStoredProc_SP_BlaBlub.ExecProc;
ergebnis := ADOStoredProc_SP_BlaBlub.Parameters.ParamValues['???'];

Problem ist jetzt nur herauszufinden, welchen Namen der Parameter hat.

Delphi-Quellcode:

var
  i : Integer;
  p : TParameter;
begin
  for i := 0 to ADOStoredProc_SP_BlaBlub.Parameters.Count-1 do
  begin
    p := ADOStoredProc_SP_BlaBlub.Parameters.Items[i];
    ShowMessageFmt('%d: %s - %s',[i, p.Name, FieldTypeNames[p.DataType]]);
  end;

[jobo]

Hallo,

ich schließe mich Mikhal an.
Wenn in der Lage bist ein TQuery bzw. ein TADOQuery einzusetzen, dann kannst Du Dir etwas Arbeit sparen.

Delphi-Quellcode:

..
myAdoQuery.sql.clear;
myAdoQuery.sql.add('SELECT SP_BLABLUB('020880') ERGEBNIS FROM DUAL');
myAdoQuery.open;
showmessage(myAdoQuery.Fields[0].AsString;
..

Das ist nicht getestet!

Wenn es unbedingt TADOStoredProc sein muss:
Eine Oracle Funktion liefert ihren Rückgabewert unter Delphi glaube ich als 1. Parameter zurück. Kann mich aber nicht genau erinnern, da ich Oracle Funktionen und Prozeduren immer mit TADOQuery verarbeite / aufrufe.