sql - 提交与提交保留

Question

我制作了一个 Delphi 应用程序，它将一行插入到 Firebird 数据库中。查询存在问题，通过 CommitRetaining 解决了这个问题，但我读到它不是正确的使用方式，因为它可能会影响服务器速度变慢。当我仅使用 Commit 时，会发生奇怪的事情，查询运行正常，但是当我想查看该行是否已插入时，Retainingit 却没有。它仅在应用程序终止时插入。但是当使用 CommitRetaining 时，该行会立即插入。

什么可能导致这个问题？编辑:使用 CommitRetaining 的代码

             adqPom := TADQuery.Create(nil);
             adqPom.Connection := form1.ADOConnection1;
             adTransakcija := TADTransaction.Create(nil);
             adTransakcija.Connection:=form1.ADOConnection1;
             adqPom.Transaction:=adTransakcija;
             adTransakcija.StartTransaction;
             try
               with adqPom do
               begin
                 close;
                 sql.Clear;
                 sql.Add('insert into uplate(sifra,b_prijema,magacin,datum,iznos,b_uplate,b_izvoda,banka,godina,tr_rac,datum_dokument)');
                 sql.Add('values(:S,:BP,:M,:D,:I,:BU,:BI,:B,:G,:TR,:DD)');
                 ParamByName('S').Value := strtoint(edit1.Text);
                 if Form15.adoqDostavn.FieldValues['A1'] = 3 then
                     edit3.Text := '99999';
                 ParamByName('BP').Value := edit3.Text;
                 ParamByName('M').Value := edit2.Text;
                 ParamByName('D').Value := strtodate(edit4.Text);
                 ParamByName('I').Value := StrToFloat(edit5.Text);
                 ParamByName('BU').Value := Br_Uplate+1;
                 ParamByName('BI').Value := strtoint(Edit6.Text);
                 ParamByName('B').Value := Edit8.Text;
                 ParamByName('G').Value := 2006;
                 if Form15.adoqDostavn.FieldValues['A1'] = 3 then
                   ParamByName('TR').Value:= form15.adoqDostavn.FieldValues['B_PRIJEMA']
                 else
                   ParamByName('TR').Value:= Form15.adoqDostavn.FieldValues['B_DOST'];
                 ParamByName('DD').Value:=StrToDate(edit9.Text);
                 ExecSQL;
               end;
               adTransakcija.CommitRetaining;
             except
               adTransakcija.RollbackRetaining;
               raise;
             end;
             FreeAndNil(adTransakcija);
             FreeAndNil(adqPom);

编辑:使用提交的代码(实际上查询的属性设置为自动提交)

               adqPom := TADQuery.Create(nil);
               adqPom.Connection := form1.ADOConnection1;
               with adqPom do
               begin
                 close;
                 sql.Clear;
                 sql.Add('insert into uplate(sifra,b_prijema,magacin,datum,iznos,b_uplate,b_izvoda,banka,godina,tr_rac,datum_dokument)');
                 sql.Add('values(:S,:BP,:M,:D,:I,:BU,:BI,:B,:G,:TR,:DD)');
                 ParamByName('S').Value := strtoint(edit1.Text);
                 if Form15.adoqDostavn.FieldValues['A1'] = 3 then
                     edit3.Text := '99999';
                 ParamByName('BP').Value := edit3.Text;
                 ParamByName('M').Value := edit2.Text;
                 ParamByName('D').Value := strtodate(edit4.Text);
                 ParamByName('I').Value := StrToFloat(edit5.Text);
                 ParamByName('BU').Value := Br_Uplate+1;
                 ParamByName('BI').Value := strtoint(Edit6.Text);
                 ParamByName('B').Value := Edit8.Text;
                 ParamByName('G').Value := 2006;
                 if Form15.adoqDostavn.FieldValues['A1'] = 3 then
                   ParamByName('TR').Value:= form15.adoqDostavn.FieldValues['B_PRIJEMA']
                 else
                   ParamByName('TR').Value:= Form15.adoqDostavn.FieldValues['B_DOST'];
                 ParamByName('DD').Value:=StrToDate(edit9.Text);
                 ExecSQL;
               end;
               FreeAndNil(adqPom); 

Answer 1

Commit释放事务环境，CommitRetaining是不释放事务环境的Commit(游标仍然打开)。您可以在进程中使用 CommitRetaining，但最后必须使用 Commit 来释放内存。

通常CommitRetainning用于优化一个流程(包含大量Begin/Commit)，但是在这个流程结束时必须使用Commit来清理内存。