Ergebnis der Suchanfrage

• Forum: Datenbanken

  Re: DB Parameter

    Delphi
    by sx2008, 19. Aug 2009
  Im Prinzip so:
  Procedure TFormMain.ParamInfo(qry: TMyQuery);
  Begin
  Assert(assigned(qry)); //Sicherheitsabfrage
  qry.Params.ParamValues:= Infos.Hist;
  
  // hier wird angenommen, dass nicht alle Queries den Parameter "histDate" benötigen
  // mit FindParam() wird abgefragt, ob es den Parameter wirklich gibt
  if Assigned(qry.Params.FindParam('histDate')) then
  ...
• Forum: Datenbanken

  Re: DB Parameter

    Delphi
    by sx2008, 18. Aug 2009
  Du kannst natürlich eine private Methode schreiben:
  procedure TForm1.SetzeAlleParameter(qry:TMySQLQuery; Infos:TIrgendEinRecordOderKlasse);
  begin
  Assert(Assigned(qry)); // Sicherheitsabfrage
  qry.Params.ParamValues:= Infos.test;
  ..
  end;
  Bei vielen Queries und Parameter kann das viel Schreibarbeit sparen.