Question

VBA里如何按条件修改ACCESS记录

ACCESS: test.mdb ,里面有表: content
里面有二个字段: 字段1, 字段2

数据有很多条,

想用VBA控制,
如果字段2的值是空,那么就把字段1的值改为 0 ,
如果字段2的值不为空,什么都不要做.
(其实主要是第一句)
我写了代码:

Sub clear2()
Dim MyDb As Database '定义数据库对象
Dim MyDs As Recordset '定义数据集对象
Dim CNN As Connection
Set MyDb = OpenDatabase("test.mdb")
Set MyDs = MyDb.OpenRecordset("content", , dbReadOnly)
MyDs.MoveFirst
Do Until MyDs.EOF
If IsEmpty(MyDs!字段2) Then
MyDs.Edit
MyDs!字段1 = 0
MyDs.Update
End If
MyDs.MoveNext
Loop
MyDs.Close
Set MyDs = Nothing
End Sub

运行无效.谁帮忙看看,谢谢
用的是 DAO 方法.

Answer 1

DAO操作有问题吧。改为ADO吧。