Ado按时间范围查询的问题。

Question

ADOQueryA.SQL.Append('select * from Obj_Table where Code =:CID PositionTime >:AID and PositionTime <:BID order by PositionTime');
  ADOQueryA.Parameters[0].Value:= ADOTable1.FieldByName('Code').AsString;
  ADOQueryA.Parameters[1].Value:= ADOTable1.FieldByName('BeginTime').AsString;
  ADOQueryA.Parameters[2].Value:= ADOTable1.FieldByName('EndTime').AsString;执行以上代码，报错。'BeginTime'和'EndTime'及‘PositionTime ’是DateTime类型.谢谢。

Answer 1

ADOQueryA.SQL.Add('select * from Obj_Table where Code =:CID PositionTime >:AID and PositionTime <:BID order by PositionTime');
  ADOQueryA.Parameters[0].Value:= ADOTable1.FieldByName('Code').AsDateTime;
  ADOQueryA.Parameters[1].Value:= ADOTable1.FieldByName('BeginTime').AsDateTime;
  ADOQueryA.Parameters[2].Value:= ADOTable1.FieldByName('EndTime').AsDateTime;
ADOQueryA.Open;

Answer 2

ADOQueryA.SQL.Add('select * from Obj_Table where Code =:CID and PositionTime >:AID and PositionTime <:BID order by PositionTime');
  ADOQueryA.Parameters[0].Value:= ADOTable1.FieldByName('Code').AsDateTime;
  ADOQueryA.Parameters[1].Value:= ADOTable1.FieldByName('BeginTime').AsDateTime;
  ADOQueryA.Parameters[2].Value:= ADOTable1.FieldByName('EndTime').AsDateTime;
ADOQueryA.Open;

Answer 3

ADOQueryA.SQL.Add('select * from Obj_Table where Code =:CID PositionTime >:AID and PositionTime <:BID order by PositionTime');
ADOQueryA.Open;
ADOQueryA.append;
ADOQueryA.Parameters[0].Value:= ADOTable1.FieldByName('Code').AsDateTime;
  ADOQueryA.Parameters[1].Value:= ADOTable1.FieldByName('BeginTime').AsDateTime;
  ADOQueryA.Parameters[2].Value:= ADOTable1.FieldByName('EndTime').AsDateTime;
ADOQueryA.Open;
ADOQueryA.post;

Answer 4

既然知道
'BeginTime'和'EndTime'及‘PositionTime ’是DateTime类型.
那为什么还要在写
ADOTable1.FieldByName('BeginTime').AsString;而不是ADOTable1.FieldByName('BeginTime').AsDatetime;呢？

Answer 5

ADOQueryA.SQL.Append('select * from Obj_Table where Code =:CID PositionTime >:AID and PositionTime <:BID order by PositionTime');
  ADOQueryA.Parameters[0].Value:= ADOTable1.FieldByName('Code').AsString;
  ADOQueryA.Parameters[1].Value:= ADOTable1.FieldByName('BeginTime').AsDateTime;
  ADOQueryA.Parameters[2].Value:= ADOTable1.FieldByName('EndTime').AsDateTime;

Answer 6

adoquerya.sql.append  adoquerya.sql.add ?adoquerya.parameters[].value?