asp 如何将一个表中的某一个字段中的所有数据提取出来,组成一个集合写入到另外一个表中。 5
asp如何将一个your表中的个字段zzz中的所有数据提取出来,组成一个集合zz(例如:5|10|5|6|3...|7|1)写入到另外一个表tai中的字段tta中...
asp 如何将一个your表中的个字段zzz中的所有数据提取出来,组成一个集合zz(例如:5|10|5|6|3...|7|1)写入到另外一个表tai中的字段tta中
展开
1个回答
展开全部
其实做法是一样的,只要修改表和字段就好了,其他的稍作判断整合就可以了
开两次记录集,第一次重组记录值,以特色符号分割开,组成字符串,第二次开启并写入另外的表中
Dim zz
zz = ""
sql = "select zzz from [your] order id desc"
set rs = server.createobject("adodb.recordset")
rs.open sql ,conn ,1 ,1
if not rs.eof then
KK = 0
while not rs.eof
if KK = 0 then
zz = zz & rs("zzz")
else
zz = zz & "|" & rs("zzz")
end if
KK = KK + 1
rs.movenext
wend
sqlstr = "select tta form [tai] order id desc"
rs.open sqlstr ,conn ,1 ,1
rs.addnew
rs(0) = zz
rs.update
rs.close
set rs = nothing
else
response.write("没有记录")
response.end()
end if
开两次记录集,第一次重组记录值,以特色符号分割开,组成字符串,第二次开启并写入另外的表中
Dim zz
zz = ""
sql = "select zzz from [your] order id desc"
set rs = server.createobject("adodb.recordset")
rs.open sql ,conn ,1 ,1
if not rs.eof then
KK = 0
while not rs.eof
if KK = 0 then
zz = zz & rs("zzz")
else
zz = zz & "|" & rs("zzz")
end if
KK = KK + 1
rs.movenext
wend
sqlstr = "select tta form [tai] order id desc"
rs.open sqlstr ,conn ,1 ,1
rs.addnew
rs(0) = zz
rs.update
rs.close
set rs = nothing
else
response.write("没有记录")
response.end()
end if
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询