Hey
habe euch mal den Code angehängt. Fehlermeldugn kommt immer beim
SQL.Open und meint ungültiger Feldname.
Wie Ihr seht berechne ich zwei Datum(s)(e)(?!?) und nach denen soll in der Tabelle gefiltert werden.
Woran liegt's?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Aktienchart :TLineSeries;
AD:TDate;
ADS, EDS:String;
J, M, T:Word;
begin
EDS := FormatDateTime('dd.mm.yyyy',now);
with Form1.Query1 Do
begin
DecodeDate(now, J,M,T);
M:=M-1;
AD:=EncodeDate(J,M,T);
ADS := FormatDateTime('dd.mm.yyyy',AD);
Form1.Query1.SQL.Clear;
Form1.Query1.SQL.Add('SELECT Datum, Close FROM '+Form1.ComboBox1.Text+' WHERE Datum BETWEEN ADS AND EDS');
Form1.Query1.Open;
end;
Aktienchart:=TLineSeries.Create(Form1);
with Aktienchart do
begin
ParentChart:=Form1.DBChart1;
DataSource:=Form1.Query1;
XLabelsSource:='Datum';
YValues.ValueSource:= 'Close';
SeriesColor:= clBlue;
CheckDatasource;
end;
end;