TAdoquery日期格式

问题描述

我是Java开发人员。我在Delphi中有一些旧程序。在旧版本中，它们与 mdb 一起使用。我修复了它与SQL Server的连接。所有SQL查询都使用 TAdoQuery 来实现。

I am Java developer. I have some old program in Delphi. In old version they work with mdb. I fixed it for connection with SQL Server. All SQL queries are implemented with TAdoQuery.

qryTemp.SQL.Text:='select  sum(iif(ComeSumm>0,comesumm,0)),sum(iif(lostSumm>0,lostsumm,0)) from cash '+
   'where (IdCashClause is null or idcashclause<>8) '+
  ' and cashNum='+IntToStr(i)+
  ' and CashType=0'+
  ' and format(PayDate,"dd/mm/yyyy")=format('''+DateToStr(Date)+''',"dd/mm/yyyy") ';

程序抛出异常：

我已修复其他查询以进行比较：

I have fixed other query for comparison:

 qryTemp.SQL.Text:=' select top 1 iif(ComeSumm>0,comesumm,0) from cash '
                     +' where idCashReason=1 and idCashClause=8 and cashNum='+IntToStr(i)
                     +' and PayDate<:D'
                     +' order by payDate desc';
qryTemp.Parameters.ParamByName('D').Value:=DateTimeToStr(Date);

我可以在不重写整个项目的情况下快速修复用于SQL Server的所有查询吗？

Can I quickly fix all queries for work with SQL Server without rewriting the whole project?

推荐答案

假设 PayDate 被定义为 date / datetime 在MSSQL中，您可以使用以下参数：

Assuming PayDate is defined as date/datetime in MSSQL you could use parameters as follow:

qryTemp.SQL.Text:=' select top 1 iif(ComeSumm>0,comesumm,0) from cash '
                     +' where idCashReason=1 and idCashClause=8 and cashNum='+IntToStr(i)
                     +' and PayDate<:D'
                     +' order by payDate desc';
qryTemp.Parameters.ParamByName('D').Value := Date;
qryTemp.Parameters.ParamByName('D').DataType := ftDateTime;

我还要将 cashNum 更改为参数即：

I'd also change cashNum to parameter i.e.:

...
+' where idCashReason=1 and idCashClause=8 and cashNum=:cashNum'+
...
qryTemp.Parameters.ParamByName('cashNum').Value := i;

总是喜欢对参数使用兼容的数据类型，而不是格式化和使用字符串。如果您可以显式定义数据类型，SQL无需猜测。

Always prefer to use compatible data types with your parameters, rather than formatting and using strings. SQL does not need to guess your data types if you can explicitly define them.

注意：。对于较旧的版本，请使用表达式。

在较早的非Unicode Delphi版本中，Unicode出现参数问题。

因此，如果不要使用参数，则可以使用以下命令：

In older Non-Unicode Delphi versions, Parameters have issue with Unicode.
So, If you don't use Parameters you could use the following:

function DateTimeToSqlDateTime(const DT: TDateTime): WideString;
begin
  Result := FormatDateTime('yyyy-MM-dd', DT) + ' ' + FormatDateTime('hh:mm:ss', DT);
end;

function SqlDateTimeStr(const DT: TDateTime; const Is_MSSQL: Boolean): WideString;
var
  S: WideString;
begin
  S := DateTimeToSqlDateTime(DT);
  if Is_MSSQL then
    Result := Format('CONVERT(DATETIME, ''%s'', 102)', [S])
  else
    Result := Format('#%s#', [S]); // MS-ACCESS
end;

您的查询将如下所示：

...
+' and PayDate<' + SqlDateTimeStr(Date, True)
...

这篇关于TAdoquery日期格式的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！