ASP ACCESS 表1中查找表2的数据 50
有4个表,表1表2表3表4,表1字段:AABBCCDD;表2字段:AA,表3表4同表1,查找表2中AA在表1中出现过的写入表3,没出现过的写入表4。。。比如:表1AA字段...
有4个表,表1表2表3表4,表1字段:AA BB CC DD;表2字段:AA,表3表4同表1,查找表2中AA在表1中出现过的写入表3,没出现过的写入表4。。。比如:表1AA字段有1、2、3、4,表2有:1、2,那么查找后的结果:表3:1、2表4:3、4(AABBCCDD都要写入表3、表4),很简单的题,大家想想
展开
1个回答
展开全部
sql="select * from 表1"
set rs=conn.execute(sql)
if not rs.eof then
do while not rs.eof
sql="select * from 表2 where AA='"&rs("AA")&"'"
set rs1=conn.execute(sql)
if not rs1.eof then
conn.execute("insert into 表3(AA) values('"&rs("AA")&"')")
else
conn.execute("insert into 表4(AA,BB,CC,DD) values('"&rs("AA")&"','"&rs("BB")&"','"&rs("CC")&"','"&rs("DD")&"')")
end if
rs1.close
set rs1=nothing
rs.movenext
loop
end if
rs.close
set rs=nothing
set rs=conn.execute(sql)
if not rs.eof then
do while not rs.eof
sql="select * from 表2 where AA='"&rs("AA")&"'"
set rs1=conn.execute(sql)
if not rs1.eof then
conn.execute("insert into 表3(AA) values('"&rs("AA")&"')")
else
conn.execute("insert into 表4(AA,BB,CC,DD) values('"&rs("AA")&"','"&rs("BB")&"','"&rs("CC")&"','"&rs("DD")&"')")
end if
rs1.close
set rs1=nothing
rs.movenext
loop
end if
rs.close
set rs=nothing
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询