Thema: Delphi Datenbank updaten

Einzelnen Beitrag anzeigen

Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.027 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#2

Re: Datenbank updaten

  Alt 7. Apr 2005, 14:52
Du kannst es auch folgendermaßen machen:
Delphi-Quellcode:
begin
  ZReadOnlyQuery.Open; {Temp-Tabelle}
  ZQuery.Open; {Main-Tabelle}
  while not ZReadOnlyQuery.Eof do
  begin
    if ZQuery.Locate('ID', ZReadOnlyQuery.FieldValues['ID'] , []) then
      ZQuery.Edit
    else
    begin
      ZQuery.Append;
      ZQuery.FieldValues['ID'] := ZReadOnlyQuery.FieldValues['ID'];
    end;
    { andere Felder kopieren }
    ZQuery.Post;
    ZReadOnlyQuery.Next;
  end;
  ZReadOnlyQuery.Close;
  ZQuery.Close;
end;
Ist jetzt eine Frage der Datenmenge und Laufzeit.
Was machst du denn mit Datensätzen, die in deiner Temp-Tabelle gelöscht werden? (oder geht das nicht?)
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat