Hallo,
habe eine Tabelle in
Access ID,Preis,DEU.
Nun wollte ich wenn in DEU kein Eintrag ist den aktuellen Datensatz löschen.
Aber denne kommt nach der Ausführung eine Fehlermeldung:
Der Vorgang ist in diesen Zusammenhang nicht zugelassen.
(ich bin kein Profi)
Was läuft da falsch?
Hier mal der Code:
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
var
i : integer;
begin
while not ADODataSet1. Eof do
begin
ADODataSet1.Edit;
if ADODataSet1.FieldByName('DEU').AsString = ''
then
ADODataSet1.DeleteRecords;
ADODataSet1.Next;
Application.ProcessMessages;
with ProgressBar1 do
begin
Min := 0;
Max := ADODataSet1.RecordCount;
for i := Min to Max do
Position := i;
ADODataSet1.Next;
end;
end;
end;