Importar de TXT a FireBird

[jachguate]

Suponiendo que tenes un texto de columnas de ancho fijo, y algunas otras cosas que se entenderán con el codigo, te dejo un pequeño ejemplo:

Código Delphi [-]
  if OpenDialog1.Execute then
  begin
    qInsert.SQL.Text := 'insert into tabla values (:campo1, :campo2);';
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
    for I := 0 to Memo1.Lines.Count - 1 do
    begin
      qInsert.ParamByName('campo1').AsString := copy(Memo1.Lines[i], 1, 10);
      qInsert.ParamByName('campo2').AsString := copy(Memo1.Lines[i], 11, 4);
      qInsert.ExecQuery;
    end;
  end;

Hasta luego.

[mRoman]

Antes que nada gracias por sus aportaciones y comentarios a mi duda. Ahora pasare a pedirles una disculpa por mi falta de informaciòn....este archivo es de columnas fijas....ahi les va algo del texto de ese archivo:
1814067000114067101004060LAS PALMAS DOMICILIO CONOCIDO....ETC
1814067000114067102004066IXTAPA DOMICILIO CONOCIDO....ETC

y asi se va hasta ocupar mas o menos 200 registros aproximadamente...

Bueno espero haberme explicado....son de ancho fijo, como pueden ver no esta separado por ningun caracter en especial.

Y Gracias "jachguate" por tu código, lo hechare a andar....y luego te comento

GRACIAS MUCHACHOS....!

[TJose]

Hola mRoman

debes utilizar tablas externas, estas tablas son archivos de texto de ancho fijo, que pueden ser declaradas directamente a nivel base de datos, y son tratadas como cualquier otra tabla de mi base de datos (no exactamente). Es importante tener en cuenta que cuando se declara una tabla externa todos sus campos son de tipo char(n). No funciona (al menos cuando yo la utilicé) con campos con separadores ("tab", ";", ",", etc).
Ahora no necuerdo bien la sisntaxis, pero era más o menos así:ç

Código SQL [-]
create table mitabla external file "miarchivo.txt"(
  cod char(4),
  nombre char(50),
  apellido char(35),
  fecha char(8));

si miarchivo.txt existe, y tiene la misma estructura que definimos con create table, podremos ya hacer un

Código SQL [-]
select * from mitabla

. De lo contrario si no existe miarchivo.txt firebird (interbase) lo creará, de esta forma podremos utilizar este medio para exportar datos, haciendo un select sobre otra tabla (con los mismos campos que mi tabla externa) y volcándolos sobre la tabla externa.

Además deberás tener en cuenta los permisos que se hayan dado en el archivo de configuración de firebird.
miarchivo.txt podrá resisdir en cualquier directorio, o sólo en un directorio específico. Esto también depende del la configuración de firebird.

Culquier otra duda
Saludos

TJose