danytorres
22-04-2005, 00:47:44
buenas noches amigos del foro estoy realizando una insercion en una tabla de paradox de un archivo TXT, el codigo es el siguiente;
Code:
_____________________________________________________
try
Transferencia.Height:=172;
Archivo.LoadFromFile('C:\NominaObre1.txt');
ProgressBar1.Max:= Archivo.Count;
for I := 0 to Archivo.Count -1 do
begin
Campos.Clear;
Campos.CommaText:= Archivo[I];
If Datamodule2.REMMAE.Locate('CODEMP',Campos[0],[]) then
begin
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;
end;
showmessage( 'Ficha del trabajador ='+Campos[0]);
Application.ProcessMessages;
ProgressBar1.Position:=i +1;
end;
finally
Archivo.Free;
Campos.Free;
end;
_______________________________________________________________
El error que meda es el siguiente : Couldn't perform the edit because another user changed the record.
Este error meda cuando a insertado mas de 10 lineas del txt.
Que hago????
Code:
_____________________________________________________
try
Transferencia.Height:=172;
Archivo.LoadFromFile('C:\NominaObre1.txt');
ProgressBar1.Max:= Archivo.Count;
for I := 0 to Archivo.Count -1 do
begin
Campos.Clear;
Campos.CommaText:= Archivo[I];
If Datamodule2.REMMAE.Locate('CODEMP',Campos[0],[]) then
begin
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;
end;
showmessage( 'Ficha del trabajador ='+Campos[0]);
Application.ProcessMessages;
ProgressBar1.Position:=i +1;
end;
finally
Archivo.Free;
Campos.Free;
end;
_______________________________________________________________
El error que meda es el siguiente : Couldn't perform the edit because another user changed the record.
Este error meda cuando a insertado mas de 10 lineas del txt.
Que hago????