Algun consejo para copiar datos?

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

Empezado por CHiCoLiTa

creo que se refiere a Field[0] en vez de FieldByName('fecfac'), que en ver por nombre, accedas por la posicion de campo

Correcto, a eso me refería. Gracias. Lo dije de memoria y ya se sabe, a veces juega malas pasadas...

El tema de los controles visuales (no refrescar cada registro, sino cada 500, por ejempo) creo que también te hará bajar bastante; junto con los índices en la tabla destino (si es posible).

Una última cosa que se me ocurre (aunque no se si bajará mucho el tiempo) es utilizar un ADOQuery/ADOCommand para insertar en lugar de un ADOTable; En ese caso se puede "jugar" con las propiedades Prepared(False), ExecuteOptions(eoExecuteNoRecords), CursorType(ctOpenForwardOnly),... y tal vez alguna más...

Lo dicho, sigue informándonos de los resultados, ya que es tema que interesa.

[Tecnic2]

Tengo la siguiente funcion para abrir la conexion ADO de enlace con las tablas access destino, pero me da error. PORQUE!!!

procedure TFAssistent.ObreADO();
begin
ADOConnexioAccess.ConnectionString := 'Provider=MSDASQL.1;' +
'Persist Security Info=False;' +
'Extended Properties="DSN=WingestControl;' +
'DBQ=C:\Dades\WingestControl\ANCORA\dades.mdb;' +
'DriverId=25;' +
'FIL=MS Access;' +
'MaxBufferSize=2048;' +
'PageTimeout=5;' +
'UID=admin;"';
ADOConnexioAccess.Connected := True;
ADOTAccessDades.Active := True;
end;

[jachguate]

Hola Tecnic.

Te pido que leas la guia de estilo de los foros, debido a que has puesto una nueva pregunta que nada tiene que ver con este hilo (aún cuando lo hayas iniciado vos).

También te pido que aprendas a usar la etiqueta [delphi] para publicar trozos de código, correctamente indentados y con la sintaxis resaltada. De la manera que están publicados realmente se hace dificil su lectura.

Por último, te refiero al hilo de la calidad de las preguntas; espero que al leerlo vos mismo entendas porque.

Hasta luego.

[Tecnic2]

Siento no haber leido la guia de estilo.
Con los controles ADO ya ve copia los datos mucho mas rapido.
Muchas gracias.

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

¿En cuanto tiempo ha quedado la cosa al final? (sólo por curiosidad)

[Tecnic2]

En cuanto haya hecho las pruebas suficientes os lo digo.

[Tecnic2]

Tengo el siguiente código dentro de un bucle para escribir datos en la tabla destino, pero no me guarda los datos, aunque no me da ningún error:
ADOQueryAux és un objeto TADOQuery en el que hay datos, ADOTAccessDades és una tabla ADO ligada a un objeto TADOConnection en el que hay un connection string hacia la base de datos destino.

ADOTAccessDades.Insert;
ADOTAccessDades.Fields[0].Value := ADOQueryAux.Recordset.Fields.Item[0].Value;
ADOTAccessDades.Fields[1].Value := ADOQueryAux.Recordset.Fields.Item[1].Value;
ADOTAccessDades.Fields[2].Value := ADOQueryAux.Recordset.Fields.Item[2].Value;
ADOTAccessDades.Fields[3].Value := ADOQueryAux.Recordset.Fields.Item[3].Value;
ADOTAccessDades.Post;
ADOQueryAux.Recordset.MoveNext;

Por qué no me guarda los registros?