下面的语句在delphi6中为什么错误呀，怎么解决呀

[david1975]

with DM.qyTemp0 do begin
Close;
SQL.Clear;
SQL.Add('SELECT DATEPART(YEAR, GETDATE()) AS Year, ');
SQL.Add(' DATEPART(MONTH, GETDATE()) AS Month, ');
SQL.Add(' DATEPART(DAY, GETDATE()) AS Day ');
Open;
end;
Today := RightStr('00' + IntToStr(DM.qyTemp0.FieldByName('Year').AsInteger - 1911), 2) + '-' +
RightStr('00' + IntToStr(DM.qyTemp0.FieldByName('Month').AsInteger), 2) + '-' +
RightStr('00' + IntToStr(DM.qyTemp0.FieldByName('Day').AsInteger), 2);

[reallike]

好像没有EXECSQL……

[david1975]

报循环引用year
请问这个语句是干什么的呀

[blueshu]

?

[firetoucher]

不会啊，虽然麻烦的有一点没有必要，但应该没有问题啊？什么错误？

[iBear]

关键是报的什么错误

[szq2008]

with DM.qyTemp0 do begin
Close;
SQL.Clear;
SQL.Add('SELECT DATEPART(YEAR, GETDATE()) AS Year, ');
SQL.Add(' DATEPART(MONTH, GETDATE()) AS Month, ');
SQL.Add(' DATEPART(DAY, GETDATE()) AS Day ');
Open;//应去掉;
end;

[wx19781011]

你的目的不就是得到今天的年、月、日 吗？
直接用的decodedate(date(),yy,mm,dd)就行了！

[wx19781011]

再说了，select语句没有from行吗？

[readersm68]

SQL.Add('SELECT DATEPART(YEAR, GETDATE()) AS Year, ');
SQL.Add(' DATEPART(MONTH, GETDATE()) AS Month, ');
SQL.Add(' DATEPART(DAY, GETDATE()) AS Day ');
加 SQL.Add(' From TableName ');