Wenn ich die 3 Edits rausnehme. Kommt eine Fehlermeldung : "Datensatz ist nicht im Einfüge oder Editier Modus..." Mein Aktueller Code :
Delphi-Quellcode:
// Leeres Dataset auslesen (Serien)
adoQuerySeries := DataBase.SQLExecSelect('SELECT * FROM Series');
// Serien abfragen
arrLinks := obj.getSeriesAll;
// Dataset (Serien) befüllen
for i := 0 to Length(arrLinks) - 1 do
begin
adoQuerySeries.Edit;
adoQuerySeries.Append;
adoQuerySeries['Link'] := arrLinks[i, 0];
adoQuerySeries['Name'] := arrLinks[i, 1];
adoQuerySeries.Post;
end;
// Inhalt neu laden (Serien) für den AutoWert
adoQuerySeries := DataBase.SQLExecSelect('SELECT * FROM Series');
// Leeres Dataset auslesen (Staffeln)
adoQuerySeasons := DataBase.SQLExecSelect('SELECT * FROM Seasons');
// Dataset (Staffeln) befüllen
while adoQuerySeries.Eof = false do
begin
arrLinks := obj.getSeasons(adoQuerySeries['Link']);
for i := 0 to Length(arrLinks) - 1 do
begin
adoQuerySeasons.Edit;
adoQuerySeasons.Append;
adoQuerySeasons['Link'] := arrLinks[i, 0];
adoQuerySeasons['Name'] := arrLinks[i, 1];
adoQuerySeasons['SerieID'] := adoQuerySeries['SerieID'];
adoQuerySeasons.Post;
end;
adoQuerySeries.Next;
end;
// Inhalt neu laden (Staffeln) für den AutoWert
adoQuerySeasons := DataBase.SQLExecSelect('SELECT * FROM Seasons');
// Leeres Dataset auslesen (Folgen)
adoQueryEpisodes := DataBase.SQLExecSelect('SELECT * FROM Episodes');
// Dataset (Episoden) befüllen
while adoQuerySeasons.Eof = false do // <--- HIER TRITT DER FEHLER AUF in dieser WHILE... Wo genau kann ich nicht feststellen :O
begin
arrLinks := obj.getEpisodes(adoQuerySeasons['Link']);
for i := 0 to Length(arrLinks) - 1 do
begin
adoQueryEpisodes.Edit;
adoQueryEpisodes.Append;
adoQueryEpisodes['Link'] := arrLinks[i, 1];
adoQueryEpisodes['Name'] := arrLinks[i, 0];
adoQueryEpisodes['SerieID'] := adoQuerySeasons['SerieID'];
adoQueryEpisodes['SeasonID'] := adoQuerySeasons['SeasonID'];
adoQueryEpisodes.Post;
end;
adoQuerySeasons.Next;
end;
Danke.. Ich bin wirklich sehr ratlos
Und komme irgendwie nicht weiter... :/