ADO Query mit Parameter

[Andidreas]

danke für den link...

ich habs mal so nachprogrammiert wie beschrieben...
jetzt kennt er auf einmal meine parameter nicht mehr

habs mit adocommand und adostoredprocedure versucht:

storedprocedure

Delphi-Quellcode:

  dmas400_main.StoredProcedure.ProcedureName := 'LIBARY.STOREDPROCEDURE1';
  dmas400_main.StoredProcedure.Parameters.Refresh;

  dmas400_main.StoredProcedure.Parameters.ParamByName('@KZGR').Value := '3';
  dmas400_main.StoredProcedure.Parameters.ParamByName('@ZUKZ').Value := ' ';
  dmas400_main.StoredProcedure.ExecProc;

  ShowMessage(dmas400_main.StoredProcedure.Parameters.ParamValues['@Return']);

command

Delphi-Quellcode:

  Try

    dmas400_main.adocmd.CommandText := 'LIBARY.STOREDPROCEDURE1';
    dmas400_main.adocmd.Parameters.Refresh;

    dmas400_main.adocmd.Parameters.ParamByName('KZGR').Value := '3';
    dmas400_main.adocmd.Parameters.ParamByName('ZUKZ').Value := ' ';
    dmas400_main.adocmd.Execute;

  Except

    MessageDlg('Error Command', mtError, [mbOK], 0);

  End;