学员问题:
现存在表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