28,390
社区成员
发帖
与我相关
我的任务
分享
rs.open "select name,money,tel from news order by name",conn,1,1
xm=""
jq=""
lx=""
while not rs.eof
if xm<>rs(0) then
if xm<>"" then conn.execute("insert into zong(xm,jq,lx)values('"&xm&"','"&jq&"','"&lx&"')"
xm=rs(0)
jq=rs(1)
lx=rs(2)
else
'xm=xm&","&rs(0)''''''''''''''''''''这里不用连接了
jq=jq&","&rs(1)
lx=lx&","&rs(2)
end if
rs.movenext
wend
conn.execute("insert into zong(xm,jq,lx)values('"&xm&"','"&jq&"','"&lx&"')"'插入最后一个人的信息
rs.open "select name,money,tel from news order by name",conn,1,1
xm=""
jq=""
lx=""
while not rs.eof
if xm<>rs(0) then
if xm<>"" then conn.execute("insert into zong(xm,jq,lx)values('"&xm&"','"&jq&"','"&lx&"')"
xm=rs(0)
jq=rs(1)
lx=rs(2)
else
xm=xm&","&rs(0)
jq=jq&","&rs(1)
lx=lx&","&rs(2)
end if
rs.movenext
wend
conn.execute("insert into zong(xm,jq,lx)values('"&xm&"','"&jq&"','"&lx&"')"'插入最后一个人的信息
随手打的代码,没测试,大概思路就那样