Me topé con este problema ayer cuando estaba ocupado escribiendo algunas pruebas unitarias usando SQLLite. Mi entorno es Windows7 / Delphi XE.

Usar TADOQuery junto con un parámetro TDateTime da como resultado la pérdida de la parte de tiempo.

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;

o divertido es que cuando comento la líneaQry.Parameters.ParseSQL(Qry.SQL.Text, True); Funcionará bien. Necesito la parte ParseSQL porque estoy construyendo un mini-ORM, por lo que necesita saber qué parámetros deben asignarse. Algunas observaciones:

Hacer la misma prueba con MySQL5 muestra el mismo problema (independientemente de la parte ParseSQL). Este código funciona con SQL Server y el controlador OLEDB.

He buscado en la red y encontrado algunos enlaces interesantes:

http: //tracker.firebirdsql.org/browse/ODBC-2

http: //embarcadero.newsgroups.archived.at/public.delphi.database.ado/201107/1107112007.htm

http: //bugs.mysql.com/bug.php? id = 15681

El primer enlace sugiere 'arreglar' ADODB.pas, algo que no quiero hacer. Al leer el último enlace, parece que ADO asigna el valor de fecha y hora a la fecha.

Respuesta: No quiero escuchar: use otra biblioteca / componente (como Dbexpress, Zeoslib, ...)

No estoy seguro de cuál sería el enfoque más sensato para resolver este problema.

Como Linas y Marjan Venema sugirieron que puedo omitir la parte ParseSQL. Entonces el código funciona ahora con SQLlite SI omito la líneaQry.Parameters.ParamByName('d').DataType := ftDateTime;.

Pero MySQL se niega a guardar la parte del tiempo. ¿Veo un problema de compatibilidad entre ADO y MySQL ODBC aquí?