asp 列求和

數據庫名稱:db.mdb 表1的名稱:aaa1 表2的名稱:aaa2

表1的內容如上,表2的內容為1條記錄為0的C,用以下程序可以實現:

<%

set conn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db.mdb")

exec="select * from aaa1"

set rs=server.createobject("adodb.recordset")

rs.open exec,conn,1,1

dim sum

sum=0

do while not rs.eof

sum=sum+rs("C")

rs.movenext

loop

rs.close

set rs=nothing

exec="select * from aaa2"

set rs=server.createobject("adodb.recordset")

rs.open exec,conn,3,3

rs("C")=sum

rs.update

rs.close

set rs=nothing

response.write "總和等於："&sum&",已保存入數據庫aaa2中"

%>

上一篇:易語言誰幫我制作壹個隨機抽選名字或數字的源碼

下一篇:洛陽九州代駕怎麽樣