Jump to content

Exportar uma consultar SQL para .CSV dentro da aplicação Delphi.


Postagens Recomendadas

Desenvolvedor(a) Delphi que precisa fazer uma exportação na sua aplicação de forma prática. 

01.jpg

1- Código da consulta

begin
  if memo1.Text ='' then
  begin
    MessageDlg('SQL EM BRANCO',mtInformation,[mbOk],0);
    abort;
  end;
 SQL_EXCEL.Close;
 SQL_EXCEL.sql.Clear;
 SQL_EXCEL.sql.Text := Memo1.Text;
 SQL_EXCEL.Open;

 End;

2-Função que exporta o arquivo  .CSV

VAR SLISTA : TSTRINGLIST;
NCAMPO : integer;
CLinha :string;
PLANILHA: Variant;

begin
      SLista := Tstringlist.Create;
      Clinha :='';
        for NCAMPO := 0 to SQL_EXCEL.Fields.Count-1 do
        CLinha := CLinha+SQL_EXCEL.Fields[NCAMPO].DisplayLabel+';';
        SLISTA.Add(CLINHA);
        sql_excel.First;

       while not SQL_EXCEL.Eof do
       begin
         Clinha :='';
         for NCAMPO := 0 to SQL_EXCEL.Fields.Count-1 do
         CLinha := CLinha+SQL_EXCEL.Fields[NCAMPO].DisplayText+';';
         SLISTA.Add(CLINHA);
         SQL_EXCEL.Next;
       end;
      SLISTA.SaveToFile('d:\teste.csv');
end;

 

3-Efetua a limpeza dos componentes.

begin
Memo1.Text :='';
SQL_EXCEL.SQL.Clear;
SQL_EXCEL.Close;
end;

4-Componente TFDQUERY.

5-Componete DataSource.

6-Resulta da Consulta SQL. Componente DBGRID.

7-Campo MEMO. Para efetuar a consulta SQL.

Campos de Consulta SQL .

02.jpg

 

 

RESULTADO NO ARQUIVO .CSV

03.jpg

 

 

 

 

 

  • Curtir 1
Link to comment
Compartilhe em outros sites

Crie uma conta ou entre para comentar 😀

Você precisa ser um membro para deixar um comentário.

Crie a sua conta

Participe da nossa comunidade, crie sua conta.
É bem rápido!

Criar minha conta agora

Entrar

Você já tem uma conta?
Faça o login agora.

Entrar agora


×
×
  • Create New...