hi
大家好.小弟最近需要用EXCEL連接外部 Paradox 的資料庫檔案 .db
程式也已經正確連接到.資料也可以拉到EXCEL
但是若加上 SQL 的Where 命令 搜 Timestamp 這種格式 就不會正常找出.
完整的程式如下.
其中的SQL命令
AllSql = "Select * From Alarm where OnTime>=2014-01-16 "
中的日期嘗試過很多格式都沒辦法.如
2014-01-16
01-16-2014
2014/01/06
01/06/2014
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'宣告
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim AllSql As String
'讀取目錄
ReadDir = "c:\EpmsServer\DataBase\"
'
AllSql = "Select * From Alarm where OnTime>=2014-01-16 "
'讀取 db
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ReadDir & ";" & "Extended Properties=Paradox 5.x;"
rst.Open AllSql, cnn, , , adCmdText
'db放到表格
Range("A3").CopyFromRecordset rst