sql - SQL追加的Delphi 7中的表达式类型不匹配

Question

我有一个代码，它在加载表单时检查当前日期，执行简单计算，并在 Delphi 中附加 SQL。它适用于装有 Delphi 7 的 Windows 7，以及另一台装有 Xp 的计算机，但不适用于其他 3 台装有 Xp 的计算机。加载表单时，它显示“表达式中的类型不匹配”，并指向追加后的行。可能是什么问题？

procedure TfmJaunumi.FormCreate(Sender: TObject);
var d1, d2: TDate; 

begin  
 d1:= Date;  
 d2:= Date-30;  
 With qrJaunumi do
     begin
         Open;
         SQL.Append('WHERE Sanem_datums BETWEEN' + #39 + DateToStr(d1) +
         #39 + 'AND' + #39 + DateToStr(d2) + #39);
         Active := True; 
     end; 
end;

Answer 1

正如robsoft所说，这可能是国际化设置。您可以改用参数化查询 - 如果使用日期和时间，它们通常会更简单。

此外，with 开头之后的 Open 不是必需的 - 事实上，它会打开没有您要添加的 WHERE 子句的查询。

 procedure TfmJaunumi.FormCreate(Sender: TObject);

 var d1, d2: TDate; 

 begin  d1:= Date;  d2:= Date-30;  With
 qrJaunumi do
         begin
         SQL.Append('WHERE Sanem_datums BETWEEN :StartDate AND :EndDate');
         // exact expression will vary according to DB connection type.
         // Example is for TADOQuery.
         Parameters.ParamByName('StartDate').Value := d1;
         Parameters.ParamByName('EndDate').Value := d2;
         Active := True; 
         end; 
 end;