ADO存取資料庫 .RecordCount返回值問題

stillfish00

不好意思 , 想請教一下我在Excel VBA裡用ADODB存取Access資料庫
代碼如下 , 可是RecordCount返回值卻是-1而不是查詢到的筆數
請問要如何修改才對?

1. Sub test()
   
2.     Dim adoConnect As New ADODB.Connection
   
3.     Dim oRS As New ADODB.Recordset
   
4.    
   
5.     With adoConnect
   
6.         .Provider = "Microsoft.ACE.OLEDB.12.0"
   
7.         .Mode = adModeReadWrite
   
8.         .ConnectionTimeout = 15
   
9.         .Open "G:\stock\DB_Stock_0926.accdb"
   
10.     End With
    
11. 
    
12.     Set oRS = adoConnect.Execute("SELECT * FROM MyTable")
    
13.     Debug.Print oRS.RecordCount
    
14.         
    
15.     adoConnect.Close
    
16.     Set oRS = Nothing
    
17.     Set adoConnect = Nothing
    
18. End Sub

複製代碼

kimbal

回復 1# stillfish00


    試試多加一行
        .CursorLocation = adUseClient
在.Provider 之下

stillfish00

回復 2# kimbal
哇 ~ 謝謝 , 這樣值就正確了:D