FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda con este error????
buenas tardes Sr del foro tengo un pequeño problema con un procedimieto que hago al ejecutarlo me da el siguiente error
Error: -_________________________________________________ Exception EDBEngine Error Insufficient memory for this operation ___________________________________________________ el codigo que ejecuto es el siguiente; Code: ______________________________________________________ procedure TForm1.BitBtn2Click(Sender: TObject); Var ArchivoCsv, Campos: TStringList; I, J: Integer; begin ArchivoCsv := TStringList.Create; Campos:= TStringList.Create; try ArchivoCsv.LoadFromFile('c:\HV.txt'); for I := 0 to ArchivoCsv.Count -1 do begin Campos.Clear; Campos.CommaText := ArchivoCsv[i]; If DataModule2.Table2.Locate('CODEMP',Campos[0],[]) then begin DataModule2.Table2.Edit; DataModule2.Table2.Fields[1].Value := Campos[1]; DataModule2.Table2.Fields[2].Value := Campos[2]; DataModule2.Table2.Post; end; end; finally ArchivoCsv.Free; Campos.Free; end; ___________________________________________________ la tabla es una DB que tiene 1000 registros nose que hacer????????
__________________
____________________________ Un saludo a todos... |
#2
|
||||
|
||||
asi a primera vista parece que le estas intentando meter demasiadas cosas al BDE, lo cual es un error absurdo con ese algoritmo.
Lo que se me ocurre que pueda estar pasando es que no te esté separando los campos, por lo que Campos[0] en la instrucción DataModule2.Table2.Locate('CODEMP',Campos[0],[]) contenga una String demasiado larga (tipo "1,pepe,garcia,perez,calle granvia,1234345x,......") mira a ver si con un trace o un showmessage puedes ver el valor de Campos[0].
__________________
todo el mundo debe creer en algo... yo creo que voy a tomarme otra copa. |
|
|
|