将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;.
解决方法
如果将参数类型指定为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;