使用Recordset访问2013填充表

时间:2014-03-24 15:52:28

标签: vba access-vba

我想执行Select SQL-Command并使用表中的信息填充表格。

这是我目前的进展:

Set rs = CurrentDb.OpenRecordset("SELECT * FROM myOrder")

我在Recordset中获取了信息,但我不知道如何将它放入我的表格中。 请不要错误评论,因为我没有很多VBA + Access的经验,所以希望你们能帮助我。

我的表

|        myOrder                            |
|-------------------------------------------|
| aID | aAsset |  aOrdernumber | aSN        |
|  1  |  1235  |    12234156   | ASFF45432S |
|  2  |  1236  |    12541221   | WSABBS211Z |

这是我的表,我想执行上面的sql将记录集的结果放入我的tableview。

1 个答案:

答案 0 :(得分:0)

Set RS = currentdb.openrecordset("SELECT * FROM myOrder")

'The code between RS.AddNew, and RS.Update will add records to the fields

RS.AddNew
     rs!aID = 3
     rs!aAsset = 1237
     rs!aOrdernumber = 11111111
     rs!aSN = AAAAAAAAAAA
RS.update

如果您正在编辑现有信息,则正确的语法为:

RS.Edit
    rs!Field1 = "Test String"
RS.Update

请记住,这将从Recordset中的第一条记录开始。您可以使用

循环
RS.MoveNext
RS.MoveFirst
RS.MoveLast

或者直接循环到您可以使用的Recordset的末尾:

Do Until RS.EOF
'Do Something
    RS.MoveNext
Loop