2011-04-29 55 views
1

如果我運行查詢以從每條記錄中選擇三個獨立的字段。是否有可能得到每個返回的結果爲三個單獨的字符串(每個字段一個),以便我可以在vba代碼中遍歷它們?在字符串中獲取查詢結果

回答

4

是的,你可以嘗試打開一個Recordset並像集合一樣訪問字段值。

Dim d As DAO.Database 
Dim r As DAO.Recordset 
Set d = CurrentDb() 
Set r = d.OpenRecordset("SQL or TableName") 
While Not r.EOF 
    Debug.Print r!Field1, r!Field2, r!Field3 
    r.MoveNext 
Wend 
r.Close 
Set r = Nothing 
Set d = Nothing 
+0

是r!Field1一個文本對象,我可以操作或者是將它打印到屏幕上? – Zack 2011-05-02 18:56:46

+0

使用r!Field1來訪問它。如果要直接在表中修改字段的值,那麼您可以使用類似於以下的內容: 'r.Edit: \t r!Field1 = r!Field1&「hello world!」: r.Update ' 如果要執行批量更新,請使用SQL UPDATE語句。使用SQL語句比使用記錄集要快。 – Bobort 2011-05-02 19:07:47

+0

如果我正在使用該值來編寫查詢,如: 選擇*從表Where WhereField = r!Field1 是否正確寫入? – Zack 2011-05-02 19:15:56