procedure TForm1.BitBtn1Click(Sender: TObject);
begin with adoquery1 do
begin
close;
SQL.Clear;
sql.Add('SELECT sum(((DateDiff('d',fashengriqi, #2007-11-20#)))*fashenge) AS b FROM kehuliushuibiao WHERE fashengriqi between #2007-11-1# and #2007-11-20#');
open;
end; dbgrideh1.Columns[2].FieldName:='b';
end;
单独把sql放到access中测试正常可以得到返回数据 在delphi下却报错 'd'没有定义
access下datediff()函数格式应该没错啊 问题到底出在哪 应该怎么解决呢?
begin with adoquery1 do
begin
close;
SQL.Clear;
sql.Add('SELECT sum(((DateDiff('d',fashengriqi, #2007-11-20#)))*fashenge) AS b FROM kehuliushuibiao WHERE fashengriqi between #2007-11-1# and #2007-11-20#');
open;
end; dbgrideh1.Columns[2].FieldName:='b';
end;
单独把sql放到access中测试正常可以得到返回数据 在delphi下却报错 'd'没有定义
access下datediff()函数格式应该没错啊 问题到底出在哪 应该怎么解决呢?
改为 DateDiff(''d'',fashengriqi,#2007-11-20#)))
可以成功 注意是两个单引号! 不是双引号!