SQL Berechnung

[Sharky]

Versuche es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  mittelwert : Real;
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text :=
    'SELECT TOP 5 AVG(wert) AS mittelwert FROM tabelle' + #10
  + 'WHERE name = :name' + #10
  + 'ORDER BY datum DESC';
  ADOQuery1.ParamCheck := True; // Parameter verarbeiten
  ADOQuery1.Parameters[0].Value := 'A'; // Nur Für Mittarbeiter "A";
  ADOQuery1.Open;
  mittelwert := ADOQuery1.Fields[0].AsFloat;
end;