29 de janeiro de 2019

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:\tmp\teste.csv') then DeleteFile('c:\tmp\teste.csv'); sLista.SaveToFile('c:\tmp\teste.csv'); end;




Simples e objetivo. Conto com seu Like !


#exportardados #exportarregistros #exportartabela #delphiparaexcel #lazarusparaexcel #mysqlparaexcel #mariadbparaexcel #sqliteparaexcel #firebirdparaexcel #postgresqlparaexcel

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

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:\tmp\produto.csv') then DeleteFile('c:\tmp\produto.csv');
     sLista.SaveToFile('c:\tmp\produto.csv');
  ShowMessage('Produtos exportados !');

end;






#exportardados #exportarregistros #exportartabela #delphiparaexcel #lazarusparaexcel #mysqlparaexcel #mariadbparaexcel #sqliteparaexcel #firebirdparaexcel #postgresqlparaexcel

20 de janeiro de 2019

Programando - App Inventor vs Delphi/Lazarus: if/else - Parte 03


Alguns inscritos do canal pedem para postar vídeos sobre programação Android. Como não programo em Android (Java) decidi postar um vídeo sobre o App Inventor. Vamos criar um aplicativo básico Android para você conhecer a ferramenta.




Windows Update Blocker

Utilize o Windows update blocker para desabilitar o Windows update definitivamente. Este programa é válido para o Windows 10. Faça o d...