Fórum Copiar dados TXT para Tabela Access #390801

//carrega dados do txt em um componente memo
Memo1.Lines.LoadFromFile('C:\Temp.txt');



//insere os dados no campo da sua tabela
meudatasourceX.dataset.edit;//ou insert caso seja uma cadastro novo
meudatasourcX.dataset.fields[Y]t:=memo1.text;//Y quer diser o numero do registro do seu componente ADO
meudatasourceX.dataset.updaterecord;
meudatasourceX.dataset.post;
//fin da inclusao do txt na tabela

//se a opçao de cima for dificil tente esta

meuADO.edit;//ou insert de acordo com sua nescessidade
meuADO.campodesuatabela.text:=memo1.text;
meuADO.updaterecord;
meuADO.post;

procedure 
                LeArquivoLogTransacao(NomeArquivo: String);

                var

                  strFile: TextFile;

                  strLine: String;

                begin

                  AssignFile(strFile, 
                NomeArquivo);

                  Reset(strFile);

                  Readln(strFile, 
                strLine);

                  while not Eof(strFile) 
                do begin

                    ShowMessage(strLine);

                    Readln(strFile, 
                strLine);

                  end;

                end;