vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2022
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Geburstage 
Autor: ERBRU
Datum: 26.01.22 18:26

ich versuche mit der Abfrage eine Liste nach aktuellen Geburstagen in der aktuellen Woche passt noch nicht

wer kann da helfen ?


   Private Sub Anzahl_Ereignisse()
        Dim von_Datum = Today.AddDays(7)
 
        If Me.ListenDB.Geburtstagsliste.Rows.Count = 0 Then Return
        ' Abfrage
        Dim AbfrageG As System.Data.EnumerableRowCollection(Of _
          GeburtstagslisteRow)
        AbfrageG = From Reihe In Me.ListenDB.Geburtstagsliste
                   Where Reihe.RowState <> DataRowState.Deleted AndAlso _
                     Reihe.IsGeburtstagNull = False AndAlso _
                   Reihe.Geburtstag = von_Datum _
     Select Reihe
        Dim anzahlDatensaetze As Integer = AbfrageG.Count
        If anzahlDatensaetze <> 1 Then
            MessageBox.Show(String.Concat(anzahlDatensaetze.ToString & "" & _
              "Aktuelle Geburstage"))
 
        Else
            MessageBox.Show(String.Concat(anzahlDatensaetze.ToString & "" & _
              "Aktueller Geburstag"))
 
        End If
    End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Geburstage403ERBRU26.01.22 18:26
Re: Geburstage120HenryV27.01.22 08:44
Re: Geburstage118ERBRU27.01.22 12:45
Re: Geburstage99HenryV28.01.22 15:42
Re: Geburstage95ERBRU28.01.22 17:52
Re: Geburstage92HenryV31.01.22 12:44
Re: Geburstage87ERBRU31.01.22 14:42
Re: Geburstage90Manfred X31.01.22 16:23
Re: Geburstage88ERBRU31.01.22 16:28
Re: Geburstage83effeff31.01.22 18:41
Re: Geburstage77ERBRU01.02.22 11:26
Re: Geburstage72effeff01.02.22 14:26

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2022 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel