Office: Datum in Where Bedingung auf verschiedene Datenbanken

Axelander · 3. Oktober 2010

Hallo,
wir haben hier eine Datenbank die von Access auf SQL Server umziehen soll. Bisher wurde hier viel mit DAO gearbeitet. Als ersten Schritt würde ich gerne von DAO auf ADO umsteigen, so dass ich nach und nach alle Tabellen umziehen kann und nur noch die Connection ändern muss.

Allerdings habe ich hier ein Problem mit Datumsfeldern in der WHERE Klausel. Bisher sah eine Funktion z.B. so aus:

Code:

Public Function getSprintStart(StartDatum As Date) As Date
Dim SEL As String
Dim rst As DAO.Recordset

SEL = " SELECT Max(SP_Start) AS Sprintstart FROM Sprint WHERE SP_Start = " & SqlDate(Date)
Set rst = g_DB.OpenRecordset(SEL)
If Not rst.EOF Then
getSprintStart = rst![Sprintstart]
Else
getSprintStart = Date
End If
rst.Close
Set rst = Nothing
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn ich diese auf ADO umbaue, muss ich je nachdem ob ich auf eine Access Datenbank oder auf einen SQL Server selektiere die Where Bedingung anders schreiben:

Access
Code:

Public Function getSprintStartAccess(con As ADODB.Connection, StartDatum As Date) As Date
Dim SEL As String
Dim rst As ADODB.Recordset

Set rst = New ADODB.Recordset

SEL = " SELECT Max(SP_Start) AS Sprintstart FROM Sprint WHERE SP_Start = CDate('" & StartDatum & "')"
rst.Open SEL, con, adOpenStatic, adLockReadOnly
If Not rst.EOF Then
getSprintStartAccess = rst![Sprintstart]
Else
getSprintStartAccess = Date
End If
rst.Close
Set rst = Nothing
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

SQL-Server
Code:

Public Function getSprintStartSQL(con As ADODB.Connection, StartDatum As Date) As Date
Dim SEL As String
Dim rst As ADODB.Recordset

Set rst = New ADODB.Recordset

SEL = " SELECT Max(SP_Start) AS Sprintstart FROM Sprint WHERE SP_Start = '" & StartDatum & "'"
rst.Open SEL, con, adOpenStatic, adLockReadOnly
If Not rst.EOF Then
getSprintStartSQL = rst![Sprintstart]
Else
getSprintStartSQL = Date
End If
rst.Close
Set rst = Nothing
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gibt es denn keine Variante für das Datum welches sowohl mit Access als auch mit dem SQL Server funktioniert?

Gruß
Alex

:)

User · 5. Oktober 2010

Hallo Alex,

das wäre evtl. ein Fall für "BuildCriteria"!
Versuch es mal so:
Code:

Public Function getSprintStart(con As ADODB.Connection, StartDatum As Date) As Date
Dim SEL As String
Dim rst As ADODB.Recordset

Set rst = New ADODB.Recordset

strStartKrit = BuildCriteria("SP_Start", dbDate, "= " & StartDatum )
SEL = "SELECT Max(SP_Start) AS Sprintstart FROM Sprint WHERE " & strStartKrit & " AND " & strEndeKrit
rst.Open SEL, con, adOpenStatic, adLockReadOnly
If Not rst.EOF Then
getSprintStartAccess = rst![Sprintstart]
Else
getSprintStartAccess = Date
End If
rst.Close
Set rst = Nothing
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß

LL

Josef P. · 5. Oktober 2010

Wenn ich diese auf ADO umbaue, muss ich je nachdem ob ich auf eine Access Datenbank oder auf einen SQL Server selektiere die Where Bedingung anders schreiben:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eigentlich müsstest du nur den Rückgabewert von SqlDate ändern. Das sollte eigentlich keine Problem sein, wenn du keinen gemischten Betrieb (Zugriff auf Jet und MSSQL gleichzeitig) benötigst. Eine saubere Kapselung von Aufgaben muss ja auch einmal belohnt werden. *wink.gif*

Alternativ könntest du komplett auf das Zusammensetzen von SQL-Anweisungen in einem String verzichten und z. B. ADODB-Command mit Parametern einsetzen.

mfg
Josef

Lanz Rudolf · 5. Oktober 2010

Hallo
@Louisleon
das:
Code:

strStartKrit = BuildCriteria("SP_Start", dbDate, "= " & StartDatum )
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

geht doch einfacher braucht doch nicht 2 Krit
z.B. wenn man Between und AND verwendet
BuildCriteria("TDatum", dbDate, "between " & _
(CDate(StrVon)) & " And " & (CDate(datBis)))
s. Anhang
hilft aber dirkt serv. nichts beim Problem

raist10 · 5. Oktober 2010

Vielleicht hilft Dir ja dieser Link irgendwie weiter:

http://www.itrain.de/knowhow/sql/tsql/datum/datum1.asp

Gruß

Rainer

Axelander · 6. Oktober 2010

Hallo an alle erst einmal *Smilie

@LL:
Also, die Lösung mit BuildCriteria bringt mir leider nichts, da dieser ja MS-Access SQL Syntax zusammenbaut. Diese mag der SQL Server aber nicht.

@josef:
Genau das war die Idee, das SQLDate umzubauen. Allerdings eben genau mit dem Hintergedanken, dass ich nur 1 Stelle umbauen muss. Allerdings kann ich dann mit meinen oben beschriebenen Lösungen entweder nur noch auf Access Tabellen oder nur noch auf SQL Server Tabellen.

Was ich suche wäre ein Umbau für die SQLDate so dass ich diese sowohl für Access Tabellen als auch für SQL Server Tabellen verwenden kann. Ansonsten müsste ich ja alle Tabellen bei welchen ich das verwende gleichzeit von Access auf SQL Server umstellen und das wären mir ein paar zu viele *Smilie

Gruß
Alex

Josef P. · 6. Oktober 2010

Genau das war die Idee, das SQLDate umzubauen. Allerdings eben genau mit dem Hintergedanken, dass ich nur 1 Stelle umbauen muss. Allerdings kann ich dann mit meinen oben beschriebenen Lösungen entweder nur noch auf Access Tabellen oder nur noch auf SQL Server Tabellen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Diese Weiche könntest du per Code einstellbar machen. *Smilie

Falls es je kompilierter Anwendung nur eine Datenquelle gibt, könntest du Compiler-Konstanten verwenden.
Falls das flexibel sein soll, könntest du in SqlDate-Prozedur abfragen, welcher SQL-Dialekt benötigt wird.

Beispiel (Luftcode!):
Code:

Public Function SqlDate(byval DateValue as Variant) as Variant

if Isnull(DateValue)
SqlDate = "NULL"
exit function
end if

dim strFormatString as String
select Case SqlDialekt
case "Jet"
strFormatString = "\#yyyy-mm-dd\#"
case "T-SQL"
strFormatString = "'yyyy-mm-dd'"
...
end select

SqlDate = Format(DateValue, strFormatString)
end Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anm.: SqlDialekt könnte eine Anwendungseigenschaft oder FUnktion sein, die den gerade aktuell benötigten SQL-Dialekt liefert.

Und jetzt gehe ich noch einen kleinen Schritt weiter in Richtung Klassen.
Die SQL-spezifischen Formate, Eigenschaften usw. könntest du auch in Klassen kapseln und dann je Datenbank die passende Klasse instanziieren.

Beispiel:
Interface: ISqlTools
Code:

Public Function SqlDate(byval DateValue as Variant) as Variant
Err.Raise ...
'Fehler auslösen, damit sichergestellt ist,
'dass dieser Code niemals ausgeführt wird.
'Leider kann man Klasse die in VBA als Schnittstelle dienen instanziieren.
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Klasse: JetSqlTools
Code:

Implements ISqlTools
private Function ISqlTools_SqlDate(byval DateValue as Variant) as Variant

if Isnull(DateValue)
SqlDate = "NULL"
exit function
end if

ISqlTools_SqlDate = Format(DateValue, "\#yyyy-mm-dd\#")

end Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Klasse: TransactSqlTools
Code:

Implements ISqlTools
private Function ISqlTools_SqlDate(byval DateValue as Variant) as Variant

if Isnull(DateValue)
SqlDate = "NULL"
exit function
end if

ISqlTools_SqlDate = Format(DateValue, "'yyyy-mm-dd'")

end Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In einem Standardmodul:
Code:

private m_SqlTools as ISqlTools
Public Property Get SqlTools() As ISqlTools
if m_SqlTools is nothing then
initSqlTools
end if
set SqlTools = m_SqlTools
end property

private sub InitSqlTools()
select Case SqlDialekt
case "Jet"
set m_SqlTools = new JetSqlTools
case "T-SQL"
set m_SqlTools = new TransactSqlTools
...
end select
end sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Verwendung:
Code:

dim strSQL as string
strSQL = "select ... where Datumsfeld = " & SqlTools.SqlDate(Datumsvariable) & " and ..."
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anm.: obiges ist alles Luftcode, daher bitte nur als Beschreibung eines möglichen Konzeptes verstehen. *wink.gif*

mfg
Josef

raist10 · 6. Oktober 2010

\@ Alexander

Allerdings kann ich dann mit meinen oben beschriebenen Lösungen entweder nur noch auf Access Tabellen oder nur noch auf SQL Server Tabellen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lies Dir bitte mal den Link den ich oben gepostet habe durch. Dort wird beschrieben wie Du an die nötigen Informationen für das Datumsformat für den SQL-Server aus der connection.PROPERTIES-Auflistung rankommst.

Was im Umkehrschluß doch nur bedeuten kann, dass jedes Connection-Object Informationen zu der Verbindung beinhaltet aus denen Du vermutlich irgendwo auslesen kannst ob es eine Verbindung zur einer Access-DB ist oder zu einem SQL-Server.

Was mich schlicht zum dem Schluß bringt das die Auswertung zu was die Connection besteht Dir doch helfen sollte in der Prozedur SQLDate zu entscheiden welches Datums-Format Du zur Anwednung bringst.

Gruß

Rainer

P.S.: Ach verdammt Josef war mal wieder schneller und ausführlicher *wink.gif*

User · 6. Oktober 2010

\@Ruedi

von MSDN

However, if you wish to construct a criteria string that refers to multiple fields, you must create the strings and concatenate them yourself.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

@Alexander
Sorry, da bin ich wohl falschen Informationen aufgesessen. Mir wurde das als "DB-unabhängiges" Verfahren verkauft universelle Kriterien zu erstellen. *wink.gif*

Gruß

LL

fhentzsc · 6. Oktober 2010

Hallo Alexander,

wir haben hier eine Datenbank die von Access auf SQL Server umziehen soll. Bisher wurde hier viel mit DAO gearbeitet. Als ersten Schritt würde ich gerne von DAO auf ADO umsteigen, so dass ich nach und nach alle Tabellen umziehen kann und nur noch die Connection ändern muss.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Doofe Frage:

Umzug auf SQL-Server - klar. Aber warum zugleich die Umstellung von DAO auf ADO? Wenn der Backend von Access nach SQL-Server gewechselt wird, ist der Umstieg erst mal nicht so groß und kostet nicht so viel (Zeitaufwand).

Wenn du die Tabellen des SQL-Servers einbindest, kannst du ganz normal auf diese zugreifen.

Ich habe die letzten Monate eine Anwendung mit Oracle-Backend erweitert und diese setzt auch verknüpfte Tabellen und Views von Oracle ein und nur bestimmte Zugriffe werden üb er ADO und andere über DAO gelöst.

Gruß

Frank

Lanz Rudolf · 7. Oktober 2010

Hallo
@LL
das was Du in deinem schönen Englishen Zitat beschreibst
ist ja mit meinem BuildCriteria in dem Anhang ja erfüllt (in StrCrit)

User · 7. Oktober 2010

\@Ruedi
??
"SP_Start" und "SP_Ende" sind aber imo zwei Felder.
Code:

BuildCriteria("TDatum", dbDate, "between " & _
(CDate(StrVon)) & " And " & (CDate(datBis)))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

bezieht sich nur auf ein Feld "TDatum"

Oder was meinst Du?

Gruß

LL

Lanz Rudolf · 8. Oktober 2010

Hallo

"SP_Start" und "SP_Ende" sind aber imo zwei Felder.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja sicher
doch ich denke mit Between ist das nicht Das gleiche wie mit >= /

Office: Datum in Where Bedingung auf verschiedene Datenbanken

Datum in Where Bedingung auf verschiedene Datenbanken

Datum in Where Bedingung auf verschiedene Datenbanken

Datum in Where Bedingung auf verschiedene Datenbanken

Datum in Where Bedingung auf verschiedene Datenbanken

Datum in Where Bedingung auf verschiedene Datenbanken

Datum in Where Bedingung auf verschiedene Datenbanken - Similar Threads - Datum Where Bedingung

Serienbrief, Datum plus 7 Tage

letztes Datum finden

Datum Suchen

Aktuelles Datum und Uhrzeit in Formular

Summieren an Hand der letzten x Datums Werte und mit weiteren Kriterien

Zelle farblich markieren wenn Datum

Datum per Insert Into in Tabelle einfügen mit Where