同一个数据库同时调用两个表,?

[erlzj]

我的数据库中有两个表,
一个class,news
claas里有type,等字段
NEWS里我直接调内容了,
现在我要调type的值不等于1,news里的前10条信息,按ID降序!
set cn=server.createobject("adodb.connection")
cn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("news-new/news.mdb")
set rs=server.createobject("adodb.recordset")
sql="select top 9 * from news where and judge>='2'order by judge desc,id desc"
rs.open sql,cn,1,1


还要再加些什么东西呢?

[erlzj]

在线等待中!

[erlzj]

UP!

[xelibri]

你的描述不是很清楚
我想大概是这样，type 是新闻的类型，news 是新闻内容了

这样解决，两重循环

'先见好你的连接
set conn=server.createobject("adodb.connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("news-new/news.mdb")

set rs=server.createobject("adodb.recordset")
sql="select * from class where type<>1"
'先取出所有不等于1的type值
rs.open sql,conn,1,1
'第一层循环
do while not rs.eof
type=rs("type")
set Ts=server.createobject("adodb.recordset")
sql="select * from news where type="&type
Ts.open sql,conn,1,1
do while not ts.eof
'进行你需要的操作
loop
ts.close
set ts=nothing
loop
rs.close
set rs=nothing
conn.close
set conn=nothing

[stayhere]

如果class中的id与news中的id一一对应则如下:
sql="select top 9 news.* from news,class where class.id=news.id and class.type='1' and news.judge>='2'order by news.judge desc,news.id desc"
如果是其他情况,请参考上面的语句变通一下.

[lei4546]

楼上的可行

[erlzj]

<%
set cn=server.createobject("adodb.connection")
cn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("news-new/news.mdb")
set ts=server.createobject("adodb.recordset")
sql="select * from class where type<>21"
ts.open sql,cn,1,1
do while not ts.eof
type=ts("type")
set rs=server.createobject("adodb.recordset")
sql="select top 9 * from news where judge>='2'order by judge desc,id desc"
rs.open sql,cn,1,1
loop


我这样写的,错了!
Microsoft VBScript compilation (0x800A0400)
Expected statement
/xcx/index.asp, line 24
type=ts("type")

[erlzj]

问题解决了,谢谢!

[erlzj]

按照这个方法做的话:
发生错误!
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC driver does not support the requested properties.