Question

如何asp查询记录集

ASP如何做这样的查询记录。只显示7条ACCESS数据库中的内容 ？因为不是数据源方式连接数据库，是绝对路径连接数据库，所以在DW里无法直接添加查询。不知道怎么写代码！

Answer 1

dim Conn,strConn,rs,strSQL
strConn = "Provider=SQLOLEDB;Data Source=127.0.0.1;User ID=Test;Password=Test;Initial Catalog=Test_DBName"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strConn
if err.number<>0 then
    response.Write "数据库链接失败。" & err.Description 
    response.End 
end if
set rs = server.CreateObject("adodb.recordset")
strSQL = "select title from dbo.tb_e_table"
rs.open strSQL,conn,1,1
If Not rs.eof Then
	'结果集存在，则可输出rs
	response.write rs("title")
End If 
rs.close
Set rs = Nothing 
Conn.close
Set Conn = Nothing

上面的rs就是结果记录集

Answer 2

你好！
给你个提示看看
上面连接数据库
dim rs
rs=server.createobject("adodb.recordset") '设置rs为记录集

rs.open "select 这里是字段名多个的话以,分隔 from 这里是表名 order by id desc",conn,1,1'让记录集打开 表 ,id desc是以id降序排列
do while not rs.eof'如果记录不为空则

这里可以写你的html代码了，但是要注意的是 里面输出数据 是 rs("字段名")，这里要用的字段名必须在 打开记录集的时候写上去，不然会报错，其实在打开的时候也可以用*代替，只是不利于优化而已。

rs.movenext
loop
rs.close
set rs=nothing

希望可以帮到你

追问

你看这样对吗？

'这段可以放在表格或页面中任一位置中

追答

这个应该有 =号的。如

追问

还是有问题，不知道是什么原因？

追答

你 sql语句错了。 ,id desc 去掉
完整查询sql是

rs.open"select ziduan from biao order by id desc",conn,1,1
其中的 order by id desc是按照ID降序排序，也就是显示最新的，也可以order by id asc升序;
其中的 ,conn,1,1是用数据库连接执行，1,1是只读，如果要更新记录的时候是 1,3;
其中要想选择 前10条 可以在 select 后面空格后加 top 10 ，完整是 rs.open"select top 10 ziduan ...;
下面可以判断记录集是否为空如： if rs.eof then 空，else end if;
如果不为空想循环可以用do while 如：
do while not rs.eof '循环所有不为空的数据
这里可以输出了，如html里用 ，变量里用 response.write(rs("id"))
rs.movenext
loop 这个是循环结束
最后刻关闭记录集和数据库如：rs.close
set rs=nothing
conn.close
set conn=nothing

学asp尽量手写代码，多写就会了，还有代码的颜色也可以看出代码是否正常的。
希望能帮到你！

追问

你有QQ吗？有不明白的我在线问你。不知可否！

追答

463004799

Answer 3

rs.open "select top 7 id,biaoti,wangzi from xenwen order by id desc",conn,1,1