使用vba从表单更新表中的字段

Question

我有一个名为“Form1”的表单，它有一个名为“Test”的文本框我想使用vba更新“RoomNoOccupant”字段中的表“tbl_Room”。什么是更新字段的代码。感谢...

Answer 1

您需要打开与数据库的连接。如果数据库是本地数据库（来自mdb本身），那之后只需使用一些标准的SQL查询

Dim con as new ADODB.Connection
Set con = CurrentProject.Connection

con.execute"UPDATE tbl_Room SET RoomNoOccupant = '" & test & "' " & _
           "WHERE RoomCode = " & Emp_Room  & ";"