El uso de un parámetro de fecha y hora con ADO (ODBC) pierde parte del tiempo
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:
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í?