如何解决访问记录集不更新表
我正在学习如何处理 Access VBA 记录集。
在下面的示例中,我使用 SQL 查询打开我的记录集并使用 strName
列对数据进行排序。当我调试代码时,我可以看到查询正在运行,但是我不知道为什么表没有使用已排序的行进行更新。有什么建议吗?
Option Compare Database
Option Explicit
Sub OrderDB()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim mySortedRS As DAO.Recordset
'Set the DAO database to current Access db
Set db = CurrentDb
'Open the table as the recordset
Set rs = db.OpenRecordset("SELECT * FROM Table1 order by strName",dbOpenDynaset)
'Process the rows
Do
Debug.Print rs!strName
rs.Edit
rs.Update
rs.MoveNext
Loop Until rs.EOF
'Cleanup
rs.Close
Set rs = Nothing
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。