Question

access循环执行insert into语句

如何让这个简单的追加查询循环执行多次呢，两个结构相同的库

Answer 1

可以用vba代码来执行循环插入操作。

请参考下列代码:

'定义子过程
Private Sub Insert_a_to_b()
Dim strSql As String,i As Integer
strSql="insert into a(a) select
a from b"
'执行10次上述追加查询语句
For i=1 To 10
CurrentProject.Connection.Execute strSql
Next i
MsgBox "循环插入完成"
End Sub

在需要时调用上述子过程即可，例如命令按钮单击事件过程里调用它

Private Sub Command1_Click()
Call Insert_a_to_ b()
End Sub

注意要让语句可被循环执行，数据表a不得有约束限制代码那样操作。