我想写的语句是:
adoquery2.SQL.Add('select 字段名 from 表名 where datediff(d,字段名,变量);
请问,那个变量要怎么写,或用什么方法写在函数里。
adoquery2.SQL.Add('select 字段名 from 表名 where datediff(d,字段名,变量);
请问,那个变量要怎么写,或用什么方法写在函数里。
解决方案 »
- 程序只能启动一次的问题。
- 同时注入dll到多个程序中
- (急)不知道delphi中有输入输出流的概念吗?通信方面
- PDF文件的格式???
- 如何编写一个程序让计算机启动时就运行该程序?
- 如何从foxpro表中导入到sql server2000的表中?
- 如何抓取屏幕??使占用内存最小,抓取速度最快??可能要用的directx的知识。
- DELPHI的数据类型有哪些?
- 我这个问题,问了很多人,都没有成功,有知道是什么原因的吗,我一直在等着你们的回答????
- 请教有关数据库操作。
- 菜鸟问题:如何用TIdTCPServer和TIdTCPClient现实数据单向传送?
- 以前Delphi版有个网络通讯分布式版块,现在取消了?
adoquery2.SQL.Add('select 字段名 from 表名 where datediff(d,字段名,' + 变量 + ') > 1'); 这里的“变量”得是字符串型的,如果不是,得转换一下,比如说:
adoquery2.SQL.Add('select 字段名 from 表名 where datediff(d,字段名,' + IntToStr(变量) + ') > 1');
str:= 'select 字段名 from 表名 where datediff(d,字段名,'+var1+')';query.sql.add(str);
adoquery2.SQL.Add('select 字段名 from 表名 where datediff(d,字段名,:param);
adoquery2.SQL.Parameters[0].Value := 具体值;
adoquery2.SQL.Open;
adoquery2.SQL.Add('select 字段名 from 表名 where datediff(d,字段名,' + 变量 + ') > 1'); 这里的“变量”得是字符串型的,如果不是,得转换一下,比如说:
adoquery2.SQL.Add('select 字段名 from 表名 where datediff(d,字段名,' + IntToStr(变量) + ') > 1');
我想写的语句是:
s:='select sum(fscl) from tscqk where fcompanyid='+''''+a +''''+'and fdatetime=CONVERT(datetime,'+b+',102)';
adoquery2.SQL.Add(s);
有人知道哪里错了吗,执行时不出错,但没有值反回。
希望牛人指点,不盛感激。
比如str:='2008-8-8'
语句里'select * from a where date='''+str+'''' 就行了
只要字符串是日期格式的 就会自动转换 如果不是日期格式的 就会报错
'select * from a where date=#'+str+'#'
主要是在函数里引用变量时没反应,不知道为什么,也不出错,
我想的原因可能是datediff里一定要的是日期型的变量,所才会没有值反回吧。
我用的是SQL2000
谁能帮帮我,最好在机子上试一下,然后把这句话再给告诉我怎么写。
这句执行的是对的,
可是我想把那个getdate换成变量,或直接把convert(var........,gaetate()....)换成一个变量,
我应该怎么写呢
b:=datetostr(datetimepicker1.Time);
//s:='select sum(fscl) from tscqk where fcompanyid='+''''+a +''''+'and datediff(d,fdatetime,CONVERT(varchar(100), getdate(), 20))=0';(这句有执行结果)
s:='select sum(fscl) from tscqk where fcompanyid='+''''+a +''''+'and datediff(d,fdatetime,CONVERT(varchar(100), '+b+', 20))=0';(换成这句就没有执行结果了)
adoquery2.sql.Clear;
adoquery2.SQL.Add(s);
edit2.Text :=adoquery2.SQL.Text ;
adoquery2.Open ;
edit1.Text:=adoquery2.Fields[0].AsString ;
只是不出结果,也没有错误提示