s:='SELECT sum(tcount) FROM tcount WHERE field_name='''+t+''' and aaa>='''+edit1.Text+'''and aaa<='''+edit2.Text+'''';
query1.SQL.Add(s);
query1.open;
aaa是日期,但为何上述语句查找不到数据?
query1.SQL.Add(s);
query1.open;
aaa是日期,但为何上述语句查找不到数据?
解决方案 »
- DELPHI登陆窗体怎么制作啊~!!连接数据库
- 如何使sqlserver客户端不装数据库驱动程序?
- olecontainer报错
- Ehlib有Kylix版本吗?
- splitter控件怎么用
- 谁有关于ABC组件包FOR DELPHI6版阿,在线求救,,快快帮忙阿
- delphi2010 Rtti 能不能取得某单元的某个函数
- table的添加问题??急用呀??
- 如何解决在同一个报表的同一个打印行同时显示数据库中的三条记录.第二行依次显示下三个记录内容.
- 如何在Delphi中动态增加Oracle字段
- 如何用Delphi编写程序连接手机进行信息读取?
- NOKIA手机待机图片短消息代码转换器代码,请大家指教!
DateTime本来就是浮点型的
你应该是在SQL Server中的,是吗?
between :date1t and :date2)';
query1.SQL.Add(s);
query1.params.parambyname('date1').value:=strtodatetime(edit1.text);
query1.params.parambyname('date2').value:=strtodatetime(edit2.text);
query1.open;
你的代码没有问题,
s:='SELECT sum(tcount) as num FROM tcount WHERE field_name='''+t+''' and aaa>='''+edit1.Text+'''and aaa<='''+edit2.Text+'''';
query1.SQL.Add(s);
query1.open;
edit3.text:=query1.fieldbyname('num').asstring;
between :date1t and :date2)';
query1.SQL.Add(s);
query1.params.parambyname('date1').value:=strtodatetime(edit1.text);
query1.params.parambyname('date2').value:=strtodatetime(edit2.text);
query1.open;
between :date1t and :date2)';
query1.SQL.Add(s);
query1.params.parambyname('date1').value:=strtodatetime(edit1.text);
query1.params.parambyname('date2').value:=strtodatetime(edit2.text);
query1.open;
而ACCESS库最好用BETWEEN 日期1 AND 日期2
AAA字段是文本型字段,但必须用来存储日期
当然可以,我以前的程序就这样做的。查一下给你一些源码参考
// EnterDate 字符型,存储日期
// 对条件语句的设定
Search_Condition := ' where Trim(EnterDate) >= '''+ FormatDateTime('yyyy''年''mm''月''dd''日''',dtp_StartDate_Origin.Date);
Search_Condition := Search_Condition+''' AND Trim(EnterDate) <= '''+ FormatDateTime('yyyy''年''mm''月''dd''日''',dtp_EndDate_Origin.Date)+''''; adoq_Class.Close;
adoq_Class.ConnectionString := sConnection;
adoq_Class.SQL.Text := 'Select Name,EnterDate,Entertime,Status from UserInfo'+Search_Condition;
adoq_Class.Open;
if adoq_Class.RecordCount >0 then
begin
while not adoq_Class.Eof do
begin
application.ProcessMessages;
...
adoq_Class.Next;
end;
end;