Danke! Das hat mir schon geholfen aber ein Problem habe ich immer noch, das richtig Ergebnis habe ich noch nicht, als Fehlermeldung bekommen ich jetzt
"Variante des Typ(Null) konnet nicht in Typ(String) konvertiert werden"
So wie sich das liest ist das bestimmt nur eine Kleinigkeit. Input/Output-Richtung der ADOStoredProc1 sind richtig definiert, genauso wie die Datentypen (float/double/integer)
Das Ergebnis sollte dann genauso aussehen wie ich es hier mache, nur wollte ich die Arbeit die
MSDE machen lassen.
Delphi-Quellcode:
with DM1.Q_Berechne
do
begin
Close;
SQL.Clear;
SQL.Add('
SELECT SUM(PREIS) AS KOSTEN, ');
SQL.Add('
SUM(LITER) AS SPRIT ');
SQL.Add('
FROM TANKSTELLE ');
SQL.Add('
WHERE MONTH(DATUM) = :v_Monat ');
SQL.Add('
AND YEAR(DATUM) = :v_Jahr ');
Prepared := True;
Parameters.ParamByName('
v_Monat').Value := ComboBox1.Text;
Parameters.ParamByName('
v_Jahr').Value := ComboBox2.Text;
Open;
end;
Label3.Caption := FloatToStrF(DM1.Q_Berechne.FieldByName('
SPRIT').Value, ffFixed, 10, 2)+'
L';
Label4.Caption := FloatToStrF(DM1.Q_Berechne.FieldByName('
KOSTEN').Value, ffCurrency, 10, 2);
Greets
Luciano