当前位置：首页 → 问答吧 → 【新手】 delphi 数据库时间提取

【新手】 delphi 数据库时间提取

时间：2011-08-26

来源：互联网

var
datetime1:Tdatetime;
id1:integer;
time1:Tdatetime;
begin
ADODataSet2.Close;
ADODataSet2.CommandText:='USE DB Select * From Tab1 Where ID='+inttostr(5);
ADODataSet2.Open;
datetime1:=ADODataSet2.FieldValues['Time'];
ADODataSet2.Close;

ADODataSet1.Close;
ADODataSet1.CommandText:='USE DB Select * From Tab2 Where Time='+datetostr(datetime1);
ADODataSet1.Open;
id1:= ADODataSet1.FieldValues['ID'];//此处为什么提示为空值呢！！？
ADODataSet1.Close;

label1.Caption:=inttostr(id1);
end;

如上程序，有什么错误，请赐教

作者: chenep 发布时间: 2011-08-26

你先看看有数据吗被select吗

作者: bdmh 发布时间: 2011-08-26

1、可能是查询没有结果
2、我没用过这样取值，不知道对不对，不过可以用Id1 := ado.fieldbyname('id').asinteger;
3、再说了ADODataSet1 一般不用来查询的吧？用adoquery吧

作者: moshao6 发布时间: 2011-08-26

日期常量在sql里要加引号的
ADODataSet1.CommandText:='USE DB Select * From Tab2 Where Time='+quotedstr(datetostr(datetime1));

作者: sz_haitao 发布时间: 2011-08-26

... Time='+datetostr(datetime1);

datetime1包括有日期+时间，最好是格式化一下，还有2边要加上引号
最好是把SQL语句放在查询分析嚣里调试一下,看看结果是什么

作者: kaikai_kk 发布时间: 2011-08-26