var  
 begintime: Tdatetime;  
 endtime : Tdatetime;  procedure TForm1.Button1Click(Sender: TObject);  
begin  
ADOQuery1.Close;  
ADOQuery1.SQL.Clear;  
Try  
  ADOQuery1.Parameters.ParamByName('begintime').Value := DateTimePicker1.DateTime;  
  ADOQuery1.Parameters.parambyname('endtime').Value := DateTimePicker2.DateTime;  
  ADOQuery1.sql.Add('select * from Table1 where call =''' +Edit2.Text+''' and begin  <:endtime and begin >  : begintime');  
except  
ADOQuery1.SQL.Clear;  
ADOQuery1.sql.Add('select * from Table1 where call ='''+Edit2.Text+'''');  
end;  
ADOQuery1.Open;  
ADOQuery1.Active := True;  
end;  
有错误!!没有找到"begintime" 我已经定义过SQL变量begintime和endtime了 不知道为什么?

解决方案 »

  1.   

    ''' and begin < :endtime and begin >:begintime'
      

  2.   


    看过龟和狙击在delphi倒过分啊 呵呵
      

  3.   

    还是不行 错误是这样的
     ADOQuery1:parameter'begintime' not found
      

  4.   

    星辰技术社区:www.netcsharp.cn,我们将帮您以最快的速度找到最佳的解决方案 
      

  5.   

    : 与begintime之间没有空格,是挨着的.