2019

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

Por Daniel Morais

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





Código Fonte:

procedure TfrmPrincipal.btnExportaClick(Sender: TObject); var sLista : TStringList; nCampo : integer; cLinha : string; begin sLista := TStringList.Create; cLinha := ”; for nCampo:=0 to qrTabela.fields.Count-1 do cLinha:=cLinha+qrTabela.Fields[nCampo].DisplayLabel+’;’; sLista.Add(cLinha); qrTabela.First; while not qrTabela.EOF do begin cLinha := ”; for nCampo:=0 to qrTabela.fields.Count-1 do cLinha:=cLinha+qrTabela.Fields[nCampo].DisplayText+’;’; sLista.Add(cLinha); qrTabela.Next; end; if FileExists(‘c:tmpteste.csv’) then DeleteFile(‘c:tmpteste.csv’); sLista.SaveToFile(‘c:tmpteste.csv’); end;





Simples e objetivo. Conto com seu Like !



#exportardados #exportarregistros #exportartabela #delphiparaexcel #lazarusparaexcel #mysqlparaexcel #mariadbparaexcel #sqliteparaexcel #firebirdparaexcel #postgresqlparaexcel
The following two tabs change content below.
Comecei na área de TI há um bom tempo (1991) com aqueles cursos de MS-DOS 6.22, WordStar, Lotus123, Dbase III Plus, etc. Adorei programar em Dbase III Plus utilizando Dbf; achei fantástico quando aprendi a programar em Clipper Summer 87 e posteriormente Clipper 5.x, que era muito estável em rede utilizando Novell NetWare. Desde então sou um fanático por TI. Hoje desenvolvo aplicações para Windows, Android, OS X e Linux utilizando Lazarus (free Pascal) . Blogueiro (www.infocotidiano.com.br, www.aprendalazarus.com.br, www.startdb.info). Além dos meus Blogs tenho um canal no YouTube o www.youtube.com.br/infocotidiano onde tenho mais de 1 Milhão de visualizações com vídeos de dicas diversificadas que vão desde solucionar um erro de impressão, curso sobre banco de dados, até criar software multi-plataforma utilizando o Lazarus.