VBA Excel-访问中的UPDATE记录 [英] VBA Excel - UPDATE record in ACCESS

问题描述

我遇到问题。

我想使用EXCEL中的VBA更新Access数据库中表中的现有记录。

I want to update an existing record in table in Access Database using VBA in EXCEL.

我的代码：

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查询时，它没有进行任何更改。但是，使用sqlik =可在访问中使用的UPDATE查询时，它表示无法在此集合中找到任何对象

When I used sqlik = "SELECT query which works in access" it didn't make any changes. But with sqlik = "UPDATE query which works in access" it says that "Cannot find any object in this collection"

任何想法？

感谢您的帮助

推荐答案

使用DAO的解决方案：

A solution using 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
...

希望这对您有帮助

这篇关于VBA Excel-访问中的UPDATE记录的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！