Percorrer os campos de uma tabela em tempo de execução

Olá.

Todo bom desenvolvedor uma hora ou outra vai precisar importar dados de uma tabela pra outra. Se a tabela for pequena não deverá ter tantos problemas, contudo se for uma daquela com dezenas de campos ai já fica bem chato de fazer. Uma boa saída é fazer em runtime a descoberta dos campos da tabela e consequentemente percorrer seus fields. Porém só vai funcionar se as tabelas forem estruturalmente iguais.
Segue o código.:

A lógica é que primeiro precisamos percorrer a query QrOrigem que é passada por parâmetro. Em seguida precisamos descobrir o total de campos da tabela, pra isso usamos a propriedade FieldList.Count. Em seguida basta pegar o campo dentro do laço mais interno usado a propriedade FieldList.Field[index].AsVariant e fazermos atribuição na QrDestino que também foi passada por parâmetros.

E o resto é meio que auto explicativo. Parece que é difícil mas é bem tranquilo. Duvidas e sugestões é só falar.


Comentários

Postar um comentário

Postagens mais visitadas deste blog

Preenchendo com zeros a esquerda de um valor com Firebird

Olá, estes dias um novo cliente, precisava cadastrar seus produtos e me falou que nem todos tinham código de barras, então eu falei a ele, deixa eu branco que eu gero depois de forma automatizada. Até ai tudo simples, contudo alguns produtos tinham os referidos códigos e orientei que fossem inseridos no programa via leitor. Após a finalização da etapa destes cadastros o cliente queria imprimir etiquetas para seus produtos sem código. Bom, nada de mais, vamos lá. Primeiro tive a brilhante ideia de gerar valores simples baseado no código de chave primaria da tabela de produtos, claro que somente estes valores não seriam muito legais por serem poucos algarismos nos registros iniciais, então pensei em pegar o ano corrente e o código de chave primaria para compor o código de barras.  No entanto ainda era necessário preencher com zeros a esquerda do valor do código de barras pois o leitor ia retornar um algarismos com 13 caracteres devido o padrão utilizado ser EAM13. Então utiliz...
Leia mais

AWS para Desenvolvedores - Dominando S3 com Delphi

Imagem
Olá, Neste post vamos falar de Amazon S3 um serviço de armazenamento de dados na nuvem da AWS altamente escalável e confiável. É amplamente utilizado no mundo inclusive em soluções bem conhecidas como DropBox.  Pode ser acessado através do console de gerenciamento, desde que tenha uma conta é claro. http://console.aws.amazon.com No S3 alguns conceitos são importantes na hora de utilizar o serviço, por exemplo lá tudo que é armazenado são objetos, não importa o arquivo que você mandar pra lá, ele sempre sera tratado como objeto. Este objeto pode ter tamanho entre 1 byte e 5 Terabytes. Por lá também não existem pastas, apenas buckets, sendo o número de buckets limitados a 100 e sendo ilimitado o numero de objetos que pode ser armazenado. No Delphi XE 10.2 temos um componente nativo muito interessante que nos permite conectar com os serviços da Amazon de forma muito simplória. O componente destacado na figura acima é o TAmazonConnectionInfo basta apenas adiciona-...
Leia mais

Conhecendo o FireDac - trabalhando com Macros

Imagem
Olá. Macros são definidos na programação como um padrão de entrada que é substituído por um novo padrão de saída, ou seja, executam um processamento automático em algum ponto, em outros drives como DBX até podíamos utilizar variáveis e/ou parâmetros ou mesmo filtros utilizando condições como where e tal. Contudo não era possível por exemplo usar um parâmetro substituindo o nome da tabela. Ex.: "select * from :tabela" . No FireDac pode ser feito uso de variáveis de substituição como um processador de templates e substituir o texto da variável, usando caracteres "!" representando string e "&" representando (SQL). Interessante não.? Até mais. Fonte: guintherpauli.blogspot.com.
Leia mais