我正在使用链接到 SQL Server 2008 R2 的 Access 2010。我的问题 - 如何在 Access 表单上将时间显示为 hh:mm am/pm 而不是 SQL Server 的 time(7) 格式 hh:mm:ss.nnnnnnn？
更复杂的是，我确实有一个半小时时间范围内的所有时间的查找表？前任。在 SQL 中，查找字段显示 07:30:00.0000000 - 我想从 Access 表单中显示为上午 7:30 的下拉列表中选择一个时间，然后在 Access 表单上显示为上午 7:30。如果我选择它，我希望它在 SQL Server 中存储为07:30:00:0000000（因为我别无选择）。
我在这方面找不到任何东西。
【问题讨论】：
标签： sql time sql-server-2008-r2 ms-access-2010
Access 没有 Time 数据类型，因此当它链接到 SQL Server time 列时，它会将该列映射为 Text。这就是为什么您尝试应用于链接表值的任何 Date/Time 格式说明符都无效：就 Access 而言，它是一个字符串。
如果我们有一个 SQL Server 表 [约会]：
我们在 Access 中创建了一个链接表
如果我们为该链接表创建一个 Access 表单并使用普通的旧绑定控件，我们会得到这个
[apptStart] 的文本框确实有效，但看起来不太好。解决方法是将该文本框保留在表单上，但将其隐藏（将其.Visible 属性设置为No），然后将另一个未绑定的文本框添加到表单中。 （在这种情况下，我将其称为 [txtStartTime]。）将新文本框的 .Format 设置为 Medium Time 并根据需要调整任何其他格式（例如，我将 Text Align 设置为 Left）。
在On Current 表单事件中，计算与SQL Server 表中的开始时间对应的Access Date/time 值，并将该值填充到[txtStartTime] 文本框中。现在我们得到了一些看起来更好的东西：
如果用户想要编辑该值怎么办？在 [txtStartTime] 文本框的 After Update 事件中，我们创建相应的 SQL Server time 字符串并将该值填充到（不可见，绑定）[apptStart] 文本框中。保存记录时，新的时间值会在 SQL Server 表中更新。
表单后面的代码如下：
Option Compare Database
Option Explicit
Const accessDate0 = "1899-12-30 " ' <- note trailing space
Dim startTimeAsDateTime As Date
Private Sub Form_AfterUpdate()
Me.Requery
End Sub
Private Sub Form_Current()
Me.txtStartTime.Value = CDate(accessDate0 & Left(Me.apptStart, 8))
End Sub
Private Sub txtStartTime_AfterUpdate()
Me.apptStart.Value = Format(startTimeAsDateTime, "hh:nn:ss")
End Sub
Private Sub txtStartTime_BeforeUpdate(Cancel As Integer)
On Error GoTo txtStartTime_BeforeUpdate_Error
startTimeAsDateTime = CDate(accessDate0 & Me.txtStartTime.Value)
Exit Sub
txtStartTime_BeforeUpdate_Error:
MsgBox "Start Time appears to be invalid."
Cancel = True
End Sub
【讨论】：
抱歉，我没有开发环境设置，但您可以将您的 SQL 查询更改为：
SELECT Convert(varchar(5), getdate(), 108)
给出 HH:MM 并截断其余部分以便正确显示。
然后，您可以在返回的路上投射日期。
【讨论】：