delphi 在ADO(ODBC)中使用datetime参数会丢失时间部分

uoifb46i 于 12个月前发布在其他

关注(0)|答案(3)|浏览(95)

昨天我在忙碌忙着用SQLLite写单元测试的时候偶然发现了这个问题。我的环境是Windows7/ Delphi XE。
将TADOQuery与TDateTime参数结合使用会导致时间部分丢失。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODb, DateUtils, DB;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var DbConn : TADOConnection;
    Qry    : TADOQuery;
    DT     : TDateTime;

begin
 DBConn := TADOConnection.Create(nil);
 DBConn.ConnectionString := 'Provider=MSDASQL.1;Extended Properties="DRIVER=SQLite3 ODBC Driver;Database=:memory:;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"';
//   DBConn.ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=True;User ID=%0:s;Password=%1:s;Extended Properties="DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;DATABASE=test;USER=root;PASSWORD=rrr;OPTION=1048579"';
 Qry := TADOQuery.Create(nil);
 Qry.Connection := DbConn;
 try
  DBConn.Connected := True;
  Qry.SQL.Text := 'CREATE TABLE test(d datetime)';
  Qry.ExecSQL;
  Qry.ParamCheck := True;
  Qry.SQL.Text := 'INSERT INTO test (d) VALUES (:d)';
  //Qry.Parameters.ParseSQL(Qry.SQL.Text, True); // not needed
  TryEncodeDateTime(1999, 12, 12, 10, 59, 12, 0, DT);
  Qry.Parameters.ParamByName('d').Value := DT;
  Qry.Parameters.ParamByName('d').DataType := ftDateTime;
  Qry.ExecSQL;
  Qry.SQL.Text := 'SELECT d FROM test';
  Qry.Open;
  ShowMessage(FormatDateTime('MM/DD/YYYY HH:NN:SS', Qry.FieldByName('d').AsDateTime));
 finally
  FreeAndNil(Qry);
  FreeAndNil(DbConn);
 end;
end;

有趣的是，当我注解行Qry.Parameters.ParseSQL(Qry.SQL.Text, True);时，它会工作得很好。我需要ParseSQL部分，因为我正在构建一个mini-ORM，所以它需要知道哪些参数必须Map。一些意见：

用MySQL 5做同样的测试也会出现同样的问题（不管ParseSQL部分是什么）。
此代码可与SQL Server和OLEDB驱动程序一起使用。

我在网上搜索了一下，发现了一些有趣的链接：
http://tracker.firebirdsql.org/browse/ODBC-27
http://embarcadero.newsgroups.archived.at/public.delphi.database.ado/201107/1107112007.html
http://bugs.mysql.com/bug.php?id=15681
第一个链接建议“修复”ADODB.pas，这是我不想做的事情。阅读最后一个链接，似乎ADO将datetime值Map为date。
我不想听的回答：使用其他库/组件（如Dbexpress、Zeoslib等）
我不知道怎样才是解决这个问题的最明智的方法。
正如Linas和Marjan Venema建议的那样，我可以省略ParseSQL部分。因此，如果我省略Qry.Parameters.ParamByName('d').DataType := ftDateTime;行，代码现在可以使用SQLlite。
但是MySQL拒绝保存时间部分。我在这里看到了ADO和MySQL ODBC之间的兼容性问题吗？

delphi

来源：https://stackoverflow.com/questions/8678746/using-a-datetime-parameter-with-ado-odbc-loses-time-part

3条答案

按热度按时间

suzh9iv81#

我已经使用SQL Server对此进行了一些测试，当我使用MSDASQL. 1（ODBC）时也遇到了同样的问题。您的代码在SQLOLEDB.1和SQLNCLI10.1中运行良好。
如果您将参数类型指定为ftString，它将使用ODBC随时间而保存（至少在SQL Server上）。

Qry.Parameters.ParamByName('d').DataType := ftString;
Qry.Parameters.ParamByName('d').Value := DateTimeToStr(DT);

注意：当你使用DateTimeToStr时，要小心本地设置，它可能不会产生你的数据库想要的结果。一个安全的选择是使用yyyy-mm-dd hh:mm:ss[.fff]。

更新：

您也可以自己将ado参数的数据类型设置为adDBTimeStamp。使用ftDateTime时，ADODB将其设置为adDate。

Qry.Parameters.ParamByName('d').ParameterObject.Type_ := adDBTimeStamp;
Qry.Parameters.ParamByName('d').Value := DT;

赞(0）回复(0）举报 12个月前

rggaifut2#

我在使用 Delphi 11.3从SQL Server 2019导入数据以保存另一个数据库时遇到了同样的困难。
我是这样解决问题的：
准备SQL：

ADOCommand.CommandText := 'insert into TABLE (CREATED_AT) VALUES (:CREATED_AT)';

循环（ADOTableSource）：

var FieldSource := ADOTableSource.FieldByName(FieldName);
var ParamTarget := ADOCommand.Parameters.ParamByName(FieldName);
if (FieldSource.DataType in [ftDateTime]) and (not FieldSource.IsNull) then
begin
  ParamTarget.DataType := ftString;
  ParamTarget.Value := FormatDateTime('yyyy-mm-dd hh:nn:ss.zzz', FieldSource.AsDateTime);
end
else 
  ParamTarget.Value := FieldSource.Value;
  
ADOCommand.Execute;

现在日期正确保存为2023-02-28 23:59:09.123，而不再是2023-02-28 23:59:09.000。

赞(0）回复(0）举报 12个月前

lmvvr0a83#

我在使用VFPOLEDB（Visual FoxPro驱动程序）时也遇到了同样的问题，但adDBTimeStamp的技巧不起作用。FWIW，这是VFPOLEDB 9.0.0.5815与 Delphi 7和RAD Studio 10（西雅图）。
在VFPOLEDB的情况下，还有另一种可能的解决方法，该方法基于以下事实：在Fox中，日期/时间值的底层表示（类型“T”）与OLEDB传递的日期值（类型“D”）相同，即一个64位双精度型，其中整数部分表示自0001年1月1日以来的天数，小数部分表示一天中的时间。
如果表字段的类型是'T'，并且OLEDB传递了一个日期，那么Fox什么也不做就强制该值。所以这里需要做的就是把小数部分加回去。
例如，start_time是日期/时间字段：

cmd.CommandText := 'insert into foo (start_time) values (:start_time)';
cmd.Parameters.ParamByName('start_time') := Now;
cmd.Execute;

这在表中给出了2016-05-22 00:00:00。
现在，像这样添加小数部分：

cmd.CommandText := 'insert into foo (start_time) values (:start_time + :fraction)';
t := Now;
cmd.Parameters.ParamByName('start_time') := t;
cmd.Parameters.ParamByName('fraction') := Frac(t);
cmd.Execute;

这就是2016-05-22 02:17:42。即使是小数秒也会被保留，尽管它们不会被显示。

赞(0）回复(0）举报 12个月前

我来回答

delphi 在ADO(ODBC)中使用datetime参数会丢失时间部分

3条答案

相关问题

热门标签

最新问答