delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
如下这段代码怎么传递动态参数比较合适?(问题有点长~谢谢) Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061224164816130.html
源代码如下(不用细看):  
  代码在SQL的查询分析器中运行是成功的,改动语法方面的细节后得到以下代码!  
  select   a.company   AS   company   ,b.total_suttle   AS   last_left,this_in   ,this_p   ,this_t   ,e.total_suttle   AS   this_left  
  from   gongsi   a    
  left   join    
                  (  
                    SELECT   kehe,total_suttle                                                  
                    FROM    
                            (  
                              SELECT   kehe   as   lcompany,maxdate=MAX(c_date)      
                              FROM   storagetotal    
                              WHERE   c_date<=:starttime    
                              GROUP   BY   kehe  
                            )Kehe_and_Date,storagetotal    
                    WHERE   kehe=lcompany   AND   c_date=maxdate  
                  )   b    
  on   a.company=b.kehe    
  left   join  
                  (                                                                                                
                    SELECT   kehe,SUM(s_weight)   AS   this_in                        
                    FROM   total    
                    WHERE   s_time   BETWEEN   :starttime   and   :endtime    
                    GROUP   BY   kehe  
                  )c    
  on   a.company=c.kehe  
  left   join    
                (                                                                                            
                    SELECT   kehe,SUM(p_weight)   AS   this_p,SUM(t_weight)   AS   this_t  
                    FROM   total  
                    WHERE   alter_time   BETWEEN   :starttime   and   :endtime    
                    GROUP   BY   kehe    
                )d      
  on   a.company=d.kehe  
  left   join                                                                                        
              (    
                  SELECT   kehe,total_suttle  
                  FROM  
                            (  
                              SELECT   kehe   as   lcompany,maxdate=MAX(c_date)    
                              FROM   storagetotal    
                              WHERE   c_date<=:endtime    
                              GROUP   BY   kehe  
                            )Kehe_and_Date,storagetotal    
                  WHERE   kehe=lcompany   AND   c_date=maxdate  
              )e  
  on   a.company=e.kehe  
   
  其中的动态参数是:startime和endtime,他们分别来自界面上的两个TDateTimePicker控件starttime1和endtime1。  
  我试过好几种方法  
  1、把以上代码写到存储过程中,用ADOStoredProc组件连接,然后的的代码是:  
  with   ADOStoredProc1   do  
          begin  
                  Paramaters.ParamByName('@starttime').Value=DateTimePicker1.date;  
                  Paramaters.ParamByName('@endtime').Value=DateTimePicker2.date;  
                  ExecProc;  
          end;  
  这个方法的结果是程序成功运行,但是在DBGrid中却什么都没有。有人说存储过程可以返回数据集,有人又说不行,到底行还是不行啊?行的话又该如何返回显示呢?  
  2、在Object   inspector下使用ADOQuery控件的SQL属性,直接在其下的List   editor下粘贴以上代码,从其Parameters属性下看到了六个变量参数  
  starttime  
  starttime  
  endtime  
  starttime  
  endtime  
  endtime  
  然后我在程序中写入了  
  with   ADOQuery2   do  
          begin  
            Parameters.ParamByName('starttime').Value:=starttime1.date;  
            Parameters.ParamByName('endtime').Value:=endtime1.date;  
            ExecSQL;  
          end;  
  运行启动该程序的按钮后系统报错,说“不正常的定义参数对象,提供了不一致或不完整的信息”  
            然后我又按Parameters属性中六个参数的排列顺序又写了一遍,即写了六条之前的传递参数值的语句,得到的结果还是一样!  
  3、我把以上查询语句全部以字符串形式给一个SQLstr的字符型变量的参数,然后用ADOquery控件的SQL.Add方法加载,然后运行得到的结果仍然是那样~  
   
  我还试了其他方法,很多时候又报错说找不到starttime这个参数!  
   
  我所以现在的疑问是:这么长而又复杂的一段select查询语句,还有动态参数,要用什么样的方法来实现最后的显示数据集的功能比较合适?因为复杂,所以细节都比较琐碎,不容易注意到,所以能找尽量直接的方法!  
 

希望能得到一些具体的建议吧~因为这个问题困扰了我几天了,总找不到合适的解决方法~  
  存储过程能解决的话,用存储过程是比较方便的。但是具体怎么用呢?  
 

你的问题只有一个:  
  :starttime   和   :endtime   不能重复使用在同一个adoquery的参数表里。  
   
  处理办法:  
  重新命名:  
  :starttime1~:starttime3  
  :endtime1~:endtime3  
  重新赋值  
   
  再运行  
   
   
 

谢谢,我试一下看看!

果然如你所说!!  
  万分感谢了!!  
  呵呵~~  
  八十分请您笑纳~~

posted on 2008-10-20 10:33 delphi2007 阅读(117) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。