为了实现同时像数据库添加多条记录的目的(多个卡号和成绩),我参考了网上的资料,发现很多都比较麻烦复杂,让初学者很难看明白,所以我在这把我采用的方法发出来供广大和我一样的新手参考.
网上的资料往往没有详细的说明,而且贴上的都是整段代码,初学者光看到这一大篇代码就头晕了.其实我觉得我们应该先搞清楚思路.
我的目的是要像数据库里同时添加多条每天的CS混战成绩统计.表名为CS,
cs_id(自动编号), cs_ka(卡号),cs_d_f(当天的成绩),cs_date(时间)
其实主要的代码只有几句，请注意红色部分。如下，
dim ka, frag, cnt, sql '定义变量
sql="select * from cs" 'SQL查询语句
cnt=request.Form("ka").count '得到添加记录的条数
set rs=server.CreateObject("ADODB.recordset") '创建记录集
rs.open sql,conn,1,3
for i=1 to cnt '使用一个循环语句向记录集写入数据
ka=request.Form("ka")(i) '将表单传递的值分次传递给变量，注意后面的(i)一定不能少。
frag=request.Form("frag")(i) '如果少了(i)，就一次性把值全给你变量。
rs.addnew '开使添加
rs("cs_ka")=ka
rs("cs_d_f")=frag
rs("cs_date")=date()
rs.update '把对记录的修改写入数据库
next '循环
rs.close '关闭记录集释放资源
set rs=nothing
|
打印本页
关闭窗口