如何使用vb.net快速更新Excel文件中的查询?

时间:2016-08-15 15:17:32

标签: vb.net excel

我正在尝试使用包含大约2958行(总共32538个单元格)的Excel工作表制作更新子句。首先,我确定哪些单元格包含不正确的数据(例如,在数字列中包含字符的单元格),然后用我想要的值替换这些不正确的数据。

使用小的Excel工作表它可以正常工作,但是当查看较大的工作表时,程序会在一段时间后冻结。

如何进行快速更新查询并处理大量数据?

PD:很抱歉没有留下更新代码。这就是我的工作方式。

Protected Friend Sub reemplazarDato(ByVal columna As String, ByVal data As String, ByVal con As String)
    Dim cmd As String = ""
    For Each itm In arrayErrores
        cmd = "UPDATE [" & obtenerHojaActual(columna, con) & "$] SET [" & columna & "]='" & dato & "' WHERE [" & columna & "]='" & itm & "'"
        Try
            conexion.Open()
            Dim comando As New OleDbCommand(cmd, conexion)
            comando.ExecuteNonQuery()
            comando.Dispose()
            conexion.Close()
        Catch ex As Exception
            repairmanMessage("Error inesperado", ex.Message, My.Resources._error).ShowDialog()
            conexion.Close()
        End Try
    Next
End Sub

0 个答案:

没有答案