Hallo,
ich weiss icht, warum immer diese furchtbaren Beispiele in Netz rumlungern.
Delphi-Quellcode:
procedure TForm1.commit;
begin
if IBTransaction1.InTransaction then
begin
IBTransaction1.Commit;
IBTransaction1.StartTransaction;
end;
IBTable1.Open;
end;
Warum ist ständig eine Transaktion offen ?
OK, wegen dem DBGrid
Das ist schlecht, gerade unter Firebird (MGA, aber lassen wird das).
Ich würde hier erst mal versuchen,
wegen dem DBGrid auf entweder 2 Transaktionen
T1: readonly, wenn es das bei IBX schon gibt, für alles, was am DBGrid hängt
T2: für Updates
oder TClientDataSet für das DBGrid (also lokaler Cache)
Nach jedem Update wird es wieder neu gefüllt.
Ich persönlich bin ein Feind des DBGrid
Ich lade die Daten in ein normales TStringGrid (eigene TList).
Heiko