Yaslaw.Info

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== [VBA][SQL][Access] Aus VBA ein Datum in SQL einsetzen ======
Nun gut, der Titel ist noch nicht das Gelbe vom Ei. 
\\ Es geht um folgendes. Mit VBA muss man des öftern Bedinungen für SQL Abfragen oder ObenForm Kriterien, Filtern etc. zusammensetzen. Wenn da mit Datum und/oder Zeit gearbeitet wird, ist es nicht mehr ganz trivial.

Zuerst mal eine unvollständige Auflistung, wo das folgende Tutorial über greift
  * In VBA zusammengesetzte SQL-String
  * In Filterbediningen auf Formular-, Report- und Recordsetobjekte
  * In Filterbediningen für DLookup(), DCount() etc.

Kommen wir zum Punkt. Eine Bedinung ist ein ein Filterstring, der meistens zusammengesetzt wird. Darin gelten stehts SQL-Formatierungen. SPrich, Reine Texe müssen in ' oder " gefasst werden, Zahlen sind ohne Seperatoren und Datum/Zeit ist im amerikanischen Datusformat

^ ^ Format ^ Beispiel ^ Formatstring für den format() Befehl ^ Anwendung ^
| String | <code>'text'</code> | <code>'Mein Text'</code> | | <code>"[myField] = '" & myStringVar & "'"</code> |
| ::: | <code>"text"</code> | <code>"Mein Text"</code> | | <code>"[myField] = """ & myStringVar & """"</code> |
| Zahl | <code>0.00</code> | <code>1234.56</code> | | <code>"[myField] = " & myNumberVar</code> |
| Datum | <code>#MM/DD/YYYY#</code> | <code>#09/21/2016#</code> | <code>\#\/MM\/DD\/YYYY\#</code> | <code>"[myField] = " & format(myDateVar, "#\/MM\/DD\/YYYY\#")</code> |
| Zeit | <code>#HH:NN:SS#</code> | <code>#13:06:54#</code> | <code>\#HH:NN:SS\#</code> | <code>"[myField] = " & format(myDateVar, \#HH:NN:SS\#)</code> |
| Datum + Zeit | <code>#MM/DD/YYYY HH:NN:SS#</code> | <code>#09/21/2016 13:06:54#</code> | <code>\#\/MM\/DD\/YYYY HH:NN:SS\#</code> | <code>"[myField] = " & format(myDateVar, \#\/MM\/DD\/YYYY HH:NN:SS\#)</code> |

Siehe auch http://www.office-loesung.de/p/viewtopic.php?f=167&t=723793#p3003777
Yaslaw.Info

User Tools

Site Tools

Page Tools
