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 !
Código 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
