Buscar por:

Importar dados de arquivo texto (*.txt) para base de dados

Código

IMPORTAR DADOS DE *.TXT PARA BASE DE DADOS  

procedure TfrmImportar.BtnbitImportarClick(Sender: TObject);

var

Txt: Textfile;

Entrada: string;

begin

BtnbitImportar.Enabled:= false;

if OpenDialog1.Execute then

begin

FrmImportar.TblMyTabela.EmptyTable; //... zera o arquivo

FrmImportar.TblMyTabela.Open;

AssignFile(Txt,(OpenDialog1.FileName){ NOME do arquivo texto}

Animate1.Visible:= true;

Animate1.Active:= true;

Reset(Txt);

While not Eoln(Txt) do

begin

Readln(Txt,Entrada);

FrmImportar.TblMyTabela.Insert;

FrmImportar.TblMyTabela.FieldByName('NoOrder').Value:= Copy(Entrada,01,05);

FrmImportar.TblMyTabela.FieldByName('CodCliente').Value:= Copy(Entrada,06,01);

FrmImportar.TblMyTabela.FieldByName('CtrlCliente').Value:= StrToInt(Copy(Entrada,07,03));

FrmImportar.TblMyTabela.FieldByName('Procedencia').Value:= Copy(Entrada,10,07);

FrmImportar.TblMyTabela.FieldByName('TipoCliente').Value:= StrToInt(Copy(Entrada,17,01));

FrmImportar.TblMyTabela.FieldByName('PerCliente').Value:= Copy(Entrada,18,10);

FrmImportar.TblMyTabela.FieldByName('NomeCliente').Value:= Copy(Entrada,28,60);

FrmImportar.TblMyTabela.FieldByName('CPF').Value:= Copy(Entrada,88,11);

FrmImportar.TblMyTabela.FieldByName('Sexo').Value:= Copy(Entrada,99,01);

FrmImportar.TblMyTabela.FieldByName('Data_Nascimento').Value:= Copy(Entrada,100,10);

FrmImportar.TblMyTabela.FieldByName('DataUltCompra').Value:= Copy(Entrada,110,10);

FrmImportar.TblMyTabela.FieldByName('TipoCompra').Value:= Copy(Entrada,120,01);

FrmImportar.TblMyTabela.FieldByName('LocalEntrega').Value:= Copy(Entrada,121,10);

FrmImportar.TblMyTabela.FieldByName('VeiculoEntrega').Value:= Copy(Entrada,131,10);

FrmImportar.TblMyTabela.FieldByName('TotalCompra').Value:= Copy(Entrada,141,11);

FrmImportar.TblMyTabela.FieldByName('PrimeiroVencimento').Value:= Copy(Entrada,152,11);

FrmImportar.TblMyTabela.Post;

NeatoMeter1.Caption:= 'Importando, aguarde... '+ IntToStr(TblMyTabela.RecordCount);

end;

CloseFile(Txt);

NeatoMeter1.Caption:= 'Importação realizado com sucesso...';

NeatoMeter1.Percent:= 100;

BtnbitImportar.Enabled:= true;

FrmImportar.Height:= 404;

FrmImportar.ClientHeight:= 377;

BitBtn2.Kind:= bkClose;

Label1.Caption := 'Foi Importado um total de '+ IntToStr(TblMyTabela.RecordCount)+' registros com sucesso';

end;

end; 

Obs.:Adaptado de  Ramos de Souza Janones