adodm.report1ADOQ.Close;
adodm.report1ADOQ.SQL.Clear;
adodm.report1ADOQ.SQL.Add('select Sum(hire) from borrowed where borrowtime=:A');
adodm.report1ADOQ.Parameters.ParamByName('A').Value:=DateTimePicker5.DateTime;
adodm.report1ADOQ.Open;
showmessage(adodm.report1ADOQ.Fields[0].AsString);
为什么showmessage显示为空,我borrowed表里是有值的,
adodm.report1ADOQ.Close;
adodm.report1ADOQ.SQL.Clear;
adodm.report1ADOQ.SQL.Add('select Sum(hire) from borrowed where goodsno=''1''');
adodm.report1ADOQ.Open;
showmessage(adodm.report1ADOQ.Fields[0].AsString);这样又可以,难道是DateTimePicker这里错了吗,请高手帮忙
adodm.report1ADOQ.SQL.Clear;
adodm.report1ADOQ.SQL.Add('select Sum(hire) from borrowed where borrowtime=:A');
adodm.report1ADOQ.Parameters.ParamByName('A').Value:=DateTimePicker5.DateTime;
adodm.report1ADOQ.Open;
showmessage(adodm.report1ADOQ.Fields[0].AsString);
为什么showmessage显示为空,我borrowed表里是有值的,
adodm.report1ADOQ.Close;
adodm.report1ADOQ.SQL.Clear;
adodm.report1ADOQ.SQL.Add('select Sum(hire) from borrowed where goodsno=''1''');
adodm.report1ADOQ.Open;
showmessage(adodm.report1ADOQ.Fields[0].AsString);这样又可以,难道是DateTimePicker这里错了吗,请高手帮忙
解决方案 »
- form的OnClose事件
- 如何使电脑屏幕不显示时间栏
- webbrowse中显示依次多个word文件时,如何判断word已经被调用(防止启动多个word进程)?
- Listview如何遍历选中的行?
- 如何把工具栏ToolBar设置成一开始就是一个小窗口?
- Tue Feb 18 11:00:00 2003 如何转换为日期
- 请问用delphi开发基于dcom的分布式系统,用什么应用服务器好呢?
- 在线等特,急.......................
- 寻找和TSuperGrid for Delphi5 或功能与之相似的控件?
- 怎么发组合键消息
- 怎样才能知道一个字符在一个字符串中最左边的那个的位置啊?!
- indy10 TCPSERVER取不到客户端IP地址
这样试下:
adodm.report1ADOQ.SQL.Add('select Sum(hire) from borrowed where borrowtime=:A');
换为
adodm.report1ADOQ.SQL.Add('select Sum(hire) from borrowed where borrowtime=''2008-04-28'''); 2008-04-28 可以是你borrowtime里的一个值,看一下ok不
可以换date 其实直接
adodm.report1ADOQ.SQL.Add('select Sum(hire) from borrowed where borrowtime='+
QuotedStr(formatdatetime('yyyy-MM-dd',DateTimePicker5.DateTime))); 也可以