使用Parameters.parambyname时出现的错误

jumpping 2005-03-23 10:40:20
程序实现的功能就是查找在指定日期之间的数据,原程序如下:
---------------------------------------------------------------------------------
procedure TF_Sale_Print.Button1Click(Sender: TObject);
begin
with DataModuleMain.ADOQuery_Sale_Print do
begin
SQL.Clear;
SQL.Add('select 员工名,客户名,产品名,销售日期,销售数量,销售单价,销售数量*销售单价 as 销售总额');
SQL.Add('from customer a, sale b,produce c,employee d');
SQL.Add('where b.员工号=d.员工号 and c.产品号=b.产品号 and a.客户号=b.客户号 and ');
SQL.Add('b.销售日期>=:dt1 and b.销售日期<=:dt2'); //问题语句
Parameters.parambyname('dt1').Value:=DateTimePicker1.Date; //问题语句
Parameters.parambyname('dt2').Value:=DateTimePicker2.Date; //问题语句
end
end;
--------------------------------------------------------------------------------------
可是,我在运行的时候,程序总是说dt1没有找到,请问这个是什么原因,如何解决,谢谢。
...全文
154 点赞 收藏 5
写回复
5 条回复
jumpping 2005年03月24日
谢谢各位,我找到问题了
回复 点赞
chenren70 2005年03月24日
procedure TF_Sale_Print.Button1Click(Sender: TObject);
var
s:string;
begin
with DataModuleMain.ADOQuery_Sale_Print do
begin
SQL.Clear;
s:='select 员工名,客户名,产品名,销售日期,销售数量,销售单价,销售数量*销售单价 as 销售总额'
+' from customer a, sale b,produce c,employee d'
+' where b.员工号=d.员工号 and c.产品号=b.产品号 and a.客户号=b.客户号 and '
+' b.销售日期>=:dt1 and b.销售日期<=:dt2';
SQL.Add(s);
parambyname('dt1').asdate:=DateTimePicker1.Date;
parambyname('dt2').asdate:=DateTimePicker2.Date;
end
end;
搞定!!

回复 点赞
jumpping 2005年03月24日
对不起,我没有看出有何改动,请告知,谢谢
回复 点赞
gxgyj 2005年03月24日
procedure TF_Sale_Print.Button1Click(Sender: TObject);
begin
with DataModuleMain.ADOQuery_Sale_Print do
begin
SQL.Clear;
SQL.Add('select 员工名,客户名,产品名,销售日期,销售数量,销售单价,销售数量*销售单价 as 销售总额');
SQL.Add(' from customer a, sale b,produce c,employee d');
SQL.Add(' where b.员工号=d.员工号 and c.产品号=b.产品号 and a.客户号=b.客户号 and ');
SQL.Add(' b.销售日期>=:dt1 and b.销售日期<=:dt2'); //问题语句
Parameters.parambyname('dt1').Value:=DateTimePicker1.Date; //问题语句
Parameters.parambyname('dt2').Value:=DateTimePicker2.Date; //问题语句
end
end;
回复 点赞
sumury 2005年03月24日
mark
回复 点赞
发动态
发帖子
数据库相关
创建于2007-08-02

1211

社区成员

8.8w+

社区内容

Delphi 数据库相关
社区公告
暂无公告