DAO中删除数据

Question

问题描述:
我想在一个DAO.Recordset中删除数据,语句如下
rst.AddNew
rst.MoveFirst
While Not rst.EOF
If rst.Fields("ID").Value = IdNum Then
rst.Delete
End Ifrst.MoveNext
Wend
rst.Close
db.Close总觉得在rst.Close和db.Close之前要rst.Update一下但是少了rst.Update,结果也可以删除大家来指点一下呢!

Answer 1

这个是因为你的rs.open sql,conn,参数1，参数2,这个是参数1和参数2设定成允许更新

Answer 2

完成过程如下:Dim IdNum As Integer
Dim db As DAO.Database
Dim rst_employee As DAO.RecordsetSet db = OpenDatabase("ms_sys.mdb")
IdNum = Trim(ID.Text)
Set rst = db.OpenRecordset("select * from employee")
rst.AddNew
rst.MoveFirst
While Not rst.EOF
    If rst.Fields("ID").Value = IdNum Then
    rst.Delete
End If
rst.MoveNext
Wend
rst.Close
db.Close