Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

Gönderen Konu: Tüm Datasetleri Tek Kodla Commit Edin  (Okunma sayısı 2285 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Tüm Datasetleri Tek Kodla Commit Edin
« : 06 Ocak 2006 14:47:05 »
Kod: [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;
örnek ekte.
« Son Düzenleme: 06 Ocak 2006 14:52:03 by Fatih »
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.