写SQL实现 SELECT * FROM WHERE TAIME>=TIME<=TIME2
解决方案 »
- delphi BHO检测URL地址没有&符号,为什么? 有源代码下载哦
- delphi中发送邮件以附件的形式发送在代码中要怎么设置
- DBGrid显示字段丢失
- swap函数的用法!
- 过年了,放分了!delphi基础知识第一章:
- 为什么我的totalpages 显示为0 ??
- 自己写的函数单元怎样在窗体中调用
- 在dbgrid中用图标显示某个逻辑字段时,通过双击改变该字段内容,如何避免True或False被显示出来
- 向那些因为我得帖子而被扣掉信誉分的xdjm道歉!
- 新手提问:怎么在Delphi6下使用Delphi1的组件(比如TMSComm),先谢了。
- 关于stringgrid的一个小问题
- 怎么利用socket传文件!
timer1,timer2:string;
begin
timer1:= datetostr(DateTimePicker1.Date);
timer2:= datetostr(DateTimePicker1.Date);
query1.close;
query1.sql.text:='select * from A where time>'''+timer1+''''
+' and time<'''+timer2+''''
query1.open
先写一个函数:
function CreateGlobalTSQLString(ADateTime: TDateTime): string;
var
strDestDateTime: string;
begin
strDestDateTime := FormatDateTime('yyyy-mm-dd hh:mm:ss.zzz', ADateTime);
Result := 'CONVERT(DATETIME,''' + strDestDateTime + ''',20)';
end;然后在生成sql语句时这样写:
ADODataSet1.CommandText := 'SELECT * FROM 订单 WHERE 订购日期 BETWEEN '+
CreateGlobalTSQLString(DateTimePicker1.Date) + ' AND ' +
CreateGlobalTSQLString(DateTimePicker2.Date) + ' ORDER BY 订购日期';这样就不用考虑DateTimePicker的日期格式和库中日期字段的格式的不同了。实际上这样处理就是告诉sql server我给你传进去的日期是什么格式的,剩下的事就是sql server的事了。我只在sql server 2000上测试通过。有兴趣的朋友可以试试其它的数据库。看能否帮到你!
先写一个函数:
function CreateGlobalTSQLString(ADateTime: TDateTime): string;
var
strDestDateTime: string;
begin
strDestDateTime := FormatDateTime('yyyy-mm-dd hh:mm:ss.zzz', ADateTime);
Result := 'CONVERT(DATETIME,''' + strDestDateTime + ''',20)';
end;然后在生成sql语句时这样写:
ADODataSet1.CommandText := 'SELECT * FROM 订单 WHERE 订购日期 BETWEEN '+
CreateGlobalTSQLString(DateTimePicker1.Date) + ' AND ' +
CreateGlobalTSQLString(DateTimePicker2.Date) + ' ORDER BY 订购日期';这样就不用考虑DateTimePicker的日期格式和库中日期字段的格式的不同了。实际上这样处理就是告诉sql server我给你传进去的日期是什么格式的,剩下的事就是sql server的事了。我只在sql server 2000上测试通过。有兴趣的朋友可以试试其它的数据库。看能否帮到你!