Algun consejo para copiar datos?

[Tecnic2]

Muchas gracias por tu respuesta Neftali.

Mi problema surge cuando establezco esos parámetros en mi control ADOQuery, me da un error de incompatibilidad, o algo así, entre éllos.

Por otra parte, cómo lo hago para crear los índices de las tablas desde código? Además, no entiendo por que tendría que acelerar el traspaso de datos el crear los índices al final si precisamente al final los datos ya están copiados.

Otra vez, gracias por adelantado.

[Neftali [Germán.Estévez]]

Empezado por Tecnic2

...Mi problema surge cuando establezco esos parámetros en mi control ADOQuery, me da un error de incompatibilidad, o algo así, entre éllos.

Ok, pruébalos sólo en el ADOTAble que está contra el Access. De todas formas si alguno te da problemas, pues decartalo y vuelve a la opción por defecto, sólo era para probar mejoras.

Empezado por Tecnic2

Por otra parte, cómo lo hago para crear los índices de las tablas desde código?

Busca en access ayuda sobre CREATE INDEX, y utilizando un ADOQuery con la sentencia; Por ejemplo:

Código SQL [-]
CREATE INDEX I_Nombre ON Clientes (Nombre ASC)

te crea un índice en la tabla Clientes ascendente por el campo nombre.

Empezado por Tecnic2

Además, no entiendo por que tendría que acelerar el traspaso de datos el crear los índices al final si precisamente al final los datos ya están copiados.

Justo por eso, los índices son buenos para acelerar las búsquedas en una tabla, pero ralentizan las inserciones/modificaciones/borrados porque cada vez que haces una de éstas operaciones el índice se regenera. Para que me entiendas, en una inserción no se usa un índice (con la excepción de que controles duplicados con ellos), por lo tanto si haces 1000 inserciones seguidas, los único que hace la BD es, depués de cada inserción "regenerar" el índice por si le hacen una consulta.

El resultado de hacer:

INSERT1
 (la BD regenera el índice)
INSERT2
 (la BD regenera el índice)
INSERT3
 (la BD regenera el índice)
INSERT4
 (la BD regenera el índice)
...
INSERT1000
 (la BD regenera el índice)

y hacer ésto:

INSERT1
INSERT2
INSERT3
INSERT4
...
INSERT1000
 (crear el índice)

para tu caso concreto es lo mismo ya que en todo éste proceso el índice no se usa para nada (con la excepción de que controles duplicados con ellos, como ya te he dicho)

[roman]

Tecnic2:

Estuve haciendo unas pruebas ayer transfiriendo 600,000 registros de una tabla dbase a una tabla access. Para dbase usé un TTable anque usar un Query no creo qe cambie mucho los resultados, y para Access use un TAdoTable.

Tal como sugiere Neftalí la tabla de Access no tenía índices al momento de la transferencia.

En la primera prueba, copiando registro a registro tal como lo has hecho, el tiempo de transferencia total fue, digamos, infinito (no esperé ni con mucho a que terminara ).

Luego de jugar con varias propiedades observé un cambio drástico con dos de ellas:

Una, ya te la comentaron: CursorType := ctOpenForwardOnly
La otra, CursorLocation := clUseServer

Con estas dos, el tiempo total de transferencia fue de entre 4 y 5 minutos.

// Saludos

[Tecnic2]

Tienes un bucle que recorre todos los registros normal y corriente? Me puedes pasar el código de ejemplo a ver si hay algo que hago mal?

Muchas gracias.

[roman]

Te digo que es similar a lo que estás haciendo tú:

Código Delphi [-]
{
  Table1 - TTable para dbase
  AdoTable1 - TAdoTable para Access
}

  Button1.Enabled := false;
  Done := false;

  Table1.Open;
  AdoTable1.Open;

  while not Table1.Eof and not Done do
  begin
    Application.ProcessMessages;

    with AdoTable1 do
    begin
      Append;

      Fields[0].AsString := Table1.Fields[0].AsString;
      Fields[1].AsString := Table1.Fields[1].AsString;
      Fields[2].AsDateTime := Table1.Fields[2].AsDateTime;
      Fields[3].AsString := Table1.Fields[3].AsString;
      Fields[4].AsString := Table1.Fields[4].AsString;
      Fields[5].AsString := Table1.Fields[5].AsString;
      Fields[6].AsString := Table1.Fields[6].AsString;
      Fields[7].AsString := Table1.Fields[7].AsString;
      Fields[8].AsString := Table1.Fields[8].AsString;
    end;

    Table1.Next;
  end;

  if AdoTable1.State = dsInsert then
    AdoTable1.Post;

  Button1.Enabled := true;
  Done := true;

El decrecimiento radical lo obtuve con las dos propiedades que te menciono.

// Saludos

[Tecnic2]

He visto la luz...
Me faltaban establecer las propiedades CursorType y CursorLocation, a parte de lo de preguntar lo del State.

He pasado de hora y media a 4 minutos y medio.

Millones de gracias.