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

将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,10,59,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部分,因为我正在构建一个迷你ORM,因此它需要知道必须映射哪些参数.
一些观察：

>使用MySQL5进行相同的测试显示了同样的问题(无论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将日期时间值映射到日期.

答案我不想听：使用另一个库/组件(如Dbexpress,Zeoslib,……)

我不确定解决这个问题最合理的方法是什么.

Linas和Marjan Venema建议我可以省略ParseSQL部分.
因此代码现在可以使用SQLlite IF省略行Qry.Parameters.ParamByName(‘d’).DataType：= ftDateTime;.

但MySQL拒绝节省时间部分.
我在这里看到ADO和MySQL ODBC之间的兼容性问题了吗？