exception exception in module xxxxx at 00000

[nahpets]

Naja, kann man so machen, aber wie wäre es denn, die Parameter einfach abzufragen?

Delphi-Quellcode:

procedure GetSQLParameters(qry : TAdoQuery);
var
          i : Integer;
begin
  with qry.Parameters do begin
    if Count > 0 then begin
      for i := 0 to Count - 1 do begin
        qry.Parameters[i].Value := InputBox('Parametereingabe:',qry.Parameters[i].Name + ' = ','');
      end;
    end;
  end;
end;

Im Quelltext dann vor dem Open der Query sowas:

Delphi-Quellcode:

  try
    qry.SQL.Text := // irgendeine Zuweisung:
    GetSQLParameters(qry);
    qry.Open
  except
    // siehe oben
  end;