Question

求ASP中用SQL查询三个数据库，更新数据

三个表的关系是：
表1中的d_dengji对应表3中的z_zsdengji, d_mc对应表2中的各个字段名
表2中的t_fenlei对应表3 中的z_fenlei
现在要计算表3中z_jiangjin显示“未计算”的值
也就是表3z_fenlei=表2T_fenglei，表3Z_zsdengji＝表1D_dengji（其表2的D_mc对应在表2中的字段值）来对表3中的未计算的进行计算，得出具体的值。
是ACCESS数据库，望高手给出完全的能算出结果的代码
数据库的链接代码就不用了。我太菜，尽量写完整些，谢谢
数据库我上传到360云盘了，高手下载给我测试一下，代码一定要可用，我真的太菜了。
==================================================================
别人给我如下代码：
rs1.open select * from dengji do while not rs1.eofrs2.open select rs1(“d_mc”) as aaaa from tongji where t_fenlei=rs1(“d_dnegji”)update zhengjian set z_jiangjin=rs2("aaaa") where z_zsdengji=rs1(“d_dnegji”)loop
但运行时显示
语法错误/Jjcount.asp, line 20, column 9 rs1.open select * from dengji
这样的写法可以吗，为什么语法错误rs1.open select * from dengji





Answer 1

dim sql,D_mc
sql="select * from ZhengJian where Z_jiangjin='未计算'"
set rs=conn.execute(sql)
do while not rs.eof
set rs1=conn.execute("select D_mc from Dengji where D_Dengji='"&rs("Z_zsdengji")&"'")

if not(rs1.eof and rs1.bof) then
D_mc=rs1("D_mc")
else
response.write("数据表1数据不存在")
end if

set rs2=conn.execute("select "&D_mc&" from Tongji where T_fenlei='"&rs("Z_fenlei")&"'")
if not(rs2.eof and rs2.bof) then
conn.execute("upeate ZhengJian set Z_jiangjin='"&rs2(D_mc)&"' where Z_jiangjin='未计算'")
response.write("数据表2数据不存在")
end if
rs.movenext
loop

没测试，你看看吧，我也比较笨。你这个要求，应该是可以直接用一句SQL来完成的，但我不会写。上面代码可能会有错误，自己看看理解吧

追问

对，就是要将“未计算”这字段更新为所对应的的奖金值

追答

想用VB代码的那个功能，结果出现上面的那些东西，下面是我写的

dim sql,D_mcsql="select * from ZhengJian where Z_jiangjin='未计算'"set rs=conn.execute(sql)do while not rs.eofset rs1=conn.execute("select D_mc from Dengji where D_Dengji='"&rs("Z_zsdengji")&"'")if not(rs1.eof and rs1.bof) thenD_mc=rs1("D_mc")elseresponse.write("数据表1数据不存在")end ifset rs2=conn.execute("select "&D_mc&" from Tongji where T_fenlei='"&rs("Z_fenlei")&"'")if not(rs2.eof and rs2.bof) thenconn.execute("upeate ZhengJian set Z_jiangjin='"&rs2(D_mc)&"' where Z_jiangjin='未计算'")response.write("数据表2数据不存在")end ifrs.movenextloop

追问

结果不正确，值未改变。ASP运行后显示：数据表2数据不存在数据表2数据不存在数据表2数据不存在

追答

dim sql,D_mc
sql="select * from ZhengJian where Z_jiangjin='未计算'"
set rs=conn.execute(sql)
do while not rs.eof
set rs1=conn.execute("select D_mc from Dengji where D_Dengji='"&rs("Z_zsdengji")&"'")
 
if not(rs1.eof and rs1.bof) then
D_mc=rs1("D_mc")
else
response.write("数据表1数据不存在")
end if
 
set rs2=conn.execute("select "&D_mc&" from Tongji where T_fenlei='"&rs("Z_fenlei")&"'")
if not(rs2.eof and rs2.bof) then
conn.execute("update ZhengJian set Z_jiangjin='"&rs2(D_mc)&"' where Z_jiangjin='未计算'")
else
response.write("数据表2数据不存在")
end if
rs.movenext
loop

 上面那个出了两处错误，少写了个else，还有update写成了upeate……

追问

结果是原来的“未计算”全部变成了空值。还是不正确

追答

你测试一下，D_mc有没有值
它是取的rs1("D_mc")，也就是说，它应该是表2中的那些奖金字段
那么rs2(D_mc)应该就可以获取到表2中的奖金数值
你把update那儿的语句，改为下面，测试一下，可以不，（注意备份你的数据库）
conn.execute("update zhengjian set z_jiangjin='100' where z_jiangjin='未计算'")

追问

测了，第1个D_mC有值，也就是字段名有了，但第2个就取不到值了。今天休息了，明天再试，谢谢您。晚安，您也早点休息

追答

set rs2=conn.execute("select "&D_mc&" from Tongji where T_fenlei='"&rs("Z_fenlei")&"'")
我想可能是这儿的问题吧
D_MC有值，说明select "&D_mc&" 这儿没什么问题的
是不是后面where T_fenlei='"&rs("Z_fenlei")&"'的问题？两个表中的这个字段值不相同？要不就加个trim来试试，改为where T_fenlei='"&trim(rs("Z_fenlei"))&"'"

还有，你把conn.execute("update ZhengJia这句，先去掉，改为
response.write(rs2(D_mc))看看是不是会显示出那些数字值

追问

好，明天试试，谢谢了

Answer 2

<%
Set rs=server.CreateObject("adodb.recordset")
sql="Select * From dengji order by d_id desc"
rs.open sql,conn,1,1
do while not rs.eof
    Set rs1=server.CreateObject("adodb.recordset")
sql1="Select "&rs("d_mc")&" as aaaa From tongji where t_fenlei='"&rs("d_dengji")&"' order by d_id desc"
rs1.open sql1,conn,1,1
if not rs1.eof then
jiangji=rs1("aaaa")
end if
rs1.close
set rs1=nothing

conn.execute("update zhengjian set z_jiangjin="&jiangjin&" where z_zsdengji='"&rs("d_dengji")&"' ")

rs.movenext
loop
rs.close
set rs=nothing
%>

不知道行不行，大概就是这样

追问

jiangji=rs1("aaaa")改成了jiangjin，和下面对应，但运行后，Z_jiangjin值仍未改变，还是未计算。

追答

<%
Set rs=server.CreateObject("adodb.recordset")
sql="Select * From dengji order by d_id desc"
rs.open sql,conn,1,1
do while not rs.eof

Set rs1=server.CreateObject("adodb.recordset")
sql1="Select t_feilei, "&rs("d_mc")&" as aaaa From tongji where t_fenlei='"&rs("d_dengji")&"' order by d_id desc"
rs1.open sql1,conn,1,1
if not rs1.eof then
jiangjin=rs1("aaaa")
fenlei=rs1("t_feilei")
end if
rs1.close
set rs1=nothing
 
conn.execute("update zhengjian set z_jiangjin="&jiangjin&" where z_fenlei='"&fenlei&"' ")
 
rs.movenext
loop
rs.close
set rs=nothing
%>

追问

还是未能计算出来，我补充里有数据库，麻烦给我测试一下。

追答

QQ 1441352871

Answer 3

做任务，帮你顶一顶。