VBA Excel - ACCESS 中的更新記錄

Question

我有問題。

我想在 EXCEL 中使用 VBA 更新 Access 數據庫表中的現有記錄。

我的代碼：

sqlik = "UPDATE query which works in access"

Set ZAP_QUERY2 = baza.CreateQueryDef("", sqlik)

With ZAP_QUERY2

    ![abc] = Edit_Form.abc.Text
    ![bcd] = Edit_Form.bcd.Text
    ![cde] = Edit_Form.cde.Text

End With

當我使用 sqlik = "SELECT query which works in access" 時，它沒有做任何更改。 但是使用 sqlik = "UPDATE query which works in access" 它說 "Cannot find any object in this collection"

有任何想法嗎？

謝謝你的幫助

Answer 1

使用 DAO 的解決方案：

...
dim db as DAO.Database, rec as Dao.Recordset
dim strSQL as String
Set db = OpenDatabase("c:\DatabaseFolder\YourDatabase.accdb")
strSQL = "SELECT * FROM yourTable WHERE yourField=1"
Set rec = db.OpenRecordset(strSQL, dbOpenDynaset, dbEditAdd)
With rec
    .MoveFirst
    ![aField] = Edit_Form.abc.Text
    .Update
End With
rec.Close
db.Close
...

希望這對你有幫助