Office: (Office 2000) Beim Öffnen der DB eine Tabelle aktualisieren

Mir ist aufgefallen, wenn die Daten von einem SQL-Server geholt und Datumfelder mit einer Zahl gefiltert werden, dann werden falsche Ergebnisse geliefert .....

z. B. ergibt im VBA-Direktbereich

? date-3 , cdbl(date-3)
29.01.2008 39476

Wenn ich nun die Zahl 39476 per Rechter Maustastemenü als Filter einfüge, dann werden alle Datensätze vom Datum 31.01.2008 (2 Tage später !?) angezeigt.

Wenn ich aber CDbl(Tabellendatumfeld) = 39476 verwende, dann werden die richtigen Daten (29.01.2008) angezeigt.

Deshalb vorsichtshalber auch auf der linken Seite CDbl oder Clng, wenn das Kriterium auf der rechten Seite eine Zahl ist.

Getestet unter WinWP SP2, Access 2002

 

Besser als CDbl ist wahrscheinlich sogar CInt! Dann macht es auch Sinn, das Datenfeld ebenfalls zu konvertieren. *wink.gif*

 

Indizes werden durch solch Verrenkungen aber ausgehebelt.

In dem Fall sollte man die Werte wirklich als Datumsstring übergeben und auf die vermeintliche Abkürzung verzichten.


BTW: Wird hier ein SQL-Server eingesetzt, dann habe ich das bisher überlesen.

 

NEEEEEIIIIIIN!!! *biggrin.gif*

Wenn man ODBC nutzt, dann muss man unbedingt darauf achten wie Daten ausgetauscht werden.
Jet: Cdate(0) => 30.12.1899 00:00:00
SQL-Server: convert(datetime, 0,114) => 1900-01-01 00:00:00.000

Wenn nun mit einer Access-Abfrage eine verknüpfte Tabelle gefiltert wird, dann wird versucht so viel wie möglich vom Server abarbeiten zu lassen. => ODBC gibt die Where-Anweisung an den Server weiter. Vermutlich erkennt ODBC in diesem Fall nicht, dass es sich um einen Datumswert handelt und gibt die Zahl "unkonvertiert" weiter. => falsche Filterung im SQL-Server, der die Zahl implizit in ein Datum für den Where-Ausdruck konvertiert.

Code:

verhindert, dass die Bedingung an den Server weitergegeben werden kann. Aber, es müssen damit alle DS vom FE ermittelt werden => Trafic steigt.
In diesem Fall wäre es also - finde ich zumindest - besser, statt der Zahl einen Datumsausdruck mit #datwert# in der Access-Abfrage zu verwenden.

 

Nachdem ich meine Ohren durchgepustet habe und ich nun langsam wieder hören kann, vielleicht dann so .....

Private Sub Form_Load()
Dim strSQL As String
MsgBox "Die Datenbank wird aktualisiert"
strSQL = "UPDATE Eskalationen SET Eskalationen.Trekking = 'Überfällig' " & _
"WHERE ( Eskalationen.FBMail_Datum < #" & Date() - 21 & "# );"
CurrentDb.Execute strSQL, dbFailOnError
End Sub

 

Hallo Josef,
das musste ich jetzt gleich mal ausprobieren, da ich in meinen ODBC-Tabellen oft nach Datum selektieren muss und die Formatierung mit den Lattenzäunen recht lästig finde.

Ergebnis:
- Suche nach Datenfeld = CDbl(DateValue("04.01.2008")) liefert Datensätze zum 5.1.2008
- Suche nach CDbl(Datenfeld) = CDbl(DateValue("04.01.2008")) liefert korrektes Ergebnis - aber das dauert, soweit klar!

Hast du eine Erklärung? (oder habe ich deine obigen Ausführungen falsch verstanden?)

Die Abfrage mittels CLng macht da übrigens keinen Unterschied, aber das Datum enthält in diesem Fall auch keine Zeitangabe. Ansonsten wäre das wohl durchaus zu beachten!

 

Für solche Fälle verwende ich eine Hilfsfunktion, die je nach Art der SQL-Anweisung (Jet-SQL, T-SQL) einen passenden String liefert, falls ich die SQL-Anweisung per VBA dynamisch zusammensetze.

Die Erklärung versuchte ich #49. ... Ich probiere es aber noch einmal mit anderern Worten. *wink.gif*
Das "0-Datum" unterscheidet sich beim SQL-Server und Jet.
Da vermutlich per ODBC eine Zahl 1:1 an den Server übertragen wird, ist die Ermittlung des Vergleichswertes für den Datumsfilter nicht identisch.
Im SQL-Server müsste ungefähr so eine SQL-Anweisung ausgeführt werden
Code:

Warum aber bei dir DS vom 5.1. geliefert werden ist etwas kurios, ich hätte DS vom 6.1. erwartet.

 

Nun, meine Daten kommen ja nicht von einem SQL-Server! *wink.gif*

Mein Fazit: ich lasse also lieber die Finger davon und verfahre weiterhin nach FAQ 6.8.

 

Hallo zusammen,

ich bin nun wieder online.

Zur Klarstellung: Es wird kein SQL-Server benutzt.

 

[OT]

*biggrin.gif* ... ach so. Ich nahm an, dass du es auch damit probiert hast, da du dein DBMS nicht erwähntest. *wink.gif*

[/OT]

@kINg Lui:
Wie sieht der SQL-String bei dir exakt aus, den du per VBA zusammensetzt?

 

Hallo Josef,

hier der Code, der in meinem Startformular steht:

Die letzten Vorschläge, z.B. von Unreg5 habe ich aber noch nicht ausprobieren können

 

Mach mal folgendes: Setze ein Debug.Print strSQL vor das Execute und schau dir den String im Direktfenster an. Dann kopierst du ihn ins SQL-Fenster einer neuen, leeren Abfrage und führst ihn von dort her aus. Dann sehen wir weiter...

 

MIt SQL-String meinte ich zwar den Inhalt von strSQL, aber den konnte ich mir in diesem Fall selbst ermitteln. *wink.gif*

Code:

=> Wenn die Feldbezeichnungen und die Datentypen passen, sollte diese Anweisung ausgeführt werden können.

 

Hallo Josef,

damit erhalte ich die Fehlermeldung:

Verwendung von Null unzulässig

 

Also doch: http://ms-office-forum.de/forum/show...7&postcount=42

Aber lies auch die Antworten (inbes. Arnes) da drauf!