Fórum Criar rotina de exportar/importar de uma determinada tabela #354171

CREATE TABLE MATERIAL (
    COD_ORDENADO    VARCHAR(20) NOT NULL,
    DESCRICAO       VARCHAR(70) COLLATE PT_BR,
    UN              VARCHAR(2),
    PRECO_UNITARIO  NUMERIC(15,2)
);




/******************************************************************************/
/****                             Primary Keys                             ****/
/******************************************************************************/

ALTER TABLE MATERIAL ADD CONSTRAINT PK_MATERIAL PRIMARY KEY (COD_ORDENADO);

procedure TForm1.Button1Click(Sender: TObject);
var
ArqTxt:TextFile;
NomeArquivo:String;
I:Integer;
begin
//Caminho do txt gerado pela exportação
NomeArquivo := ExtractFilePath(ParamStr(0)) + ´Material.txt´;
try
 AssignFile(ArqTxt,NomeArquivo);
 Rewrite(ArqTxt);
 with SQLDataSet1 do
  begin
   if not Active  then
    Open;
    First;
    while not Eof do
     begin
      I := FieldCount;
      for I := 0 to Fields.Count - 1 do
       //Cada linha gerado no txt corresponde a um Registro da tabela, separando cada um deles com um ";" Ponto e Virgula
       Write(ArqTxt,Fields[I].Value,´;´);
       Writeln(ArqTxt);//Gera nova linha no txt
      Next;
     end;
     end;
finally
 CloseFile(ArqTxt);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
 Registros,ListaCampos: TStringList;
 j: Integer ;
 NomeArquivo:String;
Const Enter_ = #13 + 10;
begin
 try
   NomeArquivo := ExtractFilePath(ParamStr(0)) + ´Material.txt´;
   Registros := TStringList.Create;
   ListaCampos := TStringList.Create;
   Registros.LoadFromFile(NomeArquivo);// Aqui estou informando um nome fixo, deve ser usado uma
                                       // opção para o usuário selcionar o arquivo a ser importado
   for j := 0 to Registros.Count -1 do
    begin
      // Separa os campos do registro em itens do TStrinList, registro a registro.
      ListaCampos.Text := StringReplace(Registros[j], ´;´, Enter_, [rfReplaceAll, rfIgnoreCase]);
      ClientDataSet1.Open;
      ClientDataSet1.Insert;
      ClientDataSet1COD_ORDENADO.AsString   := ListaCampos[0];
      ClientDataSet1DESCRICAO.AsString      := ListaCampos[1];
      ClientDataSet1UN.AsString             := ListaCampos[2];
      ClientDataSet1PRECO_UNITARIO.AsString := ListaCampos[3];
      ClientDataSet1.Post;
    end;
 finally
  Registros.Free;
  ListaCampos.Free;
 end;
end;