在 Windows 10/IIS/Classic ASP 上的 Access 2016 中恢复日期格式

Question

希望我可以足够详细地解释这个问题，以便有人让我知道可能的解决方案，或者至少让我知道没有解决方案（除了我在下面提到的那个）。

好的，我正在从以下环境迁移：

Windows XP/Access 2003/经典 ASP/IIS

到：

Windows 10 专业版/Access 2016/经典 ASP/IIS

基本上，我有一个在 IIS 中运行的本地网站，它是用 Classic ASP 编写的。这些页面在 Web 浏览器中运行，并且在 Access DB 中发生了大量的插入和更新。 Win XP 环境设置为位于澳大利亚，但是我将所有格式设置为基于美国的格式，因此所有格式都发生在“mm/dd/yyyy”中。

在 Windows XP 中，我可以在 ASP 中运行查询更新，如下将日期视为字符串：

    theDate = Now()
    SQLStmt =   "UPDATE tTable SET DateField ='" & theDate & "' WHERE DateID=1"

它工作得很好，就像日期是 2017 年 10 月 1 日一样，它将在 Access DB 表中显示为 10/01/2017。日期字段（上例中为 DateField）的日期类型为“日期/时间”类型。

所以，我安装了 Windows 10 Pro，使用 Classic ASP 设置 IIS，创建了一个虚拟目录，从 Win XP 中移动了所有文件，并将 Win 10 中的所有日期设置更改为美国格式。我还在 IIS 中将“为 ASP 应用程序配置属性”下的“区域设置 ID”更改为 1033。正在使用 Access DB，但未转换为 Access 2016（因此如果需要，可以将其移回 Win XP 环境）。

但是，运行上述查询会导致进入 Access DB 的日期为“01/10/2017”。

所以我设置了以下代码来测试日期格式：

    theDate_01 = Now()

    theDateTime = FormatDateTime(theDate_01,3)

    theDate_02 = Year(theDate_01)&"-"&Month(theDate_01)&"-"&Day(theDate_01)&" "&theDateTime

    SQLStmt =   "UPDATE tDateTest SET "
    SQLStmt =   SQLStmt & "theDate='" & theDate_01 & "'"
    SQLStmt =   SQLStmt & " WHERE DateID=1"
    Set RS = conntemp.execute(SQLStmt)

    SQLStmt =   "UPDATE tDateTest SET "
    SQLStmt =   SQLStmt & "theDate='" & theDate_02 & "'"
    SQLStmt =   SQLStmt & " WHERE DateID=2"     
    Set RS = conntemp.execute(SQLStmt)

%>

基本上，我在 Access 中有一个名为 tDateTest 的表，其中包含两列 DateID 和 theDate。

运行上述代码的结果是 theDate_01 插入不正确（即 AU 日期格式），而 theDate_02 因为我首先将其转换为 yyyy-mm-dd 格式，所以插入正确。

现在回想起来，每当我更新/插入日期时，我都会这样做，但是我的情况是，我有许多代码页，其中有许多需要更改的日期更新/插入。

有什么方法可以让 Windows 10 中的环境像 Win XP 中的那样运行，即带有日期字符串的查询只需按照我在整个过程中指定的格式插入/更新到 Access 日期/时间字段中Win 10/IIS，美国格式？

Answer 1

首先，您可以简单地这样做：

SQLStmt = "UPDATE tTable SET DateField = Now() WHERE DateID=1"

如果不是，强制格式化并使用八角：

SQLStmt = "UPDATE tTable SET DateField = #" & Format(theDate, "yyyy\/mm\/dd") & "# WHERE DateID=1"