日期:2014-05-17  浏览次数:20925 次

asp,vbscript,一次性插入到表中多条不同的记录
从某一表中读出一个人的联系方式,在tele字段下存有N多号码,并用逗号分开,我想将这N多号码分成N条记录,写到另一张表里,请问怎么做,谢谢。。。我只会做一次插入一条记录的,多谢了。

------解决方案--------------------
uname = rs( "name ").Value
tele = rs( "tele ").Value
arr = split(tele, ", ")

Dim aFlds(1), aVals(1) ' 假设另一张表有两个字段 username和tele
aFlds(0) = "username "
aFlds(1) = "tele "

Set rs2 = CreateObject( "ADODB.RecordSet ")
rs2.cursorLocation = 3
rs2.open "SELECT username, tele FROM table2 WHERE 1=0 ",conn, 1,4
For i = 0 To UBound(arr)
aVals(0) = uname
aVals(1) = arr(i)
rs2.AddNew aFlds, aVals
Next
rs2.UpdateBatch
rs2.close
Set rs2 = Nothing
conn.close
Set conn = Nothing


------解决方案--------------------
query = Split(字符串, ", ")
For Each x In query
response.writeline(x) '输出的就是以 ", "格开一条条的
next