我正在尝试使用包含大约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