Agregar una oración en excel vba para indicar el progreso del programa
Agregue una oración en Excel VBA para indicar el progreso de ejecución del programa (cnGzb.CursorLocation = adUseClient)
La mayoría de la gente puede pensar que no habrá problemas con las actualizaciones de software. Durante el proceso de actualización Algunos de los componentes compartidos también se actualizarán, pero es posible que otros programas no admitan los componentes actualizados, lo que provocará varios problemas.
Excel muestra una barra de progreso al ejecutar VBA.
i es el bucle for del código o podómetro
Application.statusbar="Complete" & format(i/10000*100, "0.00")
De repente recordé que había leído un artículo sobre la optimización de consultas SQL. Había una explicación relativamente detallada de la optimización de consultas SQL, especialmente la diferencia en la velocidad de consulta entre consultas en campos indexados y consultas en campos no indexados. "Todas las búsquedas rápidas se basan en la clasificación", así que inmediatamente modifiqué el código y agregué el código para ordenar el campo de número de trabajo en rsGzb (rsGzb.Sort = "gh ASC"). Cuando lo ejecuté, se produjo un error (error de tiempo de ejecución). 3251: El proveedor actual no admite la interfaz necesaria para ordenar o filtrar), consulte la ayuda del atributo de clasificación y encuentre una nota en él "Este atributo requiere que el atributo CursorLocation esté configurado en adUseClient", así que agregue el código (cnGzb.CursorLocation = adUseClient), ejecútelo nuevamente. La operación se completó en 1 segundo
Los siguientes son los códigos clave en el programa (la primera y tercera oración tienen la misma función aquí, solo puedes escribir una oración)
cnGzb .CursorLocation adUseClient
Set rsGzb = New ADODB.Recordset
rsGzb.CursorLocation = adUseClient 'CursorLocation es legible y escribible para objetos de conjunto de registros cerrados, y de solo lectura para objetos de conjunto de registros abiertos
rsGzb.Open sSqlCommand, cnGzb, adOpenKeyset, adLockBatchOptimistic