Question

实际上每次我使用Early绑定代码来使用ADODB连接时，不过现在我想使用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

Answer 1

您是晚期绑定，因此adOpenDynamic / adLockOptimistic之类的枚举不存在＆amp;默认为空变体。

在代码中将它们定义为consts，ADOVBS.INC列出其名称和＆amp;值。

Const adOpenDynamic = 2
Const adLockOptimistic = 3

Excel VBA ADODB晚期绑定错误

1 个答案: