用记录集删除2表相同数据

时　间:2018-02-25 08:11:14
作　者:MDZZ   ID：47512  城市：南京
摘　要:用记录集删除2表相同数据
正　文:

学员问题：

现存在表1和表2  2表都有id 字段 且id字段有相同的值 如何用记录集删除表1中表2存在的id

示例代码：

sub 测试()
Dim rst As New ADODB.Recordset
Dim rst1 As DAO.Recordset

rst.Open "Select * FROM 表1 ", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Set rst1 = CurrentDb.OpenRecordset("Select * FROM 表2 ")
rst.MoveFirst
Do Until rst.EOF
rst1.MoveFirst
  Do Until rst1.EOF
  If rst!ID = rst1!ID Then
  rst.Delete
  rst.Update
  Exit Do
End If
rst1.MoveNext
Loop
rst.MoveNext
Loop
End sub