![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() 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????
__________________
____________________________ Un saludo a todos... |
|
|
![]() |
|