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]


ir al índice