Wie aktualisiere ich meine interbase DB?

[mojo777]

Hallo,
wie schaffe ich es meine im programm geladene datenbank am schnellsten zu aktualisieren?
Es sollen Änderungen übernommen werden, die evtl von anderen Computern im netzwerk erfolgt sind.
Also bisher habe ich jede table (oder halt auch TIBQuery) active:=false und active.=True gesetzt.
ist aber ganz schon rechenintensiv. gibts da etwas schnelleres?

vielen dank.

mojo

[Hansa]

Es kommt darauf an, was zwischen active := false; und active := true; passiert. Steht da, daß alle Datensätze mit allen Feldern gelesen werden sollen, dann kann das schon dauern.

[mojo777]

ja... aber ich will nicht dass es dauert... :-(
naja.. ich such mal nach einer möglichkeit.. wenn iche ine elgante finde, poste ich sie hier rein

[Hansa]

Haallooo. :hi: Das war ein Wink, daß du angeben mußt, was dazwischen steht. Denn sonst kann dir keiner helfen. Bei mir steht manchmal sehr viel dazwischen und es dauert nicht.

[mojo777]

aso. also da sind ein paar calcFelder. die legen im grunde alles lahm.
ist auch noch eine ibTable komponente. kann es nicht (will eher gesagt nich) mit ibquery oder so ersetzen, da ich mich zu sehr in den programmcode anderer einarbeiten muss.. :-(

[Hansa]

Ist das mal wieder ein BND-Programm ? 8) :mrgreen: Oder warum zeigst du nicht einen Teil des Codes ?

[mojo777]

ach quatsch... :-) es ist halt nur allgemein gemeint.
hier bissle code aus einer Kundentabelle.

Delphi-Quellcode:

procedure TdmData.ibtKundenCalcFields(DataSet: TDataSet);
var
  ASameYearDate:TDateTime;
  AJetzt:TDateTime;
begin
  ASameYearDate:=RecodeYear(ibtKundenKND_GEBOREN.AsDateTime, CurrentYear);
  AJetzt:=Date;
  if DaysBetween(ASameYearDate, AJetzt) <= GEB_TAG_DELTA then
  begin
    if ASameYearDate >= AJetzt then
      ibtKundenGEBURTSTAG.AsInteger:=1
    else if ASameYearDate < AJetzt then
      ibtKundenGEBURTSTAG.AsInteger:=0;
  end
  else
    ibtKundenGEBURTSTAG.AsInteger:=-1;

  if ibtKundenFLM_SUMME.AsInteger > 0 then
    ibtKundenGENOMMEN.AsBoolean:=True
  else
    ibtKundenGENOMMEN.AsBoolean:=False;
end;