UC知道MYSQL自动化错误
来源：百度知道 编辑：UC知道 时间：2024/06/02 13:18:42
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = CreateObject("ADODB.Connection")
strCn = "driver=mysql odbc 3.51 driver;" & _
"server=localhost;" & _
"database=bugs;" & _
"uid=root;" & _
"pwd=root"
cn.Open strCn
strQuery = "select * from components as a where product_id = '2'"
Set rs = cn.Execute(strQuery)
MsgBox rs.Fields("name")
原代码是这样的，在执行cn.Open strCn时报自动化错误，ADO2。8和ADO RECORDSET已引用，请问这是什么问题。。。
Dim cn As ADODB.Connection
Set cn = CreateObject("ADODB.Connection")
strCn = "driver=mysql odbc 3.51 driver;" & _
"server=localhost;" & _
"database=bugs;" & _
"uid=root;" & _
"pwd=root"
cn.Open strCn
strQuery = "select * from components as a where product_id = '2'"
Set rs = cn.Execute(strQuery)
MsgBox rs.Fields("name")
原代码是这样的，在执行cn.Open strCn时报自动化错误，ADO2。8和ADO RECORDSET已引用，请问这是什么问题。。。
自动化错误（错误 440）
当访问 Automation 对象时，发生了特定类型的错误。此错误有以下原因和解决方法：
当执行某个方法时，或是得到或设置对象变量的属性时，发生了此错误。创建此对象的应用程序会报告此错误。
检查 Err 对象的属性以决定错误的来源和性质。同样地，也可以在访问语句前，直接使用 On Error Resume Next 语句，然后在访问语句后检查错误。