Wiedervorlageliste

[Robert_G]

Der Code müsste mit einer ADOQuery laufen. Wieviel sich da bei beim ADS-Zeugs ändert weiß ich nicht.

Delphi-Quellcode:

With Query Do
Begin
  SQL.Text :=
    'SELECT Count(*)' + #10 +
    'FROM   X' + #10 +
    'WHERE  Y = :i_DtNow';
  // Parse Statement um Variablen zu erkennen
  Prepared := True;
  // Parameterzuweisung
  With Parameters Do
    ParamByName('i_DtNow').DataType := ftDate;
    ParamByName('i_DtNow').Value := now();
  End;
  // Ausführen
  Open;

  If Not EOF and (Fields[0].asInteger > 0) Then
    [Mach dein Form auf];
End;