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

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: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

Programando: Java vs Delphi / Lazarus: While – Parte 2

Todo mundo sabe que alguns quarentões do Delphi ou Lazarus defende com
unhas e dentes a produtividade desta maravilhosa ferramenta. Eu também
faço parte deste grupo. Mas resolvi me aventurar e conhecer um pouco
mais sobre como programar em Java. Este vídeo mostra minha primeira
experiência, vai servir para dinossauros como eu fazer algumas
comparações entre as linguagens !

Hoje vamos comparar a função While !

#1 – Delphi e Lazarus: Protegendo seu sistema

O OnGuard é um
componente com diversas funções para proteger o seu sistema. Vamos
usar o OnGuard para criar uma solução de proteção, gerando chave
de liberação por data de expiração.
Você pode gerar a chave
de retorno informando uma chave de codificação (Nome da empresa,
mac da eth, serie do hd, etc) e a data de expiração.

Se puder me ajudar, inscreva-se no meu canal. Isso me ajuda muito !


Grupo Telegram
Lazarus/CodeTyphon:
https://t.me/joinchat/AAAAAEDYQdfQIFCU1AXEoQ

p { margin-bottom: 0.25cm; line-height: 120%; }a:link { }

Dica Lazarus: Conectar base Oracle usando ZeosLIb

Hoje vou mostrar como conectar a uma base de dados Oracle utilizando o componente ZeosLib.

Lembre-se que:

Se seu Lazarus for 64 bits, o Oracle deve ser 64 e esta regra deve ser respeitada para 32 bits.

A versão do Windows (32/64) não importa, mas o compilador não reconhece a oci.dll de versões diferentes.

Se puder me ajudar, inscreva-se no meu canal. Isso me ajuda muito !