Levantar un archivo txt y salvarlo en una tabla IB

[lgarcia]

Hola

En este caso el fichero txt debe tener algun formato para poder leerlo y luego irlo insertando en la BD. A continuacion te muestro un codigo que te puede servir aunque te recomiendo mejor si puedes llevar los datos a Excel porque es mas eficiente. Te lo digo por experiencia propia.

Codigo

procedure TFormMenu.Clientes1Click(Sender: TObject);
var
s, v, nombre, codigo: string;
x, l: Integer;
begin
if OpenDialog.Execute then
begin
s:= ExtractFileName(OpenDialog.FileName);
AssignFile(F, s);
Reset(F);
while not Eof(F) do
begin
Readln(f, v);
l:= length(v);
x:= pos(';', v);
nombre:= copy(v, 1, x-1);
v:= copy(v, x+1, l);
x:= pos(';', v);
l:= length(v);
codigo:= copy(v, 1, x-1);
with InsertarClientes do
begin
Close;
Parameters.ParamByName(@nombre').Value:= nombre;
Parameters.ParamByName(@codigo).Value:= codigo;
Prepared:= True;
ExecProc;
end;
end;
CloseFile(F);
ShowMessage(' El lote de clientes ha sido importado exitosamente');
end;
end;

Donde
F:Text;
InsertarClientes es un procedimiento almacenado
Los delimitadores del fichero texto en este caso es ;

Espero te sirva

Saludos
Luis Garcia