vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Visual-Basic Einsteiger
Re: nachfrage sql 
Autor: Schorsch666999
Datum: 21.03.02 15:17

hi matthias !

schau mal wie ich die sache gelöst habe...
vielleicht noch zu umständlich aber es funzt...

Uhrzeit = Time
Kalender = Date
Datumstauch = Kalender
TagundMonat = (Left$(Datumstauch, 5))
Monat = (Right$(TagundMonat, 2))
Jahr = (Right$(Datumstauch, 2))
Tage = (Left$(Datumstauch, 2))
Datumgetauscht = Monat & "/" & Tage & "/" & Jahr
Set conVerbindung = New ADODB.Connection
If (Right$(App.Path, 1)) = "\" Then
conVerbindung.Open "Provider=Microsoft.Jet.OLEDB.4.0;DATA Source =" & App.Path & App.EXEName & ".mdb", "Admin", ""
Else
conVerbindung.Open "Provider=Microsoft.Jet.OLEDB.4.0;DATA Source = " & App.Path & "\" & App.EXEName & ".mdb", "Admin", ""
End If
Set rstRückstTermine = New ADODB.Recordset
rstRückstTermine.Open "select * from Termine where((Datum < #" & Datumgetauscht & "#)and (Erledigt = 'Nein')) or ((Datum = #" & Datumgetauscht & "#)and (Uhrzeit < #" & Uhrzeit & "#)and (Erledigt = 'Nein')) ", conVerbindung, adOpenKeyset, adLockPessimistic

gruß

schorsch
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
nachfrage sql49Matthias21.03.02 10:07
Re: nachfrage sql29Schorsch66699921.03.02 15:17

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