var
mysql,date:string;
begin
adoquery_store.SQL.Clear;
adoquery_store.Close;
date:= InputBox('变价系统', '输入上报日期',datetimetostr(today()));
mysql:='select sum(msl_amt)/sum(msl_qtty),'
+'sum(msl_amt) from pos.month_sale_list'
+' where msl_date='''+date+''' and msl_prd_id in(''143975'',''125499'',''115574'')'; showmessage(mysql); adoquery_store.SQL.Add(mysql);
adoquery_store.Open;end;
另外说明一下数据库是装在UNIX上的SYBASE数据库,在WIN2K的机器上装PB联接查询速度很快,但用DELPHI通过ODBC联接查询速度很慢而且报错,不知为什么?
mysql,date:string;
begin
adoquery_store.SQL.Clear;
adoquery_store.Close;
date:= InputBox('变价系统', '输入上报日期',datetimetostr(today()));
mysql:='select sum(msl_amt)/sum(msl_qtty),'
+'sum(msl_amt) from pos.month_sale_list'
+' where msl_date='''+date+''' and msl_prd_id in(''143975'',''125499'',''115574'')'; showmessage(mysql); adoquery_store.SQL.Add(mysql);
adoquery_store.Open;end;
另外说明一下数据库是装在UNIX上的SYBASE数据库,在WIN2K的机器上装PB联接查询速度很快,但用DELPHI通过ODBC联接查询速度很慢而且报错,不知为什么?
解决方案 »
- 分类求和问题??????
- 急!!ADO问题,解决问题100分全给!!(跪求)
- 在弹出保存文件时,如果点击取消,那么ie会返回什么给服务器,叫它停止下载么
- 大家老说郁闷,几天升星了,高兴一下,散分200!!!!!!!!!!!!!
- 屏幕闪烁-image作为背景图片再切换窗体时怎么不让它闪
- 大家进来看看吧!
- 小弟初学,向大家拜个师
- 怎样得到文件在系统中的属性--〉〉注意,是要文字和系统语言相符,不是简单的filegetattr
- 有人知道吗???高分求解!!!
- 有谁有具体某个项目的RUP(UML)设计文档(包括用例图,类图等完整的模型)
- 想做一个程序,将一个.sql文件执行,该如何写?
- help me?
你的msl_date字段是否不小于9位