VBA通过SQL操作MySQL：仅input变更时更新时间戳与操作人

现有代码存在两类问题导致不符合预期：

• SQL逻辑缺陷：ON DUPLICATE KEY UPDATE后没有加条件判断，只要主键匹配就会无条件更新time_stamp、updated_by字段，完全不校验input值是否发生变化
• VBA代码bug：
  • 用= Null做空值判断不符合VBA语法规则，该判断永远不会返回True
  • 全程使用同一个Recordset对象执行SQL但从不关闭释放，游标状态异常会触发非预期的全表更新
  • 代码中t_updated_by变量未定义赋值，属于未声明变量直接使用
  • 字符串拼接未做单引号转义，字段值含单引号时会直接触发SQL语法错误

利用MySQLON DUPLICATE KEY UPDATE支持条件赋值的特性，对time_stamp、updated_by字段加判断：仅当新传入的input值和表中存储的原有input值不一致时，才更新这两个字段，否则保留字段原有值。
核心SQL片段如下：

ON DUPLICATE KEY UPDATE
  input = VALUES(input),
  time_stamp = IF(input <> VALUES(input), DATE_ADD(NOW(), INTERVAL -7 HOUR), time_stamp),
  updated_by = IF(input <> VALUES(input), VALUES(updated_by), updated_by)

*语法说明：VALUES(字段名)指代本次INSERT语句传入的对应字段值，IF函数判断新旧input值不相等时才更新时间和操作人，值相等时直接复用表中原有字段值，不触发无意义更新。

Option Explicit

Dim cnn As ADODB.Connection

Sub input_data()
    Call sql_connection
    Call add_data
    ' 执行完成后关闭释放数据库连接
    If cnn.State = adStateOpen Then cnn.Close
    Set cnn = Nothing
End Sub

Function sql_connection()
    Set cnn = New ADODB.Connection
    cnn.Open "DSN=testDB;Database=sandbox;"
End Function

Function add_data()
    Dim rowtable As Long
    Dim height As Long
    Dim strsql As String
    Dim t_geo As String
    Dim t_country As String
    Dim t_year As String
    Dim t_month As String
    Dim t_input As Long
    Dim t_updated_by As String
    
    ' 获取当前系统登录用户名作为更新人，也可根据需求改为读取指定单元格值
    t_updated_by = Environ("Username")
    
    ' 修正Null判断逻辑，VBA中判断空值必须用IsNull()
    If IsNull(Worksheets("input").Range("b3").Value) Then Exit Function
    
    ' 直接读取工作表数据，无需激活工作表避免选区错误
    With Worksheets("input")
        height = .Range("B2").End(xlDown).Row
        For rowtable = 3 To height
            ' 转义单引号避免SQL语法错误
            t_geo = Replace(.Cells(rowtable, 2).Value, "'", "''")
            t_country = Replace(.Cells(rowtable, 3).Value, "'", "''")
            t_year = Replace(.Cells(rowtable, 9).Value, "'", "''")
            t_month = Replace(.Cells(rowtable, 10).Value, "'", "''")
            t_input = .Cells(rowtable, 11).Value

            ' 拼接带条件更新的SQL
            strsql = "INSERT INTO test_table (geo, country, year, month, input, time_stamp, updated_by) " & _
              "VALUES ('" & t_geo & "', '" & t_country & "','" & t_year & "','" & t_month & "'," & t_input & ", DATE_ADD(NOW(), INTERVAL -7 HOUR), '" & t_updated_by & "') " & _
              "ON DUPLICATE KEY UPDATE " & _
              "input = VALUES(input), " & _
              "time_stamp = IF(input <> VALUES(input), DATE_ADD(NOW(), INTERVAL -7 HOUR), time_stamp), " & _
              "updated_by = IF(input <> VALUES(input), VALUES(updated_by), updated_by)"
            
            ' 非查询类SQL直接用连接对象执行，不需要Recordset避免游标异常
            cnn.Execute strsql, , adExecuteNoRecords
        Next rowtable
    End With
End Function

修正后逻辑完全匹配需求：

• 主键不存在时直接插入新记录，自动写入当前时间和操作人
• 主键存在但input值和传入值一致时，不对该行做任何修改，原有时间戳、更新人保持不变
• 主键存在且input值和传入值不一致时，更新input值为新值，同时刷新时间戳和更新人信息
• 不会再出现所有记录被批量更新时间戳的异常

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