Hallo Flux1989
Der Fehler muss woanders liegen. Ich habe es soeben ausprobier (mit einem VBScript das ich auf Win7 in der SYSWOW64 mit WSCRIPT ausgeführt habe) und kann die Funktion Year() problemlos aufrufen.
Wenn Du das aus C# aus machst, musst Du eine Connection öffnen. Zeig' mal den Connection String her.
Ich vermute, die Connection ist falsch und da wird keine DAO Connection geöffnet, sondern sonst was, was nicht passt.
Kannst Du z.B.
SELECT COUNT(id) AS Anzahl, 2012 AS Jahr
FROM tblText
ohne Fehler ausführen oder erhälst Du da auch einen Fehler?
Nachfolgend das Script. Starten musst Du das über:
%SystemRoot%\SysWOW64\WScript.exe "Pfad und Name des Scripts.vbs"
Option Explicit
Dim objDAO
Dim db
Dim rs
Dim strSQL
Dim strMsg
Dim I
Const conDBName = "C:\Temp\test.mdb"
On Error Resume Next
Set objDAO = CreateObject("DAO.DBEngine.36")
if err then
msgbox err.description
end if
Set db = objDAO.OpenDatabase(conDBName, False, False)
if Err Then
msgbox err.description
MsgBox "MDB " & conDBName & " nicht gefunden."
End If
db.Execute "DROP TABLE tblTest", 128
If Err Then
Err.Clear
End If
db.Execute "CREATE TABLE tblTest (ID COUNTER CONSTRAINT tblTest_PK PRIMARY KEY , startdate DATETIME)", 128
If Err Then
MsgBox Err.Description
Err.Clear
End If
For I = 1 to 100
strSQL = "INSERT INTO tblTest(startdate) VALUES( " & (I * 100) & ")"
db.execute strSQL, 128
If Err Then
MsgBox Err.Description
Err.Clear
End If
next
strSQL = "SELECT COUNT(id) AS Anzahl, YEAR(startdate) AS Jahr FROM tblTest GROUP BY YEAR(startdate) ORDER BY YEAR(startdate) DESC"
set rs = db.openrecordset(strSQL)
if err then
MsgBox err.description
err.clear
end if
while not rs.eof
msgbox rs(0) & ": " & rs(1)
rs.movenext
wend
rs.close
set rs = nothing
db.Close
Set db = Nothing
Set daoObject = Nothing
Dieses Script greift mit DAO Methoden auf die MDB und die Tabelle darin zu. Dabei wird JET Dein SQL Statement übergeben und ausgeführt und es tut wie erwartet.
Im Ordner C:\Temp musst Du eine MDB mit dem Namen test.mdb anlegen.
Es könnte es allenfalls sein, dass Du DAO aus dem 64-bit environment heraus aufrufst? Das geht nicht. Falls Du aus 64-bit Befehle an die Jet Engine schicken willst, musst Du die ACE bemühen.
Das daoObject muss dann wie folgt angelegt werden:
Set objDao = CreateObject("DAO.DBEngine.120")
Das läuft dann auch im 64-bit Windows 7 Native Environment. bedingt allerdings, dass die ACE 64-bit Version installiert ist (gibt's bei MS kostenfrei als Re-Distributable)
Gruss
Henry
