VBA执行UPDATE语句时p_person被设为-1而非预期的1，如何解决？

解决方案 #

以下是几个排查和解决的方向：

1. 检查p_person字段的数据类型 #

这是最常见的原因：

• 如果p_person是Bit/布尔类型（比如Access的Yes/No、SQL Server的Bit），数据库会自动把数值1转换为布尔True，而VBA/Access里布尔True的存储值就是-1，False是0。
  • 若你确实需要存储数值1：将字段类型修改为Integer/Long（数值型）。
  • 若只是需要标记“有效状态”：可以接受-1作为True的存储值，或者直接用SET p_person = True来明确赋值。

2. 排查person表是否存在UPDATE触发器 #

检查person表是否有UPDATE触发器，触发器可能在你执行更新后，自动覆盖p_person的值为-1。可以通过数据库管理工具（比如Access设计视图、SQL Server Management Studio）查看表的触发器定义。

3. 验证最终执行的SQL语句 #

拼接的BBPersonsManual_Filter_and变量可能包含干扰逻辑（比如额外的SET语句），可以在执行前打印最终SQL来确认：

Debug.Print SqlStmt ' 在SqlConn.Execute前添加这句，查看立即窗口的完整SQL
SqlConn.Execute SqlStmt, RecordsAffected

确认最终SQL里的SET p_person = 1没有被篡改。

4. 检查数据库连接的类型转换 #

如果使用ODBC连接某些数据库，可能存在数值到布尔的自动转换。此时可以尝试显式指定数值类型，比如在SQL中使用CAST(1 AS INT)：

SqlStmt = "UPDATE person " & _
            " SET p_person = CAST(1 AS INT) " & _
            " FROM Person p INNER JOIN " & PersonTableName & _
              " bbp ON p.personID = bbp.personID " & _
            " WHERE bbp.ind = 'Y' " & BBPersonsManual_Filter_and

内容的提问来源于stack exchange，提问作者Cizar