VB.NET Timer触发线程执行SQL操作时UI界面冻结如何优化解决

你当前代码的核心问题是全部SQL查询、数据更新、业务逻辑都被调度到UI线程执行，后台线程完全没有起到减负作用：你在后台线程调用UpdateList方法后，检测到InvokeRequired就直接把整个方法逻辑抛回UI线程执行，所有耗时操作都占用UI线程资源，自然会导致界面冻结。
同时Timer每4秒触发一次，如果上一轮任务未执行完成，会重复创建新线程，反而会加重性能负担，还可能出现数据重复处理的问题。

• 拆分业务逻辑：仅在需要操作UI控件的步骤才调用Invoke调度到UI线程，SQL查询、数据更新、FacturaCerificacion实例化等不需要操作UI的逻辑，全部放在后台线程执行
• 增加运行状态标记：避免Timer重复创建任务，上一轮任务未完成时直接跳过本轮触发
• 优化SQL执行效率：
  • 给COLA表的enviado、docentry、tipo字段加联合索引，大幅提升查询、更新速度
  • 替换SELECT *为仅查询需要的docentry、tipo字段，减少数据传输开销
  • 使用SqlDataReader替代DataSet+SqlDataAdapter，减少内存开销
  • 用Using块包裹数据库连接、Command对象，自动释放资源避免泄漏

' 增加运行状态标记，避免重复执行
Private isTaskRunning As Boolean = False

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ' 上一轮任务未完成则跳过
    If isTaskRunning Then Return
    isTaskRunning = True
    hiloCertificador1 = New Thread(AddressOf crearObjeto1)
    hiloCertificador1.IsBackground = True
    hiloCertificador1.Start()
End Sub

Public Sub crearObjeto1()
    Try
        ' 所有耗时逻辑全部在后台线程执行，不需要Invoke
        Using conn As New SqlConnection(parametrosCon)
            conn.Open()
            ' 只查需要的字段，不要用SELECT *
            Dim cmd = New SqlCommand("SELECT TOP 1 docentry, tipo FROM COLA WHERE docentry < 8654 and enviado = 0", conn)
            Using reader As SqlDataReader = cmd.ExecuteReader()
                If reader.Read() Then
                    Dim docEntry As Integer = reader("docentry")
                    Dim tipo As Integer = reader("tipo")
                    reader.Close()
                    ' 执行更新
                    Dim updateCmd = New SqlCommand("UPDATE COLA SET enviado = 1 WHERE DOCENTRY = @docEntry AND TIPO = @tipodoc", conn)
                    updateCmd.Parameters.AddWithValue("@docEntry", docEntry)
                    updateCmd.Parameters.AddWithValue("@tipodoc", tipo)
                    updateCmd.ExecuteNonQuery()
                    ' 实例化业务对象
                    Dim factura As New FacturaCerificacion(docEntry, tipo)

                    ' 这里如果需要更新UI，再单独Invoke对应的操作，比如：
                    ' Me.BeginInvoke(Sub() ListBox2.Items.Add($"处理完成：{docEntry}"))
                End If
            End Using
        End Using
    Catch ex As Exception
        ' 异常处理逻辑，需要提示用户的话再Invoke到UI线程
    Finally
        ' 重置状态标记
        isTaskRunning = False
    End Try
End Sub

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