如何读取两个表！ - 编程论坛

#2

zmh8862011-02-01 22:15

把后面的rs改成rs2

#3

xing5996662011-02-02 01:36

好像不行哦。
sql="select * from A表 where Ax_ding=true order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof Then
response.write "暂无一级分类"
end if
do while not rs.eof
response.write "这是一级分类"

sql="select * from B表 where Ax_CID="&rs("ID")&" order by id desc"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
if rs2.eof and rs2.bof Then
response.write "暂无暂无二级分类"
end if
do while not rs2.eof
response.write "这是二级分类"
rs2.movenext
loop
rs2.close
set rs2=Nothing

rs.movenext
loop
rs.close
set rs=Nothing

#4

xing5996662011-02-02 01:37

标准表达式中数据类型不匹配。

[ 本帖最后由 xing599666 于 2011-2-2 01:41 编辑 ]

#5

zmh8862011-02-02 18:01

加了个单引号试试
sql="select * from B表 where Ax_CID='"&rs("ID")&"' order by id desc"

#6

tandezhong2011-02-11 17:13

回复 3楼 xing599666

只有本站会员才能查看附件，请登录

你是要这个效果吗..?
<%
           set re=server.CreateObject("adodb.recordset")
           sql="select ID,NewsTree,NewsConten from NewTree where NewsTree='0' order by ID Desc"
           re.open sql,Admin_b,1,3
      %>
      <%
           do while not re.eof
           d=re("ID")
      %>
       <dd><font style="color:#09F; font-size:14px;"><%if len(re("NewsConten"))>7 then response.Write left(re("NewsConten"),7)&".." else response.Write re("NewsConten") end if%></font>  <a href="ATreeEdit.asp?Aid=<%=d%>" target="right">编辑</a>  删除
        <dl>
        <%
         set rs=server.CreateObject("adodb.recordset")
         sql_t="select ID,NewsTree,NewsConten from NewTree where NewsTree='"&d&"'"
         rs.open sql_t,Admin_b,1,3
        %>
        <%
        do while not rs.eof
        dd=rs("ID")
        %>
         <dt><% if len(rs("NewsConten"))>7 then response.Write left(rs("NewsConten"),7)&".." else response.Write rs("NewsConten") end if%>  [<a href="TreeEdit.asp?id=<%=dd%>" target="right" class="txt_01">编辑</a>] [<a href="javascript:Tree_de(<%=dd%>)" target="right" class="txt_01">删除</a>]</dt>
         <%
         rs.movenext
         loop
         rs.close
         set rs=nothing
        %>
        </dl>
        </dd>
        <%
        re.movenext
        loop
        re.close
        set re=nothing
        %>

#7

xing5996662011-02-11 17:23

是的