Einzelnen Beitrag anzeigen

nahpets
(Gast)

n/a Beiträge
 
#6

AW: exception exception in module xxxxx at 00000

  Alt 16. Jun 2016, 17:09
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;
  Mit Zitat antworten Zitat