Question

excel VBA 求助

Sub 测试()Dim cn As New ConnectionDim rs As New RecordsetDim data As New 数据库 cn.Open data.Access数据库''''''''''''' SQL = "Update [MH报价] Set 类型='abcdefg' Where ID='38'"SQL = "Update [MH报价] Set((MH报价.类型)='刺桐') Where ((MH报价.ID) =38)" cn.Execute SQL End Sub哪里错了？

Answer 1

没有做好 ADO 对象的前期绑定？
VBE 窗口—工具—引用—勾选 Microsoft ActiveX Data Object 6.1 Library