Nun, eigentlich ist es ganz einfach: wenn Du nach "dataServer.Kategorien" einfügen willst, darfst Du nicht nach "dataDaten.Kategorien" die Daten reinschreiben (zumindest beim zweiten Durchlauf wird die Fehlermeldung kommen):
Zitat von
kluckweb:
Delphi-Quellcode:
dataDaten.Kategorien.First;
dataDaten.Kategorien.Edit;
dataServer.Kategorien.Edit;
with dataDaten.Kategorien do
while not eof do
begin
dataServer.Kategorien.Append;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^ hier wird ein Datensatz (an)eingefügt
dataDaten.Kategorien.FieldByName('kategorie').asString := blablabla;
^^^^^^^^^^^^^^^^^^^^ in diese Datenmenge, die schreibgeschützt ist,
werden Daten reingebrutzelt, das geht nicht
dataDaten.Kategorien.FieldByName('kurzbeschreibung').AsString := blablabla;
dataDaten.Kategorien.next;
^^^^^^^^^^^^^^^^^^^^^^^^^ zieht ein Post nach sich -->> (spätestens) BÄNG
end;