title image


Smiley Massenlöschen in Datenbank
Hallo Delphianer,



kann mir jemand helfen ?



Warum läßt die folgende Routine immer einen Datensatz stehen ?



// Anzahl der zu löschenden Tage ermitteln

FromDate := StrToDate(FormatDateTime('dd.mm.yyyy',DateTimePicker1.Date));

ToDate := StrToDate(FormatDateTime('dd.mm.yyyy',DateTimePicker2.Date));

KillDays := Trunc(ToDate-FromDate);



// ProgressBar zurücksetzen

ProgressBar1.Position := 0;



// Daten Suchen und löschen

With Table1 do

Begin

Try

DisableControls;

Table1.Filter := 'IntRufnummer = '+IntToStr(DBLookUpComboBox1.KeyValue);

First;

while not Eof do

Begin

//Variable "KD" initialisieren

KD := 0;

// Variable "KillNextDate" auf das Anfangsdatum setzen

KillNextDate := FromDate;

while KD <= KillDays do

Begin

if (FormatDateTime('dd.mm.yyyy',Table1Datum.Value) =

FormatDateTime('dd.mm.yyyy',KillNextDate)) then

Begin

Delete;

Application.ProcessMessages;

end

else inc(KD);



KillNextDate := KillNextDate+1; // nächster Tag

end;

Next;

end;

finally

EnableControls;

Application.ProcessMessages;

end;

end;



Danke im vorraus



Mario

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: