asp+access按条件求和 问题
access表名sheetID地址金额日期1北京3007月2上海5007月3北京9007月4南京6008月5北京5007月我的问题是通过筛选7月份北京的所有金额之和!并通...
access表名sheet
ID 地址 金额 日期
1 北京 300 7月
2 上海 500 7月
3 北京 900 7月
4 南京 600 8月
5 北京 500 7月
我的问题是通过筛选7月份北京的所有金额之和!并通过网页输出来!
我很菜!我要一个完整的代码!万分感谢!!满意追加20分! 展开
ID 地址 金额 日期
1 北京 300 7月
2 上海 500 7月
3 北京 900 7月
4 南京 600 8月
5 北京 500 7月
我的问题是通过筛选7月份北京的所有金额之和!并通过网页输出来!
我很菜!我要一个完整的代码!万分感谢!!满意追加20分! 展开
1个回答
展开全部
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
db = "xuesheng.mdb "
connstr = "DBQ=" + server.mappath(""&db&"") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn = server.CreateObject("ADODB.CONNECTION")
conn.Open connstr
%>
<!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=gb2312" />
<title>网站首页</title>
</head>
<body>
<table border="0" width="100%">
<tr>
<td>日期</td>
<td>金额</td>
</tr>
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select 日期,sum(金额) as 金额1 from sheet where 日期='7月' group by 日期"
rs.Open sql, conn, 1, 1
if not rs.eof then
for i=0 to rs.recordcount-1
%>
<tr>
<td>7月</td>
<td><%=rs("金额1")%></td>
</tr>
<%rs.movenext
next
end if%>
</table>
</body>
<%
db = "xuesheng.mdb "
connstr = "DBQ=" + server.mappath(""&db&"") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn = server.CreateObject("ADODB.CONNECTION")
conn.Open connstr
%>
<!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=gb2312" />
<title>网站首页</title>
</head>
<body>
<table border="0" width="100%">
<tr>
<td>日期</td>
<td>金额</td>
</tr>
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select 日期,sum(金额) as 金额1 from sheet where 日期='7月' group by 日期"
rs.Open sql, conn, 1, 1
if not rs.eof then
for i=0 to rs.recordcount-1
%>
<tr>
<td>7月</td>
<td><%=rs("金额1")%></td>
</tr>
<%rs.movenext
next
end if%>
</table>
</body>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
