[quote="Real-TTX"]Wie schon im Titel, sieht man die Fehlermeldung die bei mir erscheint nachdem 700+ Mal (in einer Schleife) meine Menge im Editiert Modus war... :(
Delphi-Quellcode:
[...] // Inhalt neu Laden der Serien (AutoWert - Rep. ID)
// ...
adoQuerySeasons := DataBase.SQLExecSelect('SELECT * FROM Seasons'); // steht auf erstem Datensatz
adoQuerySeasons.Edit; // erster Datensatz Seasons im Edit-Mode
x := 1;
while adoQuerySeries.Eof = false do // IN DIESER SCHLEIFE TRITT DER FEHLER AUF <----------
begin
arrLinks := obj.getSeasons(adoQuerySeries['Link']);
for i := 0 to Length(arrLinks) - 1 do
begin
adoQuerySeasons.Append;
adoQuerySeasons['Link'] := arrLinks[i, 0];
adoQuerySeasons['Name'] := arrLinks[i, 1];
adoQuerySeasons['SerieID'] := adoQuerySeries['SerieID'];
end;
Memo1.Lines.Add(IntToStr(x) + ' - ' + adoQuerySeries['Name']);
Application.ProcessMessages;
inc(x);
adoQuerySeasons.Post; // Datensatz Seasons wird gespeichert
adoQuerySeries.Next; // zweiter Datensatz Series
end;
//[...]
end;
Es fehlt ein adoQuerySeasons.Edit; am Anfang der while-Schleife. Das Statement muss
IMHO als erstes in die While-Schleife