求ASP查询ACCESS数据库代码

wsmhzyaba 2008-04-11 09:45:27
求ASP查询ACCESS数据库代码
数据库名字是zhongyi
数据表名是mincheng
查找其中的所有xingming


求ASP查询ACCESS数据库代码
求ASP查询ACCESS数据库代码
求ASP查询ACCESS数据库代码
...全文
774 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
philcc 2008-04-11
<%
'数据库连接
dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("zhongyi.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (数据库路径)};"
Set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<body>
<%
Sql="select xingming from mincheng "
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open sql,conn,1,1
If mRs.bof and mRs.eof then
Response.Write"<span>没有记录</span>"
Else
while not mRs.eof
response.Write mRs("xingming") & "<br>"
mRs.movenext
wend
End If
%>
</body>
<%
conn.close
mRs.close
set conn = nothing
set mRs = nothing
%>
回复
叶随风 2008-04-11
select xingming from [mincheng]
回复
No_Data_Found 2008-04-11
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
</head>
<%
'数据库连接
dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("zhongyi.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" '数据库连接地址
Set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<body>
<%
Sql="select xingming from mincheng "
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open sql,conn,1,1
If mRs.bof and mRs.eof then
Response.Write"<span>没有任何记录</span>"
Else
while not mRs.eof
response.Write mRs("xingming") & "<br>"
mRs.movenext
wend
End If
%>
</body>
<%
conn.close
mRs.close
set conn = nothing
set mRs = nothing
%>
</html>
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-04-11 09:45
社区公告
暂无公告