mysql - ADODB 记录集在传递带有 UNION 的 sql 查询时引发错误

Question

我有一些类似于以下代码的东西。它不断向我抛出一个错误，说明

Microsoft VBScript 运行时错误“800a01b6”

对象不支持此属性或方法：“打开”

UNION 可能是问题所在。请帮忙！

//包含连接字符串

<%
SQL = "(SELECT a as id , b as url FROM tbl_a) UNION (SELECT c as id , d as url FROM tbl_b )"

rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,objConn,3,3

if not rs.eof then

    do while not rs.eof
        response.Write(rs("url") & "<br/>")
        rs.movenext
    loop
else
    Response.Write("not found")

end if
%>

Answer 1

创建记录集对象时需要使用Set语句

Set rs=Server.CreateObject("ADODB.Recordset")