ADO Daten in gleicher Tabelle kopieren

[Smiley]

Ich habe es jetzt so gelöst, das läuft überall, denk ich mal.

Delphi-Quellcode:

  DM.QKat.SQL.text := 'Select * from Kataloge order by id';
  DM.QKat.Open;
  DM.QKat.Last;

  LBestellNr := InputBox('Bitte neue Bestellnummer eingeben', 'Bestellnummer:', '');

  if LBestellNr <> '' then
    begin
      DM.QKat.Edit;
      DM.QKat.FieldByName('BestellNr').AsString:=LBestellNr;
      AktBestNr := LBestellNr;
      DM.QKat.Post;
    end
  else
    begin
      DM.QKat.Delete;
    end;

  DM.QKat.SQL.text := 'Select * from Kataloge order by BestellNr';
  DM.QKat.Open;
  DM.QKat.Locate('BestellNr', AktBestNr, []);

So funktioniert es bisher bei mir, falls jemand etwas dagegen anzumerken hat, nur zu !!