asp 怎么从循环外逐个取的循环内的每一个值

[川娃子]

数据表
s1,s2
表结构
s1——id,name
s2——id,sid,name
表关系
s1.id=s2.sid
实现什么功能(注:在这里不能使用嵌套循环，否则就没有那种效果了)

dim id
set rs_s1 = server.createobject("ADODB.Recordset")
sql = "select * from s1"
rs_s1.open sql,conn,1,1
if not rs_s1.eof then
do while not rs_s1.eof
id=rs_s1("id")
rs_s1.movenext
loop
end if
rs_s1.close
set rs_s1 = nothing

set rs_s2 = server.createobject("ADODB.Recordset")
sql = "select * from s2 where sid="id
rs_s2.open sql,conn,1,1
if not rs_s2.eof then
do while not rs_s2.eof
rs_s2("name")
rs_s2.movenext
loop
end if
rs_s2.close
set rs_s2 = nothing

这样写是错误的在第一个循环中id=循环完了的最后的rs_s1("id")对第二个循环就没意义了
我想的是通过什么方法可以逐个获取第一个循环中的每一个值再传给第二个循环中
不知道我这样说的清楚不，那就麻烦各位帮帮忙啊！

[wtg321]

没看明白楼主要干什么。不过可以参考一下INNOR JOIN 和LEFT JOIN 的用法。

[heatonc]

LZ想 嵌套循环？

[ilxl520]

set rs_s1 = server.createobject("ADODB.Recordset") 
sql = "select * from s1" 
rs_s1.open sql,conn,1,1  
do while not rs_s1.eof
set rs_s2 = server.createobject("ADODB.Recordset") 
sql = "select * from s2 where sid="&rs_s1("id")
rs_s2.open sql,conn,1,1 
do while not rs_s2.eof 
rs_s2("name") 
rs_s2.movenext 
loop 
rs_s1.movenext 
loop 

do while就是由判断功能的，不需要加另外加if判断

[ly8199]

不知道你是要实现什么样的功能。。。。
怎么会有这种想法。。。。。

嵌套循环 不要 ，那写成 函数，调用呗。。。

[王者coco]

嵌套循环有点麻烦

[川娃子]

我想做两个循环使其效果和嵌套循环一样
s1表数据是
1 a
2 b
3 c
4 d
5 e
s2表数据是
001 1 a1
002 2 b2
003 3 c3
004 4 d4
005 5 e5

运行效果
a a1
b b2
c c3
d d4
e e5

在这里不用嵌套循环 怎么实现
帮帮忙啊 我都等了一天的答案了 现在还没有结果

[gxq323]

hookee老大的就对用in，估计是字符串没仔细拼，你仔细拼下拼成 “1,2,3 ”这种格式的

[Msxindl_Com]

试试这个:

sql="select * from s1 inner join s2 on s1.id = s2.sid"

[hookee]

dim id, ids
ids = ""
set rs_s1 = server.createobject("ADODB.Recordset") 
sql = "select * from s1" 
rs_s1.open sql,conn,1,1 
if not rs_s1.eof then 
do while not rs_s1.eof 
  ids = rs_s1("id") & ","
rs_s1.movenext 
loop 
end if 
rs_s1.close 
set rs_s1 = nothing 

If ids <> "" Then ids = Left(ids, Len(ids)-1) 

set rs_s2 = server.createobject("ADODB.Recordset") 
sql = "select * from s2 where sid IN (" & ids & ")" 
rs_s2.open sql,conn,1,1 
if not rs_s2.eof then 
do while not rs_s2.eof 
rs_s2("name") 
rs_s2.movenext 
loop 
end if 
rs_s2.close 
set rs_s2 = nothing

[川娃子]

多谢了
但是你代码不完善
这里要改改ids = rs_s1("id") & ","
ids = ids & rs_s1("id") & ","

[川娃子]

问题还没有解决 下面补充说一下问题
hookee 把第一个循环的每个值取出来了
但第二个循环还是没有意义 即第二个循环只执行了一次
我想要的效果是当第一个循环执行一次时第二个循环也要执行一次
就像嵌套循环一样，但我又不能做成嵌套循环 要的是效果一样

[ly8199]

dim id, ids
ids = ""
set rs_s1 = server.createobject("ADODB.Recordset")
sql = "select * from s1"
rs_s1.open sql,conn,1,1
if not rs_s1.eof then
do while not rs_s1.eof
ids = ids & rs_s1("id")
rs_s1.movenext
if not rs_s1.eof then ids = ids & ","
loop
end if
rs_s1.close
set rs_s1 = nothing

ids = split(ids,",")

For i = LBound(ids) To UBound(ids)
set rs_s2 = server.createobject("ADODB.Recordset")
sql = "select * from s2 where sid="&ids(i)
rs_s2.open sql,conn,1,1
if not rs_s2.eof then
do while not rs_s2.eof
rs_s2("name")
rs_s2.movenext
loop
end if
rs_s2.close
set rs_s2 = nothing
Next

[anjing5566]

联合查询？
如11楼的那个？