我试图在DB文件中读取完整日期信息。
当我使用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