VBA Excel - UPDATE 写B. ACCESS

我有个问题。

我想更新数据库中表中的现有条目 Access, 使用 VBA 在 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 query which works in access", 他没有做出任何改变。 但是 sqlik = "UPDATE query which works in access" 他说 "Cannot find any object in this collection"

有任何想法吗?

谢谢您的帮助
已邀请:

快网

赞同来自:

解决方案使用 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
...


我希望它能帮助你

要回复问题请先登录注册