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

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

Deixe um comentário

O seu endereço de e-mail não será publicado.