Datenbankeintragänderung mit schleife

[Natcree]

Hallo Ich möchte über den unteren Code den angezeigten Text in dbcombobox3 und 4 sowie dbedit 16 ändern. das Ganz läuft über eine repeat Schleife. Nunmehr dbedit16.text und DBCombobox4.text ändert er. Den Text in der DBCombobox3 ändert er nicht.

In der DBcombobox3 habe ich 2 Items item1 heisst bezahlt item2 offen.

Delphi-Quellcode:

procedure TForm1.AlleBeitrageaufoffensetzen1Click(Sender: TObject);
begin
Clientdataset1.First;
repeat
Clientdataset1.edit;
dbcombobox3.Text:='offen';
DBcombobox4.text:='';
DBEdit16.text:='';
Clientdataset1.Post;
Clientdataset1.Next;
until Clientdataset1.Eof;
if  Clientdataset1.eof=true then showmessage('Alle Daten Aktualisiert');
end;

Woran kann es liegen ??? ich weiss nicht mehr weiter

[baumina]

Normalerweise macht man Schleifen über eine Datenbank mit while, weil bei repeat die EOF-Abfrage für den ersten Datensatz (himitsu) nicht stimmt.

Delphi-Quellcode:

aDB.First;
while not aDB.EOF do
begin
  aDB.Next;
end;

Dann ändert man Datenbank-Daten eigentlich nicht in den Anzeige-Komponenten, sondern auf der Datenbank selber.

Delphi-Quellcode:

aDB.Edit;
aDB.FieldByName('FeldName').AsString := 'neuer Text';
aDB.FieldByName('Feldname').AsInteger := 1;
aDB.Post;

[Natcree]

Danke das wars es

[himitsu]

Zitat von baumina:

Normalerweise macht man Schleifen über eine Datenbank mit while, weil bei repeat die EOF-Abfrage nicht stimmt.

Das EoF stimmt schon, aber beim First wird es nicht ausgewertet, was Probleme macht, wenn es keine Datensätze gibt. (also entweder While oder ein extra IF, für's First)