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 ernesto@mfpw.com

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