Acelerar los bucles Update
(Speed up update loop)
Fecha: 26-Jun-97
De: Ernesto Rodriguez
Date sent: Wed, 11 Jun 1997
16:37:08 -0400
From: Ernesto Rodriguez Lopez [email protected]
Este fragmento de c�digo muestra
como al colocar un BEGINTRANS y COMMITTRANS entre el
"Loop" de actualizaci�n, el "Performance" de
la operaci�n aumenta, en otras palabras es mucho m�s r�pido.
Simplemente lo que estamos haciendo es colocar(encerrar) el loop
dentro de una transacci�n.
****Los comentarios estan en ingles para los amigos que lo
utilizan con frecuencia en sus programas.****
Dim fName AS Field Dim iCurrItem AS Integer Set fName = MyDynaset!Name 'initialize Field object MyDynaset.Edit ''we are editing MyDynaset.MoveFirst 'let's go to first record and make it current BeginTrans 'THIS INCREASE PERFORMANCE Do Until MyDynaset.EOF fName = MyArray(iCurrItem) 'pass data to recordset field MyDynaset.Update 'update recordset MyDynaset.MoveNext 'let's move to the next record iCurrItem = iCurrItem + 1 'now, take the next element of array Loop CommitTrans 'THIS INCREASE PERFORMANCE Set fName = nothing 'destroy object
*****************NOTA*********************
Hace tiempo te promet� alguna colaboraci�n, tarde pero seguro.
Espero que la misma le sirva a los amigos.
Desde Puerto Rico, Isla del Sol y de Mujeres Bellas
Ernesto Rodr�guez L�pez
[email protected]