麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 時間問題請教 [打印本頁]

作者: rouber590324 時間: 2018-10-26 14:45 標題: 時間問題請教

DEAR  ALL 大大
1.如圖一程式
1.1需求抓取2018/10/22  08:00:00 PM-2018/10/23  08:00:00 AM之間的數據,
1.2但是抓出來的時間不準確???
1.3 RANGE("B1")=2018/10/22  08:00:00 PM  RANGE("D1")=2018/10/23  08:00:00 AM
1.4請教何處有問題? 煩不吝賜教 THANKS*10000

圖一
Sub VBA()
Range("A3:F65536").ClearContents
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
cn.Open "Provider=MSDAORA.1;Password=SDTHH;User ID=URCE01B;Data Source=QSRS05A"

strsql = "SELECT TBDD7005.RECNO5,PN,LAYNM,PLOTER,NEDDP,TO_CHAR(FNTM,'YYYY/MM/DD HH:MM:SS AM/PM')" & Chr(13) & "" & Chr(10) _
         & "FROM TBDD7005,TBDD7006" & Chr(13) & "" & Chr(10) _
         & "Where TBDD7005.RECNO5=TBDD7006.RECNO5 AND TO_CHAR(FNTM,'YYYY/MM/DD HH:MM:SS AM/PM')>='" & Format(Range("B1"), "YYYY/MM/DD HH:MM:SS AM/PM") & "' AND TO_CHAR(FNTM,'YYYY/MM/DD HH:MM:SS AM/PM')<='" & Format(Range("D1"), "YYYY/MM/DD HH:MM:SS AM/PM") & "'"
' [H1] = strsql
rs.Open strsql, cn
On Error Resume Next
Range("A3").CopyFromRecordset rs
rs.Close

cn.Close
End Sub

作者: GBKEE 時間: 2018-10-26 18:58

回復 1# rouber590324

試試看

strsql = "SELECT TBDD7005.RECNO5,PN,LAYNM,PLOTER,NEDDP FROM TBDD7005,TBDD7006 Where TBDD7005.RECNO5=TBDD7006.RECNO5 AND FNTM between " & CDbl(CDate(Range("B1"))) & " and " & CDbl(CDate(Range("D1")))

複製代碼

作者: rouber590324 時間: 2018-10-29 11:51

DEAR GBKEE 大大
感謝您之回復 100%符合需求 THANKS*10000

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)