Como resuelvo este problema??

[[Lepe]]

ve con F8 y breakpoints, o metele trazas al programa (showMessage) para saber en qué registro va, que tiene Archivo[i], qué tiene Campos[0], Campos[1],que se asigna a cada campo, etc.

Si no lo resuelves, sería conveniente poner los datos que quieres importar para ver si puede dar problemas.

Una detalle, que separador usas para el CommaText ???, porque si estas usando la coma, precisamente los números flotantes tienen una coma como separador decimal, y si lo interpretas como un separador de cadenas, Tienes un problema.

Un saludo

[hermes_32]

Por cierto, un detalle: Si dices que estas haciendo una inserción en la tabla deberías usar un Append o Insert en lugar de Edit

Que se te quede colgado puede ser por el método "locate" si la tabla no tiene ningún índice. Si tiene creas un índice en la tabla te recomiendo que uses FindKey en lugar de locate. Es mucho más rápido.

[danytorres]

Gracias por responder, nu puedo colocar insert por que los registros ya existen lo que hago es buscarlo en la tabla y editaros para insertar los cambios en este proceso es que la tabla se cuelga. De verda no se que puede ser??

[hermes_32]

Prueba a realizar el proceso entero dentro de una transaccion. Sería mas o menos:

Código Delphi [-]
db.StartTransaction;  
  If Datamodule2.REMMAE.Locate('CODEMP',Campos[0],[]) then
    begin
      try
        Datamodule2.REMMAE.Edit;
        Datamodule2.REMMAE.Fields[42].Value := Strtofloat(Campos[1]);
        Datamodule2.REMMAE.Fields[43].Value := Strtofloat(Campos[2]);
        Datamodule2.REMMAE.Fields[44].Value := Strtofloat(Campos[3]);
        Datamodule2.REMMAE.Fields[51].Value := Strtofloat(Campos[4]);
        Datamodule2.REMMAE.Fields[50].Value := Strtofloat(Campos[5]);
        Datamodule2.REMMAE.Fields[36].Value := Strtofloat(Campos[6]);
        Datamodule2.REMMAE.Fields[47].Value := Strtofloat(Campos[7]);
        Datamodule2.REMMAE.Post;
        db.Commit;
      except on e:exception do begin
         showmessage(e.message); //que muestre el error si se produce
         db.Rollback;
         end;
      end;
    end;

Mas o menos. Lo he hecho sobre la marcha igual ni compila , pero la idea es esa.

Pero insisto, si la tabla sobre la que estas haciendo un "locate" no tiene ningún índice...mal vamos...ya que por eso seguramente parezca que se te queda colgado aunque realmente estará buscando como un loco.