VB.NET遍历ListView校验MySQL记录并插入时循环逻辑未达预期

你的两套实现逻辑完全等价，失效的原因来自几个被忽略的硬错误：

• 最核心的逻辑错配：SELECT查询时用的是Me.TextBoxLogNo.Text作为查询条件，但INSERT写入时用的是LabelLogNo.Text作为LogNo值，两个控件的取值一旦不一致，就会出现「查询拿A值匹配、入库写B值」的错位，永远查不到已存在的记录，导致重复插入。
• 数据库资源未释放：代码执行查询后打开的MySqlDataReader没有显式关闭，Reader默认会占用关联的数据库连接，后续反复调用CONNECTION.Close()/CONNECTION.Open()会出现连接状态异常，甚至读取不到正确的查询结果。
• 冗余无意义的连接操作：同一个循环项里反复关、开同一个连接执行查询和插入，徒增数据库开销，还容易引发连接状态异常。
• 冗余的GoTo写法：第二套方案里的GoTo LINE1没有任何实际作用——只要If Reader.HasRows = True判断成立，就会触发Continue For跳过当前循环，后面的代码块本来就只会在「记录不存在」的分支执行，GoTo跳转完全是无效代码，和第一套逻辑没有区别。

1. 兼容现有逻辑的基础修正版 #

保留原有的先查后插逻辑，修复所有硬错误：

Sub Save()
    ' 统一LogNo取值，查询和写入必须用同一个值，不要用不同控件的值
    ' 按需替换成你实际业务用的取值来源（TextBox/Label）
    Dim targetLogNo As String = LabelLogNo.Text.Trim()

    ' 循环开始前统一打开连接，不要反复开关
    If CONNECTION.State <> ConnectionState.Open Then
        CONNECTION.Open()
    End If

    For Each item As ListViewItem In ListViewSelectedOffice.Items
        Dim targetOffice As String = item.SubItems(1).Text.Trim()
        
        ' 存在性查询用参数化，只查需要的字段，效率更高
        Dim existSql As String = "SELECT 1 FROM table_documentdestinationlog WHERE LogNo = @logno AND OfficeDestination = @officeD LIMIT 1"
        Using comm As New MySqlCommand(existSql, CONNECTION)
            comm.Parameters.AddWithValue("@logno", targetLogNo)
            comm.Parameters.AddWithValue("@officeD", targetOffice)
            ' 用ExecuteScalar判断存在性，不需要占用DataReader
            Dim existResult As Object = comm.ExecuteScalar()
            If existResult IsNot Nothing Then
                ' 存在就跳过当前项
                Continue For
            End If
        End Using

        ' 不存在则执行插入
        Dim insertSql As String = "INSERT INTO table_documentdestinationlog (LogNo, OfficeDestination, Status) VALUES (@logno, @officeD, 'Pending')"
        Using insertComm As New MySqlCommand(insertSql, CONNECTION)
            insertComm.Parameters.AddWithValue("@logno", targetLogNo)
            insertComm.Parameters.AddWithValue("@officeD", targetOffice)
            insertComm.ExecuteNonQuery()
        End Using
    Next

    ' 循环结束后统一关闭连接
    CONNECTION.Close()
End Sub

2. 更高性能的数据库端去重方案 #

不需要在循环里反复执行查询，靠数据库原生能力自动跳过重复记录：

1. 先给表添加(LogNo, OfficeDestination)的联合唯一索引，从数据库层面禁止重复组合：

ALTER TABLE table_documentdestinationlog 
ADD UNIQUE KEY uk_logno_office (LogNo, OfficeDestination);

2. 应用层直接用INSERT IGNORE语法执行插入，遇到违反唯一索引的重复记录会自动跳过，不会报错也不会重复插入：

Sub SaveOptimized()
    Dim targetLogNo As String = LabelLogNo.Text.Trim()
    If CONNECTION.State <> ConnectionState.Open Then
        CONNECTION.Open()
    End If

    Dim insertSql As String = "INSERT IGNORE INTO table_documentdestinationlog (LogNo, OfficeDestination, Status) VALUES (@logno, @officeD, 'Pending')"
    For Each item As ListViewItem In ListViewSelectedOffice.Items
        Dim targetOffice As String = item.SubItems(1).Text.Trim()
        Using comm As New MySqlCommand(insertSql, CONNECTION)
            comm.Parameters.AddWithValue("@logno", targetLogNo)
            comm.Parameters.AddWithValue("@officeD", targetOffice)
            comm.ExecuteNonQuery()
        End Using
    Next

    CONNECTION.Close()
End Sub

• 所有数据库命令对象建议用Using块包裹，自动释放资源，避免连接泄漏引发的后续操作异常。
• 不要在循环里反复拼接SQL字符串，统一用参数化查询，避免SQL注入和编码问题。
• 确认你的业务场景里LogNo的实际取值来源，不要出现查询、写入用不同值的错配。

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