@marabu
... habe die Anweisungen folgendermaßen angepasst
Delphi-Quellcode:
var Diff : integer;
begin
If SourceJahr<>TargetJahr
then
begin
Diff:=TargetJahr-SourceJahr;
DM.ProgressWork ('
Temperaturen '+IntToStr(TargetJahr)+'
einfügen','
','
','
',0);
with DM.Query_Betrieb4
do
begin
hs:='
Insert Into Haustemperatur.db (Flaeche,Termin,Jahr,Temp_Tag,Temp_Nacht) ';
hs:=hs+'
Select Flaeche,Termin+:ZWert,Jahr+:Diff,Temp_Tag,Temp_Nacht from HausTemperatur.db where Jahr='+IntToStr(SourceJahr);
SQL.Clear;
SQL.Add (hs);
ParamByName ('
ZWert').asInteger:=Trunc(EncodeDate(TargetJahr+1,1,1)-EncodeDate(SourceJahr,1,1));
ParamByName ('
Diff').asInteger:=Diff;
ExecSQL;
end;
end;
end;
...und jetzt bringt er mir den Fehler "Merkmal nicht verfügbar".
Die Spaltenbezeichnungen sind alle richtig und auch keine AutoInc-Felder. Irgendwelche Ideen ???
nochmal kurz zur Tabellenstruktur..
Flaeche ist INTEGER / Termin ist DATE ===> beide Primärschlüssel
Jahr,Temp_Tag,Temp_Nacht sind Integer