ASP access 批量 添加 数据

ASP access 批量 添加 数据

数据库连接和创建记录集我不讲了.
假设只有两个字段xxx和yyy

读取部分:
dim val
val=""
do while not rs.eof
val=val + rs("xxx") + "-" + rs("yyy") + "|"
rs.movenext
wend
设一个隐藏域,把那个val的值放到隐藏域去

上面val集中所有值到一个字符串,以"-"相连的属于同一行,以"|"相连代表另外一行数据

数据处理部分:
val = request.form("val")
dim a
a = split(val,"|")
length = ubound(a)
把前面拿到的值,以"|"分隔符变成数组a,这样a(0)就是要插入的第一条数据了.并获得数组下标的值

dim b(length)
for i=0 to length do
b = split(a(i),"-")
Conn.Execute("INSERT INTO 表(xxx, yyy) VALUES('"& b(0) &"', '"& b(1) &")
next

把a(i)以"-"为分隔符变成数组b,这样b(0)和b(1)就是要插入行的xxx和yyy的值.然后写入数据库,循环.

上面是我的思路.具体代码可能会有错.改一下应该可以嘀....
最后,要是有更好的办法,麻烦告诉我一下~俺vb用得较少,不是很清楚...