insert into语句(access循环执行insertinto语句)

可以用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不得有约束限制代码那样操作。