Office中国论坛/Access中国论坛

标题: 求批量增加记录的代码,谢谢 [打印本页]

作者: huang1314 时间: 2011-6-14 13:12
标题: 求批量增加记录的代码,谢谢
本帖最后由 huang1314 于 2011-6-14 13:14 编辑

“表1”中有三个字段，字段1数字，字段2文本，字段3是布尔

窗体有“文本框1”、“组合框1”、“组合框2”  三个对象
我想在一个窗体中做一个按钮批量记录到表中
功能是根据”文本框1“输入的数字生成相应的记录数，”字段1“的内容从1开始递增到”文本框1“输入的数字

”字段2“的内容都相同，跟”组合框1“内容一样
”字段3“的内容都相同，跟 ”组合框2“内容一样

例如，在  ”文本框1“输入5，  ”组合框1“内容是A， ”组合框2“ 内容是TRUE
代码的效果是
在”表1“中增加5条记录
字段1 字段2 字段3
1             A       TRUE
2             A       TRUE
3             A       TRUE
4             A       TRUE
5             A       TRUE

作者: roych 时间: 2011-6-14 15:30
从Excel里导入追加不行吗？其实我不太建议大家啥都用代码来执行的。代码应该是基本功能无法实现时再考虑的。这里给一段吧。添加一个按钮之后，把以下代码放在单击事件里：
Dim rst As New ADODB.Recordset
rst.Open "select * from 表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To Me.文本框1
rst.AddNew
rst.Fields("字段1").Value = i
rst.Fields("字段2").Value = Me.组合框1
rst.Fields("字段3").Value = Me.组合框2
rst.Update
Next i
rst.Close

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)