就寫了一句話，就提示 Dim Rs As New ADODB.Recodset 用戶定義型別未定義
代碼就一行
Option Compare Database
Sub tt()
Dim Rs As New ADODB.Recodset
End Sub
網上很多人說是參考的問題 （工具---參考 ）我已經參考了Microsoft ActiveX Data Objects 2.8 Library。關鍵是我換了三臺機器 都提示這樣的錯誤，
目前的系統是windows 2003 + office 2010
求救高人，除了參考，還得進行什么操作
uj5u.com熱心網友回復：
Dim Rs As New ADODB.Recodset拼寫錯誤！！！
正確的應該是下面的：
Dim Rs As New ADODB.Recordset
uj5u.com熱心網友回復：
謝謝樓上，確實 寫錯了。Dim cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
strSQL = "select * from 物理站址編號"
Rs.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdText
If Not Rs.BOF And Not Rs.EOF Then
strSQL = "insert into 需要生成匯總表tt(物理站址編號) values(Rs!物理站址編號)"
CurrentProject.Connection.Execute strSQL
End If
這個陳述句中Rs!物理站址編號如果改成常量是對的，寫成Rs!物理站址編號 就不對。哪里有問題？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/103779.html
標籤：VBA
上一篇：點一個按鈕則運行此exe
下一篇：跪求：想更改程式的顯示設備解析度