Delphi中如何进行日期格式转换,并用SQL查询日期段内数据?
procedureTForm3.Button2Click(Sender:TObject);beginwithquery1dobeginclose;sql.Clear;sq...
procedure TForm3.Button2Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.Clear;
sql.Add('select riqi,shijian,steamt,steamf from shuju where riqi between :a and ''1/1/2009''');
parambyname('a').AsDate:=strtodate(edit1.Text+'/'+edit2.Text+'/'+edit3.Text);
prepare;
open;
end;
end;
在edit1中输入1,在edit2中输入1,edit3中输入2008,即查询1/1/2008到1/1/2009之间的数据。
程序运行的总是不成功,采用的是paradox 7数据库,结果提示“1/1/2008 is a valid date”.
请问这是为什么?怎么办?
结果提示“1/1/2008 is not a valid date”. 展开
begin
with query1 do
begin
close;
sql.Clear;
sql.Add('select riqi,shijian,steamt,steamf from shuju where riqi between :a and ''1/1/2009''');
parambyname('a').AsDate:=strtodate(edit1.Text+'/'+edit2.Text+'/'+edit3.Text);
prepare;
open;
end;
end;
在edit1中输入1,在edit2中输入1,edit3中输入2008,即查询1/1/2008到1/1/2009之间的数据。
程序运行的总是不成功,采用的是paradox 7数据库,结果提示“1/1/2008 is a valid date”.
请问这是为什么?怎么办?
结果提示“1/1/2008 is not a valid date”. 展开
3个回答
展开全部
日期格式不对,
2008-01-01试试
2008-01-01试试
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
encodedatatime()函数试一下
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
建议用ADO吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询