Ver la Versión Completa : Cargar archivo y guardarlo en tabla
Carliviris
29-09-2006, 22:05:25
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:
"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í:
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.
;)
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.