Publicado em 14 de jul.

Exportar dados do Firebird para excel

Bom dia pessoal...

Sou iniciante em Delphi e gostaria da ajuda de vcs para um problema que acredito eu, seja simples.

Preciso exportar alguns dados do firebird para um arquivo em excel.

Tenho o select pronto no banco e preciso somente passar uma data inicial e uma data final como parâmetro para exportar os dados.

A tela terá então, somente dois campos de data inicial e data final e o botão para exportar.

Se alguém tiver um passo a passo, ficaria agradecido!!!!

Obrigado.

Discussão (1)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

bdexterholland· 14 de jul.

Você pode exportar o conteúdo para CSV, formato que o excel reconhece bem.

Faça um loop que percorra seu select e para cada registro formate os campos em uma linha separando cada campo por um , (vírgula) ou ; (ponto vírgula)

While not IBQuery1.EOF do
begin
MeuStringList.Lines.Add(IBQuery1.FieldByName('Campo1').AsString + ';' +

 IBQuery1.FieldByName('Campo2').AsString + ';' {repetindo até atendender o todos os campos necessários});
 end;
MeuStringList.Lines.SaveToFile('c:\MeuArquivoCSV.CSV');
//MeuStringList.SaveToFile('c:\MeuArquivoCSV.CSV');