如何用ASP+ACCESS数据库做条件查询的页面，然后显示出来

Question

如图片

Answer 1

按照图片，就是得建立三个input文本框，字段，提交检索的时候获取三个字段值，通过where sql语句过滤

sid = request("sid") '学号
sname = request("sname") '学生名称
szhuanye = request("szhuanye") '专业

'判断字段是否有输入文字，链接查询
sql = "select * from s where sname <> ''" '先写个判断条件，省的下面得在做是否加and条件查询

if sid <> "" then
sql = sql + " and sid = " & sid

end
if sname <> "" then
sql = sql + " and sname like '%& sname &%'

end
if szhuanye <> "" then
sql = sql + " and szhuanye like '%& szhuanye &%'

end
首先建立oledb数据库链接，
其次创建记录集对象，写好条件查询sql，打开记录集，
最后使用while wend循环输出记录

大致步骤如下：

dataaccess = server.mappath("data/xxx.mdb")
'连接OLEDB
Set oConn = Server.CreateObject("ADODB.CONNECTION")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dataaccess

最后使用的时候都是先建立rs对象，写好sql，打开记录集就可以取数据了
set rsTemp=Server.CreateObject("adodb.recordset")
sql = "select top 10 * from [tablexxx] order by id where title <> ''" 'where就是条件查询啦
rsTemp.open ,oConn ,1,1
if not rsTemp.eof then
while not rsTemp.eof

response.write("输出数据啦"&rsTemp("id"))
rsTemp.movenext

wend

end if

Answer 2

For a description of your如何用ASP+ACCESS数据库做条件查询的页面，然后显示出来，
带着你的问题和Email来找我,
如果你有更多的要求也可以告诉我们,
有时间可以帮你,
百度_Hi联系我,
此回复针对所有来访者和需求者有效,
ES:\\3DCF556D6FEAACE13BA5AED18578E200

Answer 3

查询语句
sql="select * from 表 where 字段 like '%"查询内容"%' order by 字段"
conn.execute sql
response.write sql
response.end
记得释放内存

Answer 4

这个问题我也遇到过,当时我查了很多资料,但最后我都没有采用,请问你是导入到什么数据库,如果是SQL的话,打开你要导入的数据库的表项,点右键,点所有任务中的导入数据后,下一步.把数据源里改成EXCEL,下一步,后面怎么做,你应该就知道了吧~如果不行的话,就把EXCEL的数据粘贴到记事本上,把数据源改成文本文件,其他的和刚才的一样,我当时就是这样搞的,你安这方法的话,绝对能把数据搞到数据库中,
access我没怎么用过,就不知道了
以下是复制的希望有用。

完整的关键代码应该是：
注：我把关键代码都写在一起了，方便阅读。
你先是的一条记录问题因该出在没有循环数据库数据，这里我用了 Do wihle not Rs.eof,意思是如果记录没有到了最后，则继续循环。
<!--#include file="Conn.asp"-->
<%
id = Trim(Request("id"))
If id = "" Then
Response.Redirect"index.asp"
Else
Set Rs=Conn.execute("select * from 表名 where id='" & id & "'") '根据id条件查询数据库
If id <> Rs("id") Then '判断数据库中有没有id值
Response.Redirect"index.asp" '如果没有，则跳转到index.asp页
Else '如果有的话循环输出数据库所有记录，也可以跳转到xianshi.asp页面然后在循环输出，道理一样的。
Do While Not Rs.Eof '如果RS记录没有到记录尾，则继续循环
Response.Write("<div>"))
Response.Write(Rs("id"))'循环输入需要的字段值
Response.Write("</div>")
Rs.movenext '移动到下一个记录
Loop
End if
End if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>

Answer 5

这恐怕一言难尽啊，找本asp的书看吧~~