Не могу прочитать данные о времени из БД
Я пытался прочитать полную информацию о дате в файле БД.
Когда я проверяю данные с помощью 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
Macro:
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