使用Excel VBA拆分长字符串为80字符块并写入DB2数据文件

核心修改点 #

• 字符串拆分逻辑：用Left和Mid函数将长描述按80字符分段，循环处理剩余内容
• 安全SQL执行：替换字符串拼接为参数化查询，避免SQL注入和单引号转义报错问题
• 修正循环终止条件：通过判断剩余字符串长度是否大于0终止循环，替代原代码无效的IsEmpty判断
• 移除滥用的错误捕获：On Error Resume Next会隐藏代码问题，建议仅在必要处添加针对性错误处理

完整修改后的代码 #

' 生成recseq（注：该时间戳方式高并发场景可能重复，建议改用DB2自增序列或GUID保证唯一性）
logindex2 = (Now() - #1/1/1970#) * 86400000

' 参数化插入主记录
Dim mainCmd As ADODB.Command
Set mainCmd = New ADODB.Command
mainCmd.ActiveConnection = oConn
mainCmd.CommandText = "INSERT INTO webprddt1.wqmsnxtid(recseq, crtdt) VALUES(?, current_timestamp)"
mainCmd.Parameters.Append mainCmd.CreateParameter("recseq", adBigInt, adParamInput, , logindex2)
mainCmd.Execute

Dim remainingDesc As String
Dim currentSegment As String
Dim seqno As Integer

remainingDesc = ncDescription
seqno = 1

' 循环拆分并写入描述记录
Do While Len(remainingDesc) > 0
    ' 截取当前80字符段
    currentSegment = Left(remainingDesc, 80)
    
    ' 参数化插入描述记录
    Dim descCmd As ADODB.Command
    Set descCmd = New ADODB.Command
    descCmd.ActiveConnection = oConn
    descCmd.CommandText = "INSERT INTO webprddt1.wqmsetqd1(recseq, etqindx, seqno, descriptn) VALUES(?, ?, ?, ?)"
    
    ' 匹配DB2字段类型添加参数（需根据实际表结构调整类型）
    descCmd.Parameters.Append descCmd.CreateParameter("recseq", adBigInt, adParamInput, , logindex2)
    descCmd.Parameters.Append descCmd.CreateParameter("etqindx", adBigInt, adParamInput, , logindex)
    descCmd.Parameters.Append descCmd.CreateParameter("seqno", adInteger, adParamInput, , seqno)
    descCmd.Parameters.Append descCmd.CreateParameter("descriptn", adVarChar, adParamInput, 80, currentSegment)
    
    descCmd.Execute
    
    ' 更新剩余字符串和序号
    remainingDesc = Mid(remainingDesc, 81)
    seqno = seqno + 1
Loop

' 释放对象
Set descCmd = Nothing
Set mainCmd = Nothing

补充说明 #

1. 参数类型匹配：代码中adBigInt、adInteger等参数类型需与DB2实际字段类型对应，可通过查询表结构确认
2. recseq唯一性优化：原时间戳生成方式在高并发场景可能出现重复，建议使用DB2自增序列（如NEXTVAL FOR 序列名）或GUID替代
3. 错误处理：可在关键步骤添加On Error GoTo捕获异常，例如插入失败时执行事务回滚

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