Hallo & Guten Morgen vb-paradise Gemeinde!

Ich bin auf der suche nach einer Funktion.
Der Aufbau meines Datasets beginnt mit folgenden Spalten...
ID Prüfdatum Lackierdatum Personalnummer

Wenn Prüfdatum älter als 4Wochen, dann lösche Zeile usw.
Wie sieht der Code hierfür aus?

danke im voraus.
gruß

Okay, dankeschön!

Die Variable müsste jetzt noch automatisch angepasst werden.



eine idee?

msdn.microsoft.com/de-de/libra…tem.datetime.adddays.aspx

lg

böse Funktionen
Die DateTime-Klasse ist doch gut - wieso olle VB6-Kamellen verwenden?

s. post#4

Also bei folgendem Code unterstreicht er mir alles nach dem "=" blau

[VB.NET] Lösche Zeile aus Dataset wenn älter als..

lg

a.setzer schrieb:

Also bei folgendem Code unterstreicht er mir alles nach dem "=" blau

VB.NET-Quellcode

1. Dim Datum_4weeks_ago As New Date = (DateIntervall.Day, -31, Today())

Du hast nach dem "=" vergessen, das DateAdd davorzusetzen. Der Hinweis vom ErfinderDesRades ist auch gut: Ich habe hier eine alte Methode verwandt, weil ich noch nicht alles in VB kenne. Hab grad mal im msdn nachgesehen:
hier


Werde meine Datumsfunktionen entsprechend auch ändern. Viel Erfolg

Irgendwie hab ich das Gefühl, dass ich unsichtbar bin...

lg

fichz schrieb:

Irgendwie hab ich das Gefühl, dass ich unsichtbar bin...

lg

Spricht da wer?

Nein, um das mal klar zu stellen: ich bin dir im Prinzip mit der veralteten Methode in die Parade gefahren. Sorry.

Geht vielleicht noch einfacher:



Das sind jedoch nicht 4 Wochen, sonder 31 Tage. Für 4 Wochen würde gelten:



Und wenn ein Monat gemeint ist, schreibst Du

@fichz: Mach dir nichts draus.

Im gleißenden Licht einer CopyPaste-"Hilfe" verblasst Hilfe zur Selbsthilfe halt zur Unsichtbarkeit.

Leider löscht er die Zeile nicht
Aber im Debug modus läuft er alles richtig ab...

Kanner auch nicht. Du löschst die Zeile im DataSet und speicherst die Änderungen nicht zurück in die DB. Stattdessen füllst du das DataSet danach mit den Werten aus der DB wieder auf, stellst also die gelöschten Zeilen wieder her.

BTW: Was bitteschön ist: GoTo Ende? Meinste ein continue? Oder Exit For?

Ja, richti Exit For hab ich verbessert, dankeschön!

Dein FehlerFundPrinzip habe ich verstanden und klingt logisch
wie lautet der befehl zum zurückspeichern?


Edit:

Würd ich auch mit Update machen

Die Logik des Exit For ist mir nicht klar: wenn die erste Zeile gefunden wird, die rausgeschmissen werden kann, dann soll die Schleife verlassen werden? Also alle anderen eventuell veralteten Zeilen bleiben drin? Wenn das so gewollt ist, ok. Aber falls du dich wunderst, warum die Routine immer nur eine Zeile killt, anstatt alle, dann liegt das am Exit For.

Nein!


Wenn Prüfdatum älter als DatumbevoreinemMonat, dann...
-> Wenn JA löscht er die Zeile und springt ja schon zum next (sprich überspringt den Else befehl.
usw..

Bis Else

Okaaaay,

die Logik in der Routine ist aber:

Gehe jede Zeile der Tabelle durch
Wenn Zeile älter als 4 Wochen
Schmeiß sie raus
wenn nicht, verlasse die ganze For Each Schleife

Jetzt nehmen wir mal an:
1. Zeile ist jünger als 4 Wochen: Er springt aus der Prüfung raus und die anderen Zeilen checkt er net.
oder
1. Zeile ist älter -> wird gekillt; 2. Zeile ist jünger -> springt wieder aus der Prüfung raus.

Wenn du alle Elemente durchgehen willst:

Reicht völlig, den Else-Zweig brauchst du gar nicht. Er geht jede Zeile durch
wenn sie zu alt ist, wird sie rausgeschmissen,
wenn nicht, nimmt er sich die nächste Zeile vor.

Wenn du partout einen Else-Zweig haben willst, dann wäre hier nicht Exit For (verlässt die Schleife) angesagt, sondern Continue (nimmt sich das nächste Element vor)

Oder?

Sollte ich dazu sagen, das die älteren alle am Anfang des Datasets stehen?