Dicas Delphi/Lazarus: Exportando dados para o Excel #1

Neste vídeo vou mostrar como exportar dados de uma tabela para Excel ou qualquer programa que suporte arquivo de texto delimitado por “ponto-e-virgula”. Funciona com qualquer banco de dados. Simples e objetivo. Conto com seu Like !

FONTE:

procedure TfrmPRODUTO.btnExportaClick(Sender: TObject);
var
  sLista : TStringList;
  cLinha : string;
begin
  sLista := TStringList.Create;
  TabGlobal.TbPRODUTO.First;
  while not TabGlobal.TbPRODUTO.eof do
    begin
      cLinha:=TabGlobal.TbPRODUTOCodProd.DisplayText+’;’+
                    TabGlobal.TbPRODUTODescProd.DisplayText+’;’+
                    TabGlobal.TbPRODUTOVendaProd.DisplayText;
      sLista.Add(cLinha);
      TabGlobal.TbPRODUTO.Next;
    end;
  if FileExists(‘c:tmpproduto.csv’) then DeleteFile(‘c:tmpproduto.csv’);
     sLista.SaveToFile(‘c:tmpproduto.csv’);
  ShowMessage(‘Produtos exportados !’);

end;

#exportardados #exportarregistros #exportartabela #delphiparaexcel #lazarusparaexcel #mysqlparaexcel #mariadbparaexcel #sqliteparaexcel #firebirdparaexcel #postgresqlparaexcel