Hallo,
die von Dir genutzte Syntax mit dem @ ist auch eher für MS-
SQL gedacht, der Autor schreibt ja, dass er von DB2 nicht wirklich Ahnung hat. Das dort beschriebene muss daher nicht für jede Datenbank genau passen, es beschreibt nur das grundlegende Vorgehen.
Hilft die IBM direkt weiter?
http://www.ibm.com/developerworks/da.../dm-0512swart/
Ansonsten bitte Google bemühen:
delphi +stored +procedure +db2 eventuell ist da ja was brauchbares bei.
Bitte ändere die Fehlerbehandlung mal, damit sie aussagekräftiger wird:
zumindest in
Delphi-Quellcode:
try
...
Except
on : e
Exception do begin
MessageDlg(e.
Message, mtError, [mbOK], 0);
end;
end;
dann erfährst Du (eventuell) die Fehlerursache.
Wenn's ein bisserl mehr sein darf:
Delphi-Quellcode:
Try
...
except
on e : EAdoError
do begin
slError := TStringList.Create;
slError.Add(e.
Message);
if ADOConnection1.Errors.Count > 0
then begin
for i := 0
to ADOConnection1.Errors.Count - 1
do begin
slError.Add('
Number: ' + IntToStr(ADOConnection1.Errors.Item[i].Number));
slError.Add('
NativeError: ' + IntToStr(ADOConnection1.Errors.Item[i].NativeError));
slError.Add('
Description: ' + ADOConnection1.Errors.Item[i].Description);
slError.Add('
Source: ' + ADOConnection1.Errors.Item[i].Source);
slError.Add('
HelpFile: ' + ADOConnection1.Errors.Item[i].HelpFile);
slError.Add('
SQLState: ' + ADOConnection1.Errors.Item[i].SQLState);
ShowMessage(slError.Text);
slError.Free;
end;
end;
end;
on e :
Exception do begin
ShowMessage(e.
Message);
end;
end;