cARLOS
11 de Abril del 2006

Tengo el problema de que tarda como 30-40 minutos en grabar 8928 registros en un campo de una bd de access, por mes tengo que almacenar información de cada cinco minutos de ahi los 8928 registros= 12*24*31 (minutos por hora * horas del dia * dias del mes).


Mi codigo es el siguiente

For r = 1 To 8928
Adodc1.Recordset("expost") = datoexp
Adodc1.Recordset.MoveNext
Next r

Adodc1.Recordset.Update 'Actualiza la base de datos

AYUDENME RAPIDO!!!!

mvallejos
11 de Abril del 2006

Eso te pasa por usar esos Datas de ADO, deberías trabajar directamente con Adodb.Connection y ANSI SQL

Dim Sql as String

Sql = "Update <Tabla> Set expost = datoexp Where <condicion>
Cn.Execute Sql

Donde Cn es un ADODB.Connection conectado a tu base de datos, <tabla> es la tabla en donde debes trabajar y <condicion> es la condición o cláusula WHERE que abarque esos registros.
Con una solo instrucción y un par de segundos de espera, tu problema está solucionado.

Saludos