var
iCount: Integer
begin
iCount := 2;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * from TableName Where IntField = ' + IntToStr(iCount));
Query1.Open;end;
iCount: Integer
begin
iCount := 2;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * from TableName Where IntField = ' + IntToStr(iCount));
Query1.Open;end;
解决方案 »
- 关于SQL事务的一个问题
- [delphi]判断应用程序是否成功升级的问题
- 以前有一本delphi的chm电子书,出了好几期,好像有11M 23M 之多,
- 一个简单的图片变换的问题。等于是送分了
- 如何用api函数来判断“输入的命令行”是否有效呢?????????????
- 请问使用fastreport如何在一行中打印多列数据?
- 丁丁销售助理又推出了新的版本 ---V3.2,欢迎下载使用!来者有份
- 大家帮忙:数据修改问题
- 如何将string转化为Tstring呢?另外能给出一些delphi关于类型转换的函数和用法吗?
- Delphi初学者能找到工作吗?
- DBGrid增加的问题?
- 在stringgrid控件里怎么输入字符?
st:tdate;
.....
st:=xxxxx;
...
Query1.SQL.Add('Select * from TableName Where IntField = ' + dateToStr(st)+')';
......
那就错误了,有好办法吗?
parambyname('id').asinteger=id;
open;OK???
sql.text := 'select * from table where int字段='+inttostr(值);
add('select * from tabl1 where date="'+datetostr()+'"');
st:tdate;
.....
st:=xxxxx;
...
Query1.SQL.Add('Select * from TableName Where IntField = '+'''' + dateToStr(st)+'''');
......
inttostr(i);
同样可以换其他的
ACCESS:
sql.text := 'select * from tbl where aDateField = ''' +
DateToStr(Date()) + '''';
ORACLE:
sql.text := 'select * from tbl where aDateField = TO_DATE(''' +
DateToStr(Date()) + ''', ''YYYY-MM-DD'')';
当然,你当前的日期格式也将直接影响DateToStr之类的函数结果字符串形式,最好设成"YYYY-MM-DD"以确保上述SQL语句构造能正常运行。