Tüm Datasetleri Tek Kodla Commit Edin

[Fatih!]

Kod: Tümünü seç

procedure TForm1.IBQuery1AfterPost(DataSet: TDataSet);
begin
if (DataSet is TIBQuery) then
Begin
TIBQuery(DataSet).ApplyUpdates();
TIBQuery(DataSet).Transaction.CommitRetaining;
End
else
if (DataSet is TIBTable) then
TIBTable(DataSet).Transaction.CommitRetaining
else
if (DataSet is TIBDataSet) then
TIBDataSet(DataSet).Transaction.CommitRetaining;
end;

[rsimsek]

Hocam eline sağlık ayrıca DataSet.UpdatesPending ve DataSet.Transaction.InTransaction i ekleyip biraz daha güzelleşebilir belki

[Fatih!]

Merhaba,
Bana o kodları eklemek biraz gereksiz gibi geldi. AfterPost gibi bir olayın gerçekleşmesi bu iki özelliğin true sonuç döndermesi anlamına da geliyor zannımca. Tabbi ki kodu başka yerlerde kullanmak istersek bahsettiğin kontroller faydalı olacaktır.

Acaba yanlış mı düşünüyorum