我遇到问题了。
我想使用 EXCEL 中的 VBA 更新 Access 数据库表中的现有记录。
My code:
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 query which Works in access”,它表示“无法在此集合中找到任何对象”
有任何想法吗?
感谢您的帮助
使用 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
...
希望这对您有帮助
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)