这个时间段查询语句怎么有问题？

Question

with datacalldb.ADOsendlog do
   begin
   close;
   sql.Clear;
   sql.add('select * from Tsend_log where send_time between :BegDate and :EndDate');
   Parameters.ParamByName('BegDate').Value := datetimepicker1.datetime;
   Parameters.ParamByName('EndDate').Value := datetimepicker2.datetime;
   open;
    while not eof do
    begin
上面的语句提示，missing SQL propery错误，也就是讲SQL语句有问题，打开了一个无效或没有SQL语句的adoquery，可是自已也看不出那里有问题。

Answer 1

with datacalldb.ADOsendlog do
   begin
   close;
   sql.Clear;
   sql.add('select * from Tsend_log where send_time between QuotedStr(DateTimeToStr(datetimepicker1.datetime)) and QuotedStr(DateToStr(datetimepicker2.datetime)));
   open;
可以的............

Answer 2

:BegDate 改一下
直接用时间的字符串

Answer 3

请高手帮我看下这个程序总是提示数据添加失败
if Edit1.Text='' then
  begin
    MessageBox(Handle,'房间号不能为空','警告！',MB_OK + MB_ICONWARNING);
    Edit1.SetFocus;
    Exit;
  end;
  if Edit2.Text='' then
  begin
    MessageBox(Handle,'楼层数不能为空','警告!',MB_OK + MB_ICONWARNING);
    Edit2.SetFocus;
    Exit;
  end;
  if Edit3.Text='' then
  begin
    MessageBox(Handle,'开始房间不能为空','警告！',MB_OK + MB_ICONWARNING);
    Edit3.SetFocus;
    Exit;
  end;
  if Edit4.Text='' then
  begin
    MessageBox(Handle,'结束房间不能为空',' 警告！',MB_OK + MB_ICONWARNING);
    Edit4.SetFocus;
    Exit;
  end;
  if Edit5.Text='' then
   begin
     MessageBox(Handle,'房间价格不能空','警告！',MB_OK + MB_ICONWARNING);
     Edit5.SetFocus;
     Exit;
   end;
   if Edit6.Text='' then
   begin
     MessageBox(Handle,'每舍人数不能为空','警告！',MB_OK + MB_ICONWARNING);
     Edit6.SetFocus;
     Exit;
   end;
   try
   with Data.qry1_login do
        begin
          Close;
          SQL.Clear;
          SQL.Add('insert 宿舍管理 values (:lfhao,:lfceng,:ksfjian,:jsfjian,:fjjge,:msrshu)');
          Parameters.ParamByName('lfhao').Value:=Trim(Edit1.Text);
          Parameters.ParamByName('lfceng').Value:=Trim(Edit2.Text);
          Parameters.ParamByName('ksfjian').Value:=Trim(Edit3.Text);
          Parameters.ParamByName('jsfjian').Value:=Trim(Edit4.Text);
          Parameters.ParamByName('fjjge').Value:=Trim(Edit5.Text);
          Parameters.ParamByName('msrshu').Value:=Trim(Edit6.Text);
          ExecSQL;
        end;
        Application.MessageBox('添加成功','提示',64);
        except
          Application.MessageBox('添加失败','提示',64);
  end;end;
end.