一次增加20条记录,一次修改20条记录(access数据库) 解决马上结帖

[solardu]

以前经常用的是一次增加一条记录，一次修改一条记录。

一次增加多条我就不会了。

希望能给出完全一点的代码！ 包括表单怎么写，保存多条记录，修改多条记录！

解决马上结帖，



在此表示感谢!

[up1002]

这还要看你是怎么把多条信息提交上去的。

[popcom]

对要看你怎么提交这些信息的。
用sql很容易实现多条记录同时更新的

[solardu]

怎么个做法！ 有代码吗？

[popcom]

要看你提交什么样的信息了。

你要是表单提交，你提交多少信息。是不是一个表格里面进行添加多条数据？

[Swanzy]

<td>
<input name="<%=rs("PI_requisition_id")%>" id="<%=rs("PI_requisition_id")%>" type="text" class="input" size="10" maxlength="10">
</td>
<td><input name="PI_requisition_id" type="checkbox" id="PI_requisition_id" value="<%=rs("PI_requisition_id")%>" onclick="unselectall()">
</td>



conn.BeginTrans

dim idArr,i
idArr=split(PI_requisition_id,", ")'注意此处应有空格
for i = 0 to ubound(idArr)
person_identify = cstr(replace(request.form(""&idArr(i)&""),"'",""))
if trim(person_identify) = "" then
Response.Write "<script language='JavaScript'>alert('选择学生的卡号不能为空！');history.back(-1);</script>"
Response.End
end if
if IsNumeric(trim(person_identify)) = false then
Response.Write "<script language='JavaScript'>alert('选择学生的卡号必须是数字！');history.back(-1);</script>"
Response.End
end if
Next

for i = 0 to ubound(idarr)
person_identify = trim(replace(request.form(""&idarr(i)&""),"'",""))
sql="select * from person_identify where person_identify = '"&person_identify&"'"
set rs=conn.Execute(sql)
if not rs.bof and not rs.eof then
response.write "<script language=JavaScript>" & "alert('卡号"& person_identify &"已经存在！');" & "history.back();" & "</script>"
response.end
end if
'获取相关数据
sql = "SELECT * FROM PI_requisition WHERE PI_requisition_id = '"&idarr(i)&"'"
set rs = conn.execute(sql)
school_id = rs("school_id")
branch_id = rs("branch_id")
grade_id = rs("grade_id")
class_id = rs("class_id")
student_id = rs("student_id")
student_global_number = rs("student_global_number")
batch_PIR_id = rs("batch_PIR_id")
rs.close:set rs=nothing
'更新申请卡表状态
sql = "update PI_requisition set PIR_processed = '1',PIR_processed_time = getdate() WHERE PI_requisition_id = '"&idarr(i)&"'"
conn.Execute(sql)
'response.Write("更新申请表状态<p>")
'response.Write(sql&"<p>")
'response.Write("========================================================================<p>")
'增加数据
sql = "insert into person_identify (person_identify,person_identify_allocated,school_id) values ('"&person_identify&"','1','"&school_id&"')"
conn.Execute(sql)
'response.Write("插入IC卡号总登记表<p>")
'response.Write(sql&"<p>")
'response.Write("========================================================================<p>")
sql = "insert into student_person_identify (SPI_state,SPI_allocated_time,person_identify,school_id,branch_id,grade_id,class_id,student_id,student_global_number,batch_PIR_id,PI_requisition_id) values ('0',getdate(),'"&person_identify&"','"&school_id&"','"&branch_id&"','"&grade_id&"','"&class_id&"','"&student_id&"','"&student_global_number&"','"&batch_PIR_id&"','"&idarr(i)&"')"
conn.Execute(sql)
'response.Write("插入IC卡号详细登记表<p>")
'response.Write(sql&"<p>")
'response.Write("========================================================================<p>")
next
if conn.errors.count > 0 then
conn.errors.clear
conn.roolbacktrans
response.write "<script>alert('数据处理异常，请返回检查数据！');window.history.back();</script>"
else
conn.CommitTrans
response.write "<script>alert('卡号已经分配完成！');location.replace('card_allot.asp?school_id="& school_id &"&class_id="& class_id &"');</script>"
conn.close
set conn = nothing
end if

[Swanzy]

主要用两个函数split(),ubound()就可以解决问题。

[solardu]

是这样子的：

http://www.0391.net/question.gif (表单)

数据库结构:
id part_no(编号) company(生产厂家) pro_no(生产料号)

[seraph2]

晕，俺没能力帮你解决这个问题，你的问题也不清楚！
如果你单纯想更改---添加指定特征数据的话，用update insert 是可以实现的，但上面两种方式是不固定的刷新和固定的插入，如果说你要实现的功能，还是自己写代码吧！速度上也不会慢多少的，数据量比较小。

[popcom]

我的笨办法，你可以写20个insert数据库的语句，添加之前先判断所提交的数据是不是空，如果不是空，提交。是空就不提交。
sql="insert into 表名(id,company,pro_no) values('"&id1&"','"&company1&"','"&pro_no1&"')
conn.Execute(sql)

sql="insert into 表名(id,company,pro_no) values('"&id2&"','"&company2&"','"&pro_no2&"')
conn.Execute(sql)

............

[coolwindkaka]

循环插入拉，不然一下添多条还没看到过，我见识少啊

[zhangjun]

给所有的编辑框取名为:name

'代码如下
'打开数据库连接
dim Namelist
dim sql
Namelist = replace(request.form("Name"),", ",",")
'判断
'-----------------

if instr(Namelist,",")>0 then
Namelist = split(Namelist,",")
for i=0 to ubound(NameList)
'如果i为奇数开始保存SQL
if (i+1) mod 3=0 then
sql = "insert into user(No,cj,haoma) values('"& Namelist(i-2) &"','"& Namelist(i-1) &"','"& Namelist(i) &"')"
'开始执行sql语句
call conn.execute(sql)
end if
next
end if

[zwrtv]

路过学习下