[發問] ADO Select問題

蒼雪

大家好，小弟最近在接觸VBA內使用ADO來取得資料。

這邊有個疑問，在我的標題欄為日期，取得會有問題...

資料來源：

下載 (20.3 KB)

2019-11-4 22:59

寫法如下：

1. Sub ado_test()
   
2. 
   
3. Dim cnn As Object, rst As Object
   
4. Dim Mypath As String, Str_cnn As String
   
5. Dim sql As String, i As Long
   
6. 
   
7. Set cnn = CreateObject("adodb.connection")
   
8. Mypath = ThisWorkbook.FullName
   
9. 
   
10. If Application.Version < 12 Then
    
11.     Str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath
    
12. Else
    
13.     Str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & Mypath
    
14. End If
    
15. 
    
16. cnn.Open Str_cnn
    
17. 
    
18. '---------------------------------'
    
19. sql = "select 項次,機台名稱,2019/1/1 from [工作表2$] where 機台名稱='A01'"
    
20. 
    
21. Set rst = cnn.Execute(sql)
    
22. 
    
23. Range("A1").CurrentRegion.ClearContents
    
24. 
    
25. For i = 0 To rst.Fields.Count - 1
    
26.     Cells(1, i + 1) = rst.Fields(i).Name
    
27. Next i
    
28. 
    
29. [A2].CopyFromRecordset rst
    
30. 
    
31. 
    
32. cnn.Close
    
33. 
    
34. Set cnn = Nothing
    
35. Set rst = Nothing
    
36. 
    
37. End Sub

複製代碼

執行結果：

下載 (5.66 KB)

2019-11-4 23:01

標題欄的日期部分，不能正確列出，且下方數值帶出錯誤。

若是使用 select * from [工作表2$] where 機台名稱='A01'

可以正確列出，但由於我的標題欄為日期，一年日期365加上一些前置的標題約有375。

而語法中的Execute(sql)，標題欄Fields.Count最多只有255。

有辦法解決嗎？

jcchiang

回復 1# 蒼雪
將2019/1/1前後加上[ ]試試
EX:[2019/1/1]

蒼雪

回復 2# jcchiang

經過嘗試，他會顯示一個錯誤訊息。

無值提供給一或多個必要參數。

下載 (14.8 KB)
異常訊息

2019-11-30 09:06

下載 (13.94 KB)

2019-11-30 09:06

   

看來是增加 [ ]，所造成的。

jcchiang

回復 3# 蒼雪

Execl欄位類別請改成文字

蒼雪

回復 4# jcchiang


    有，我有嘗試過將標題欄的日期修改成文字過。

    但是，只要將 [ ] 加上，他就會跳出上面所顯示的錯誤訊息。

jcchiang

回復 5# 蒼雪

SQL欄位名稱為日期.zip (17.49 KB)

下載次數: 3

2019-12-3 12:36

蒼雪

回復 6# jcchiang


執行上是沒有問題了。

不過在增加日期部分稍不方便，由於是文字最後拖曳會變成2019/1/365 ...。

不過謝謝您的解惑，真的很謝謝。
---

另外還想請教，若是資料field從2019/1/1 ~ 2019/12/31。

資料再找到8月底之後的資料都load不出，這有辦法解決嗎？

蒼雪

回復  jcchiang


執行上是沒有問題了。

不過在增加日期部分稍不方便，由於是文字最後拖曳會變成201 ...
蒼雪 發表於 2019-12-3 21:37

我用公式解決日期拖曳問題了...

利用 =text(D1,"yyyy/m/d") 即可以解決，需要第二部分的解答...

jcchiang

回復 7# 蒼雪
這就是你所說的問題
而語法中的Execute(sql)，標題欄Fields.Count最多只有255。

不然就是用公式去搜尋所需資料
=HLOOKUP("2019/12/10",工作表2!C:NC,MATCH("A02",工作表2!B:B),FALSE)

=HLOOKUP("查詢日期",要查日期的範圍位置,MATCH("機台名稱",要查機台名稱的範圍位置),FALSE)

蒼雪

回復 9# jcchiang


在同一份workbook內可以用公式。

因為長期使用的情況下，資料量會很龐大。

而公式判斷式下多了之後，雖然取得的資料表面上不到10個字元。

可是其實公式占很多，常常到後面檔案就很肥大。

其實，主要的是...

我想在另外一份workbook執行ADO，透過ADO不開啟檔案來取得資料。

這樣檔案也就不至於太大...