Hallo,
ich versuche mich gerade an einer
Unit, welche Logging funktionen bieten soll und möchte die ganzen Elemente zu Fuß erstellen.
So möchte ich auch eine TSQLStoredProc Komponente erzeugen, welche eine StoredProcedure mit einem Ausgabe-Parameter aufrufen soll. Bis jetzt gelingt mir das aber nicht so recht.
Delphi-Quellcode:
with TSQLStoredProc.Create(nil) do
try
SQLConnection := _DBConn;
StoredProcName := 'Gen_id';
Params.CreateParam(ftInteger, 'ID', ptOutPut).AsInteger := 0;
ExecProc;
Result := Params.ParamByName('ID').AsInteger;
finally
Free;
end;
Sobald ich über die ExecProc stelle gehen möchte bekomme ich die Meldung: Listenindex überschreitet Maximum(0). Was mache ich falsch?