2016-06-30 121 views
0

我有一個簡單的表,其中包含兩個要使用ADO記錄集打開的字段。下面是代碼:ADO記錄集錯誤

Dim Colcon As ADODB.Connection 
     Set Colcon = CurrentProject.Connection 
     Dim ColRs As New ADODB.Recordset 
     ColRs.ActiveConnection = Colcon 

    Dim ColSQL As String 
    ColSQL = "SELECT ColTbl.LastDate, ColTbl.ColCode" 
    ColSQL = ColSQL + " FROM ColTbl" 
    ColRs.Open ColSQL 

在開我得到

Access 2010中的 '未註冊的類',Windows 7的

+0

你的代碼是否編譯?首先請檢查菜單'調試|「編譯' – dbmitch

+1

您是否添加了對ADO的引用? –

+0

我在我的環境中犯了一個錯誤。它的Office 365,Windows 10,我認爲這是問題。我編譯了這個應用程序,我修復了辦公室,問題依然存在。網絡上出現此錯誤的不同問題的區域數量,每個問題都有自己的解決方案。希望別人有這個問題,並有一個解決方案。 – jpl458

回答

0

兩個想法 -

(1)參考指向ADO的正確版本(通常是最新版本,對你而言可能是6. [某些]?) (2)您的記錄集打開語句應該指定遊標類型和鎖定類型,並且取決於您引用的版本,事情可能是abl e解釋它。

ColRs.Open "SELECT * FROM table_name", CurrentProject.Connection _ 
    , adOpenStatic, adLockReadOnly 
+0

試過你的建議,它給了我同樣的錯誤。我甚至確定我擁有32位版本的辦公軟件,因爲該應用程序在Windows 7上的32位版本上執行。可能是Windows?關於這一點,網上沒有什麼。 – jpl458

0

問題的答案是沒有答案。我剛剛接到了1小時的MS支持電話,他們會讓工程師看看問題的唯一方法就是支付499美元。他們對這個問題沒有答案,或者沒有你能夠得到的答案。問題出在Office 365上,因爲應用程序在Office 10中完美運行。我發佈這個以防其他人遇到此問題。