Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cargar archivo y guardarlo en tabla (https://www.clubdelphi.com/foros/showthread.php?t=36041)

Carliviris 29-09-2006 22:05:25

Cargar archivo y guardarlo en tabla
 
Saludos a todos:

El mismo titulo creo que es bastante especifico. Deseo cargar un archivo que este en una ruta especifica y guardarlo en una tabla. Como podria hacer eso??

Héctor Randolph 29-09-2006 22:30:41

Hola Carliviris!

¿De qué tipo de archivo estamos hablando?, separado por comas, tamaño de columnas fijo, contiene alguna estructura.

¿Deseas guardar el archivo completo o leer los datos y convertirlos en registros?

¿Qué manejador de base de datos utilizas?

Mientras más información proporciones, más respuestas favorables obtendrás.
;)

Saludos

Carliviris 30-09-2006 00:05:28

yo tengo el archivo listo, esta separado por comas, y estoy trabajando con los componentes ADO con base de datos Access. Que mas informacion importante?? Quiero leer el archivo completo y hacer un insert en una tabla en especifico. Que tal?

Héctor Randolph 30-09-2006 00:28:37

Te dejo una rutina con la cual puedes leer el archivo, solamente restaría insertar los registros en las tablas correspondientes:

Suponiendo que tu archivo tiene esta forma:

Código:

"uno 1","uno 2","uno 3","uno 4","uno 5"
"dos 1","dos 2","dos 3","dos 4","dos 5"
"tres 1","tres 2","tres 3","tres 4","tres 5"

Puedes leer los datos así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 Archivo: TStringList;
 Linea: TStringList;
 Fila, Columna: Integer;
begin
  Archivo:=TStringList.Create;
  Linea:=TStringList.Create;
  Archivo.LoadFromFile('Archivo.txt');

  for Fila:=0 to Archivo.Count-1 do
  begin
   Linea.CommaText:=Archivo[Fila];
   ShowMessageFmt('Registro actual = %d',[Fila]);
   for Columna:=0 to Linea.Count-1 do
    ShowMessageFmt('Contenido del campo %d = %s',[Columna,Linea[Columna]]);
  end;
  Linea.Free;
  Archivo.Free;
end;

Saludos

jachguate 30-09-2006 00:39:43

Te recomiendo leer también el hilo importar txt a firebird que se trató esta misma semana..

Hasta luego.

;)


La franja horaria es GMT +2. Ahora son las 18:57:20.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi