2.8w+
社区成员
- 主页
如何同时打开两个表
我要同时打开两个表
因为两个表我是通过里面的某个字段关联的，
如下：老是出错
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
因为两个表我是通过里面的某个字段关联的，
如下：老是出错
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
...全文
请发表友善的回复…
发表回复
Iamarmy 2004-04-12
sql0="select * from member where user_name="&rs("name")
有错误
可以改成
sql0="select * from member where user_name=""" & rs("name") & """"
有错误
可以改成
sql0="select * from member where user_name=""" & rs("name") & """"
sheng9hhd 2004-04-12
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行
--->调试时请关闭桌面上已打开的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行
simoncheung 2004-04-12
參考一下下面的代碼
<% 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
%>
<% 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
%>
Iamarmy 2004-04-11
联结查询，去看看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
比如
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
kirinboy 2004-04-11
s0.open sql0, conn, 1,1 98行
~~~~~~~~~~~~~~~~~~~~~
不是应该是rs0吗？
~~~~~~~~~~~~~~~~~~~~~
不是应该是rs0吗？
K8T800 2004-04-11
更正一下
我要同时打开两个表
因为两个表我是通过里面的某个字段关联的，
如下：老是出错
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
我要同时打开两个表
因为两个表我是通过里面的某个字段关联的，
如下：老是出错
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
MonkeyDHua 2004-04-11
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
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