使用 OleDb 和 Access 处理 dd/mm/yyyy 日期格式

Question

我在处理查询/SQL 代码中的日期时遇到问题。我的区域设置格式为#dd/mm/yyyy#，因此在插入日期以访问数据库时，它看起来像#dd/mm/yyyy#，但通过选择查询我得到#mm/dd/yyyy#

Query = "Select EmpEndDate From Employees_Details Where EmpCode = '" & EmpCode & "';"
Objcmd = New OleDbCommand(Query, ObjConnection)
ObjSelect = Objcmd.ExecuteReader
ObjSelect.Read()
Dim EndDate As DateTime
If Convert.ToString(ObjSelect.GetValue(0)) = vbNullString Then
EndDate = DateTime.Now
Else
EndDate = ObjSelect.GetValue(0)
End If

Answer 1

我的区域设置格式为#dd/mm/yyyy#，因此在插入访问数据库的日期时，它看起来像#dd/mm/yyyy#

编辑：感谢 Plutonix 的以下评论，我意识到您的问题不清楚您是指 VB.NET #date_literal# 还是 Access SQL #date_literal#。我的回答是关于 Access SQL 中的日期文字：

---

重要的是要认识到 Access 数据库引擎会忽略 Windows 中的区域设置，并且总是将 Access SQL 语句中的模棱两可的 #xx/yy/zzzz# 日期文字解释为 #mm/dd/yyyy#。这可以通过在 Windows 中使用默认“英语（英国）”设置的机器上的以下 VB.NET 代码来说明：

Imports System.Data.OleDb
Imports System.Globalization

Module Module1

    Sub Main()
        Console.WriteLine("Culture name:")
        Console.WriteLine("    {0}", CultureInfo.CurrentCulture.Name)
        Console.WriteLine("Short date pattern:")
        Console.WriteLine("    {0}", CultureInfo.CurrentCulture.DateTimeFormat.ShortDatePattern)
        Using con As New OleDbConnection
            con.ConnectionString =
                    "Provider=Microsoft.Jet.OLEDB.4.0;" &
                    "Data Source=C:\Users\Public\mdbTest.mdb;"
            con.Open()
            Using cmd As New OleDbCommand
                cmd.Connection = con
                ' try updating to November 2, 2010 as #dd/mm/yyyy#
                cmd.CommandText =
                        "UPDATE Employees_Details " &
                        "SET EmpEndDate=#02/11/2010# " &
                        "WHERE EmpCode=1"
                Console.WriteLine("UPDATE command:")
                Console.WriteLine("    {0}", cmd.CommandText)
                cmd.ExecuteNonQuery()
                ' read value back and display
                cmd.CommandText =
                        "SELECT EmpEndDate " &
                        "FROM Employees_Details " &
                        "WHERE EmpCode=1"
                Dim EndDate As DateTime = Convert.ToDateTime(cmd.ExecuteScalar)
                Console.WriteLine("Retrieved date:")
                Console.WriteLine("    {0}", EndDate.ToLongDateString)
            End Using
            con.Close()
        End Using
    End Sub

End Module

该代码产生

Culture name:
    en-GB
Short date pattern:
    dd/MM/yyyy
UPDATE command:
    UPDATE Employees_Details SET EmpEndDate=#02/11/2010# WHERE EmpCode=1
Retrieved date:
    11 February 2010

显示#02/11/2010# 以“2010 年 2 月 11 日”而不是“2010 年 11 月 2 日”的形式写入 Access 数据库。

更好的方法是使用parameterized queries 来避免Access SQL 语句中的日期文字。如果在 Access SQL 语句中必须使用日期文字，请始终选择明确的 #yyyy/mm/dd# 格式。