请问,用DateTimePicker控件选择一个时间(2004-04-15),用AdoQuery控件的SQL语句怎样查找SQL2000数据库中,对应时间(2004-04-15)的数据。表名:User_Charge 时间字段:Pdate 最好写详细步骤和帮助shuoming,谢谢!
解决方案 »
- rzgroup中如何设置item的右键菜单?
- 请大家解释一下这个代码
- delphi怎样去读auto cad 中的dwg文件的宽、高等信息
- 急购一中学教务管理系统和图书管理系统,今年做课题设计,无法下手啊
- 请问大家插入主表明细表时是如何处理的?非常感谢!
- 如何从数据库的BOLB字段(存放的是WORD文档)读出的数据?
- 关于DevExpressPrintintSystem
- 用delphi的BDE或ado 读取acess 数据库时出现invalid table name 错误。
- 哪有编辑HTML的控件? 要求所见即所得的,不要MS DHTML Control.
- delphi不如pb?
- 请教大家一个数据库驱动程序(bde,ado,dbexpress)选择的问题?
- 多线程的几个问题!
searstr:string;
begin
searstr:='select * from User_charge where pdate between '''+DateToStr(DateTimePicker1.Date)+''' and '''+DatetoStr(DateTimePicker1.Date+1)+'''';
AdoQuery1.close;
AdoQuery1.sql.clear;
AdoQuery1.sql.add(SearStr);
AdoQuery1.open;
end;
begin
close;
sql.text := 'select * from User_charge where pdate = ' + QuotedStr(datetostr(DateTimePicker1.Date));
open;
end;
dd: tdatetime;
begin
dd := strtodate( datetostr(DateTimePicker.date));with adoquery do
begin
close;
sql.clear;
sql.text := 'select * from user_charge where pdate = ' + dd ;
open;
end;end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with AdoQuery1 do
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * from User_Charge');
ADOQuery1.SQL.Add('where Pdate between '''+Datetostr(datetimePicker1.Date)+''' and '''+(datetostr(datetimepicker1.Date+1))+'''');
ADOQuery1.Open;
ADOQuery1.First;
end;//with
Var
tmpDate : TDateTime ;
begin
tmpDate := dateTimePicker1.Date ;
with AdoQuery1 do
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text :='Select * from User_Charge where Pdate between '''+Datetostr(tmpDate)+''' and '''+(datetostr(tmpDate+1))+'''');
ADOQuery1.Open;
end;//with
end ;
SQL 的后端日期有可能含有时间信息,如2004-07-13 01:03:05:08
看看是否是这个原因导致选不出数据.
你可以把你的SQL语句在查询分析器中执行一下,查出具体原因来.