Leer campos de un archivo de texto.

[joni88]

Hay una instrucción que se llama BULK INSERT que te permite hacer eso:

Código SQL [-]
BULK INSERT tabla
FROM archivo
WITH
(
    FIELDTERMINATOR = '|',
    ROWTERMINATOR = '\n',
    CODEPAGE = 'ACP'
)

Lo único, que hasta donde yo se solo vas a poder hacer el insert en una sola tabla, que tiene que tener solamente los campos de tu archivo: codigo, nombre, carnet, direccion, email

[Neftali [Germán.Estévez]]

Revisa estas dos entradas:

Cargar datos de un TXT a un TDataset (utilizando ADO)
Cargar datos de un TXT a un TDataset (utilizando ADO) – Parte 2

[ecfisa]

Hola Ledian_Fdez.

Otra opción:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
  TS: TStrings;
  Linea: string;
  i: Integer;
begin
  AssignFile(F,'C:\TU_ARCHIVO.TXT');  // nombre del archivo .txt
  Reset(F);
  try
    TS:= TStringList.Create;
    try
      while not Eof(F) do
      begin
        Readln(F, Linea);
        if (Length(Linea)>0)and (Linea[1] in ['0'..'9']) then  // los datos a pasar, empiezan con un número (codigo)
        begin
          TS.Clear;
          ExtractStrings(['|'], [], PChar(Linea), TS);
          DataSet.Append;   // (o insert)
          for i:= 0 to TS.Count-1 do
            DataSet.Fields[i].AsString:= TS[i];  
          DataSet.Post;
        end;
      end;
    finally
      CloseFile(F);
    end;
  finally
    TS.Free;
  end;
end;

En el ejemplo supongo que los datos en archivo de texto tienen el mismo órden que en la tabla, de no ser así tendrías que ponerlos a mano:

Código Delphi [-]
   DataSet.FieldByName('Codigo').AsString:= TS[1];
   ...
   DataSet.FieldByName('Email').AsString:= TS[5];

Un saludo.

[[escafandra]]

Escribí por error.