我们从 UniDAC 4.1 迁移到 5.0(简单地重建或使用新版本的应用程序)并在我们的数据泵例程中发现了巨大的退化。
运行 pgfouine 会捕获许多查询,例如:
SELECT current_database() AS DATATYPE_CATALOG,
n.nspname AS DATATYPE_SCHEMA,
t.typname AS DATATYPE_NAME,
t.oid AS DATATYPE_OID,
t.typlen AS DATATYPE_LENGTH,
CASE WHEN t.typtype = 'b' THEN 'base'
WHEN t.typtype = 'c' THEN 'composite'
WHEN t.typtype = 'd' THEN 'domain'
WHEN t.typtype = 'e' THEN 'enum'
WHEN t.typtype = 'p' THEN 'pseudo'
END::varchar(9) AS DATATYPE_TYPE,
t.typrelid AS TABLE_OID,
t.typbasetype AS DATATYPE_BASETYPE
FROM pg_type t
INNER JOIN pg_namespace n ON n.oid = t.typnamespace
WHERE t.oid = '' AND t.typtype = ''
ORDER BY n.nspname, t.typname;
对于 210,000 次数据插入,它执行超过 1,100,000 次。为什么会发生它以及如何在当前版本中避免它?
我们在插入循环之前执行一次 TUniQuery.Prepare 并在内部重新分配查询参数。在 UniDAC 4.1 上它工作正常。
UPD。搜索最小可复制应用程序/数据库我发现,如果我们在表中使用域数据类型,就会发生这种情况。
CREATE DOMAIN id_dom AS integer NOT NULL;
CREATE TABLE test_table (id id_dom);
最小应用:
program minProject;
{$APPTYPE CONSOLE}
uses
Messages, SysUtils, Variants,
DB, DBAccess, Uni, UniProvider, PostgreSQLUniProvider;
const text = 'insert into test_table (id) values (:id)';
var
qu:TUniQuery;
PostgreSQL: TPostgreSQLUniProvider;
UniConnection1: TUniConnection;
i: Integer;
ids: Variant;
begin
{ TODO -oUser -cConsole Main : Insert code here }
UniConnection1 := TUniConnection.Create(nil);
PostgreSQL := TPostgreSQLUniProvider.Create(UniConnection1);
UniConnection1.ProviderName := 'PostgreSQL';
UniConnection1.Username := '';
UniConnection1.Password := '';
UniConnection1.Server := '';
UniConnection1.Database := 'test';
UniConnection1.SpecificOptions.Values['ProtocolVersion'] := 'pv30';
ids := VarArrayOf([41750, 41751, 41752]);
qu := TUniQuery.Create(UniConnection1);
qu.Connection := UniConnection1;
qu.SQL.Text := text;
qu.Prepare;
for I := 0 to 2 do
begin
qu.ParamByName('id').AsInteger := ids[i];
qu.Execute;
end;
qu.Close();
end.
如果使用通常的数据类型,一切都可以。
UPD2:
来自 DevArt 的回答:
感谢您的信息。我们已经重现了该问题并正在对其进行调查。一旦我们有任何结果,我们会立即通知您。