如何同时打开两个表

[K8T800]

我要同时打开两个表
因为两个表我是通过里面的某个字段关联的，
如下：老是出错
sql="select * from message order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 1,1
set rs0=server.CreateObject("adodb.recordset")%>
do while not rs.eof and rowcount<rs.pagesize
sql0="select * from member where user_name="&rs("name")
s0.open sql0, conn, 1,1

....................

rowcount=rowcount+1
rs.MoveNext
loop


Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft JET Database Engine 错误 '80004005'

机器 'COMMONOR-8E05C9' 上的用户 'Admin' 以独占方式的锁定数据表 'message'。

/qihang/guest/index.asp，行12

[MonkeyDHua]

sql1="select * from message order by id desc"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1, conn, 1,1

sql2="select * from message order by id desc"
set rs2=server.createobject("adodb.recordset")
rs2.open sql2, conn, 1,1

[K8T800]

更正一下
我要同时打开两个表
因为两个表我是通过里面的某个字段关联的，
如下：老是出错
sql="select * from message order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 1,1
set rs0=server.CreateObject("adodb.recordset")%>
do while not rs.eof and rowcount<rs.pagesize
sql0="select * from member where user_name="&rs("name")
s0.open sql0, conn, 1,1 98行

....................

rowcount=rowcount+1
rs.MoveNext
loop

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft JET Database Engine 错误 '80040e10'

至少一个参数没有被指定值。

/qihang/guest/index.asp，行98

[kirinboy]

s0.open sql0, conn, 1,1 98行
~~~~~~~~~~~~~~~~~~~~~
不是应该是rs0吗？

[Iamarmy]

联结查询，去看看sql语句方面的知识。
比如
Student:id,name,age,GroupID
Group:ID,name
如要把所有学生中属于某同一类别的学生找出来，可以这样写sql
SQL：select Student.*,Group.* from Student,Group where Student.GroupID = Group.ID and Group:ID = 1

[simoncheung]

參考一下下面的代碼


<% language="vbscript"
set rs=server.createobject("adodb.recordset")
rs.open "select count(*) as sl from orderProduct where vLoginName='"&LoginName&"'",con
sl=rs("sl")
rs.close
rs.open "select cOrderid from orderProduct where vLoginName='"&LoginName&"'",con
if rs.bof or rs.eof then
response.redirect "error1.asp?error=004"
else
redim preserve orderitem(sl)
i=0
while not rs.eof
orderitem(i)=rs("cOrderID")
i=i+1
rs.movenext
wend
end if
rs.close
end if
for i=0 to sl
RS.open"select * from shopperCard where cOrderid= '"&orderitem(i) &"'",con
%>

[sheng9hhd]

1.机器 'COMMONOR-8E05C9' 上的用户 'Admin' 以独占方式的锁定数据表 'message'。
--->调试时请关闭桌面上已打开的access表结构
2.sql0="select * from member where user_name="&rs("name")
s0.open sql0, conn, 1,1 98行
--->
sql0="select * from member where user_name='" & rs("name") & "'"
rs0.open sql0,conn,1,1 98行

[Iamarmy]

sql0="select * from member where user_name="&rs("name")
有错误
可以改成
sql0="select * from member where user_name=""" & rs("name") & """"