vba - 无法从数据库中读取时间数据

Question

我试图读取数据库文件中的完整日期信息。

当我使用 DBbrowser 检查数据时，它显示如下

Date
4/16/2016 16:39:10
4/19/2016 12:50:48
4/22/2016 16:12:24
4/25/2016 10:28:31
4/27/2016 10:51:30

但我只能用下面的代码得到日期。

Date
4/16/2016
4/19/2016
4/22/2016
4/25/2016
4/27/2016

宏：

Sub db_query()
'
' db_query Macro
'
Dim conn As Object, rst As Object

Worksheets("results").Range("A2:AI5001").Clear

Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")

' OPEN CONNECTION
conn.Open "DRIVER=SQLite3 ODBC Driver;Database=D:\backup.db;"

strSQL = "SELECT date from Tb_Result_Summary"

' OPEN RECORDSET
rst.Open strSQL, conn, 1, 1

' OUTPUT TO WORKSHEET
Worksheets("results").Range("A2").CopyFromRecordset rst
rst.Close

' FREE RESOURCES
Set rst = Nothing: Set conn = Nothing

End Sub

标签： vbadatetimemsdasql