Access VBA想利用ADO执行SQL语句,将表一数据复制并更新部分字段后插入新的表中
SQL = "insert into 登记历史(备件编码, 登记位置, 关联PU, 关联位, 状态, 更换原因, 登记时间, 班次, 经办人) select " & Table & ".备件编码, '" & ProductInfo(i, 9) & "', " & Table & ".关联PU, " & Table & ".关联位, " & Table & ".状态, '" & ProductInfo(i, 13) & "', '" & Now() & "', '" & CurrentShift & "', '" & User & "' from " & Table & " where " & Table & ".关联PU='" & ProductInfo(i, 0) & "'"
RPDataConnect.Execute SQL, RecordsAffected