Access 2010 VBA查询表并迭代结果

Question

我有一个查询,我想对表执行.结果我想做点什么.在我的脑海中,伪代码是:

var q = "select * from table where some condition";
var results = db.getResults(q);
foreach (row r in results )
    do something with result

我怎么会这样与vba类似？

Answer 1

DAO是Access的原生,是迄今为止最常用的.ADO有它的位置,但这不太可能.

 Dim rs As DAO.Recordset
 Dim db As Database
 Dim strSQL as String

 Set db=CurrentDB

 strSQL = "select * from table where some condition"

 Set rs = db.OpenRecordset(strSQL)

 Do While Not rs.EOF

    rs.Edit
    rs!SomeField = "Abc"
    rs!OtherField = 2
    rs!ADate = Date()
    rs.Update

    rs.MoveNext
Loop