var strs:string;
strs:='select *from tablename where datel>='+''''+datetimetostr(datetimepicker1.datetime)+''''+' and datel<='+''''+datetimetostr(datetimepicker2.datetime)+''''
strs:='select *from tablename where datel>='+''''+datetimetostr(datetimepicker1.datetime)+''''+' and datel<='+''''+datetimetostr(datetimepicker2.datetime)+''''
解决方案 »
- Case语句的用法
- 数据库提取时字段名称为数字开头的怎么办
- 往RichText控件里按行插入数据。怎么解决界面无效应的情况
- 那位做过delphi里的mapx绑定数据库的?可以贴一些代码吗?
- ado +mssql的问题!
- 一个简单的问题
- 哥哥的20首自杀式情歌(请勿夜深人静时独自收听)
- 怎么样用WebBrowser1控件打开本地的html文件浏览?
- 请问怎样启动ie浏览一个网页,并且打开新的ie窗口,不使用当前ie窗口?
- 明明白白文件名,请问程序中一下文件作用分别是什么?
- 请教如何计算两个日期差多少天的问题!在线等待!!!
- 数据库登陆密码怎么保存,我要在程序里面让用户可以修改密码,要单独的文件吗?急用!
begin
Close;
Sql.Text :='Select * from Tablename Where Date1 between :sDate and :eDate';
paramByName('sDate').AsDateTime :=Trunc(TDateTimePicker1.Date);
paramByName('eDate').AsDateTime :=Trunc(TDateTimePicker2.Date)+1;
Open;
end;
begin
Active:=False;
SQL.Clear;
SQL.Add('Select * From myTable Where date1 Between :pDate1 And :pDate2');
ParambyName('pDate1').AsDateTime:=DateTimePicker1.DateTime;
ParambyName('pDate2').AsDateTime:=DateTimePicker2.DateTime;
Active:=True;
end;