vba - Excel VBA ADODB后期绑定(bind)错误

实际上，每次我都使用Early绑定(bind)代码来使用ADODB Connection时，但是现在我想使用Late Binding Code。
据我看来，代码似乎是完美的，但我却不知道如何得到错误，例如“参数类型错误，超出可接受范围或彼此冲突”。

Sub Test()
Dim cn As Object
Dim rs As Object
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RecordSet")
cn.Open "Provider=Microsoft.JET.Oledb.4.0;Data Source=Y:\Operational Non Sensitive\Avon UK\UK Voice Productivity\UK AHT Report_.mdb"
rs.Open "Table1", cn, adOpenDynamic, adLockOptimistic
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

最佳答案

您的绑定(bind)时间较晚，因此adOpenDynamic/adLockOptimistic之类的枚举不存在且默认为空变体。

在代码中将它们定义为const，ADOVBS.INC列出它们的名称和值。

Const adOpenDynamic = 2
Const adLockOptimistic = 3

关于vba - Excel VBA ADODB后期绑定(bind)错误，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/35434082/