存储过程仅在某些时候正确运行

Question

我的问题是：我有一个存储过程，有时运行正确，有时根本运行不正确，有时部分不正确（某些行插入 table 机器人不是全部）。我在 Win10 64 位和 TODBCConnection 上使用 lazarus 2.0.6 连接到 SQL Server 2012。

存储过程本身是正确的，在 SQL Server Management Studio 中，它运行没有问题。存储过程将记录写入4个不同的table；根据参数，每个 table.

大约有 1-400 条记录

代码：

con:TODBCConnection;
tra:TSQLTransaction;
qry:TSQLQuery;

con:=TODBCConnection.Create(nil);
tra:=TSQLTransaction.Create(nil);
qry:=TSQLQuery.Create(nil);

tra.DataBase:=con;
qry.DataBase:=con;
qry.Transaction:=tra;

con.Params.Clear;
con.Params.Add('DRIVER=SQL Server');
con.Params.Add('SERVER=xxxxx');
con.Params.Add('DATABASE='+DATENBANK_NAME);
con.Params.Add('Trusted_Connection=Yes');
con.Params.Add('AUTOCOMMIT=1');
con.Open; 

// call the procedure
sql:='EXEC dm.createStorage2 @St_Geraet='Q', @St_Bezeichnung='Q-Freezer -80', @St_Temperatur=-80, @St_Raum='Keller', @St_Gebaeude='ABC', 
@St_AnzFaecher=2, @St_AnzTuermeProFach=5, @St_MoeglicheSchubladenkombinationenProTurm='4,3', @St_MoeglicheBoxenkombinationenProSchublade='3,4', 
@St_MoeglicheBoxKapazitaeten='16,25,100', @schubladenProTurm=4, @boxenProSchublade=3, @boxkapazitaet=16;';

qry.SQL.Text:=sql;
qry.ExecSQL;

// alternatively, this will also not work:
// con.ExecuteDirect(sql);

con.Close();
qry.Free;
tra.Free;
con.Free;

如果我在 qry.ExecSQL; 处设置断点并越过它 - 它有效吗？！

好像没有等qry.ExecSQL;完成，直接释放资源。我该怎么做才能告诉代码等到 qry.ExecSQL; 完成？

编辑：问题似乎是 qry.ExecSQL; 运行是异步的，而不是应该是同步的。我如何告诉这个调用运行是同步的？

提前致谢。

Answer 1

弄明白了：这是 sqldb.pas 中的一个错误，结合 odbc 他无法检测存储过程何时完成。所以程序立即执行下一个命令，在我的例子中是释放数据库实例 - 结果是 sql 命令被中止。现在使用 "zeos" 库 (https://zeoslib.sourceforge.io)，它就像一个魅力。

uses
Classes, SysUtils, ZConnection, ZDataset;

...

con:=TZConnection.Create(nil);
qry:=TZQuery.Create(nil);

qry.Connection:=con;

con.Protocol:='ado';
con.Database:='DRIVER=SQL Server;Trusted_Connection=Yes;SERVER=xxxx;DATABASE='+DATENBANK_NAME;
con.Connected:=true;

其余与旧代码相同，有一处例外： con.close(); 变为 con.connected:=false;

存储过程仅在某些时候正确运行

Stored procedure runs correctly only sometimes

sql

stored-procedures

lazarus

sql-server-2012