gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-03 14:52:45 28 4
gpt4 key购买 nike

昨天,当我忙于使用 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 部分,因为我正在构建一个迷你 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 部分。因此,如果我省略了行 Qry.Parameters.ParamByName('d').DataType := ftDateTime;,则代码现在可以在 SQLlite 上运行。

但是MySQL拒绝保存时间部分。我在这里看到 ADO 和 MySQL ODBC 之间的兼容性问题吗?

最佳答案

我已经使用 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;

关于delphi - 在 ADO (ODBC) 中使用日期时间参数会丢失时间部分,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8678746/

28 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com