vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

VB.NET - Ein- und Umsteiger
Re: Schleife nach sql abfrage funktioniert nicht richtg 
Autor: Mctotti
Datum: 24.08.20 09:56

Hallo, das mit dem "Parse" war nur ein versuch von vielen....
Hier der Code wo StartTagflpNummer her kommt.
Aber ich glaube das es an der schleife liegt, die schleife soll aus der Datenbank(Access) mit dem Namen "Organizer" aus der Tabelle "Termine" und Spalte "t_datum" alle Termine anzeigen welche zwischen den beiden Datums liegen. Der SQL Befehl zeigt mir auch an start und enddatum an. Das scheint zu funktionieren.
Aber irgendwie steh ich auf dem Schlauch wegen der Schleife, ich weiss nicht wie ich in der schleife das Datum aus der DB mit den beiden Datums aus dem SQL-Befehl abfragen kann. Gibt es da vielleicht eine bessere Lösung als mit einer For Each Schleife zu arbeiten?

   '###########################################################################
   ' ##########################################################################
   ' ###############
    'Hier werden die Labels ( Die Monatstage ) in die Tage gesetzt, soviele 
    ' Labels( flpTagesLabelliste ) der Monat hat
    ' und Zahlen (vom ersten Tag im Monat (also 1 ) bis ende des Monats ( 
    ' soviel wie der Monat Tage hat )
    '##########################################################################
    ' #########################################################################
    ' #################
 
    Private Sub TagesLabelflp(ByVal StartTagflpNummer As Integer, ByVal _
      KompletteTageDesMonats As Integer)
 
        For Each flp As FlowLayoutPanel In flpTageslabelliste
            flp.Controls.Clear()
            flp.Tag = 0
            flp.BackColor = Color.White
        Next
 
        For i As Integer = 1 To KompletteTageDesMonats
            Dim lbl As New Label
            lbl.Name = $"lblDay{i}"
            lbl.AutoSize = False
            lbl.TextAlign = ContentAlignment.MiddleRight
            lbl.Size = New Size(150, 25)
            lbl.Text = i
            lbl.Font = New Font("Microsoft Sans Serif", 12, FontStyle.Bold)
            lbl.ForeColor = Color.DarkOrchid
            flpTageslabelliste((i - 1) + StartTagflpNummer - 1).Controls.Add( _
              lbl)
 
        Next
    End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Schleife nach sql abfrage funktioniert nicht richtg585Mctotti23.08.20 18:38
Re: Schleife nach sql abfrage funktioniert nicht richtg311Manfred X24.08.20 08:26
Re: Schleife nach sql abfrage funktioniert nicht richtg304Mctotti24.08.20 09:56
Re: Schleife nach sql abfrage funktioniert nicht richtg295Manfred X24.08.20 18:18
Re: Schleife nach sql abfrage funktioniert nicht richtg306Mctotti24.08.20 20:03
Re: Schleife nach sql abfrage funktioniert nicht richtg287Mctotti25.08.20 06:55
Re: Schleife nach sql abfrage funktioniert nicht richtg276Mctotti25.08.20 10:24
Re: Schleife nach sql abfrage funktioniert nicht richtg309effeff25.08.20 12:09
Re: Schleife nach sql abfrage funktioniert nicht richtg275Mctotti26.08.20 07:52

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-2024 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