ADO Query mit Parameter

[nahpets]

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;