Artigo Clube Delphi 107 - Migrando dados de um banco para outro

Neste artigo veremos

Criaç�o de banco de dados Firebird;
Exemplo de migraç�o de dados.

Qual a finalidade?

Descobrir como recuperar os registros de um banco para outro com a estrutura das tabelas totalmente diferente;
=Exemplificar, de maneira pr�tica, a soluç�o para diferentes situaç�es complicadas, independente do sistema gerenciador de banco de dados usado.

Quais situaç�es utilizam esses recursos?

Quando se est� implantando um novo sistema em um cliente e o mesmo precisa recuperar os dados j� cadastrados em seu antigo sistema desenvolvido por terceiros a maior parte das vezes � criar uma aplicaç�o para migraç�o de dados, como fazer isso?

Resumo do DevMan

Como importar os dados de um banco para outro que possui a estrutura das tabelas totalmente diferente? Como inserir as depend�ncias e manter a integridade dos dados? Uma aplicaç�o em Delphi � a soluç�o para a maioria dos problemas encontrados na hora de se importar os registros contidos em um banco de dados que ser� substitu�do. Este artigo traz um exerc�cio pr�tico para exemplificar a soluç�o para situaç�es como esta, a se aplicar independente do sistema gerenciador de banco de dados usado.

Nada � mais importante para o usu�rio de um sistema do que manter o cadastro de seus clientes e outros dados importantes quando se fala em substituir seu sistema. Passamos por esta situaç�o quando desenvolvemos um sistema para um cliente que j� possu�a um outro sistema desenvolvido por terceiros. O problema na hora de importar os dados � que, como existem muitas maneiras de se modelar tabelas de um banco de dados, e como cada programador pensa de um jeito diferente, as tabelas do banco origem �s vezes s�o bem diferentes do banco destino. Outra situaç�o parecida � a que programadores mais experientes com certeza j� passaram: ter que atualizar seu antigo sistema que armazenava dados em uma base de dados ultrapassada (Paradox por exemplo), para um banco de dados mais moderno. Nesse caso, o programador, com mais experi�ncia do que quando criou o antigo sistema, encontra soluç�es mais elaboradas para estruturar o seu novo banco. A id�ia desse artigo, para desenvolvedores iniciantes que certamente passar�o por essa situaç�o, � mostrar como criar uma aplicaç�o em Delphi que ir� acessar os dois bancos, percorrer registro por registro e inserir no banco destino fazendo todo controle de condiç�es para manter a integridade dos dados.

Um exemplo de estruturas de tabelas diferentes seria:

Banco 1: Cont�m uma tabela para armazenar clientes, outra para fornecedores e outra para funcion�rios;
Banco 2: Cont�m uma tabela chamada Pessoa, onde s�o armazenados os v�rios tipos de cadastros com dados em comum, como por exemplo cliente, fornecedor e funcion�rio (t�m em comum: nome, endereço, telefone, CPF, etc.). Para cada novo registro na tabela Pessoa, deve-se informar o valor verdadeiro ou falso para os campos Cliente, Fornecedor e Funcionario. Essa estrutura evita que uma pessoa que seja cliente e funcion�rio ao mesmo tempo seja cadastrada mais de uma vez.

No decorrer do artigo ser� colocada em pr�tica a criaç�o de dois bancos com caracter�sticas do exemplo citado acima. Vamos nos referenciar a eles como sendo respectivamente o banco origem (cont�m os dados j� cadastrados) e o banco destino (receber� a importaç�o dos dados). Ambos os bancos ser�o criados em Firebird. Na verdade, poder�amos exemplificar com SGBDs (Sistema Gerenciador de Banco de Dados) diferentes, mas o foco do artigo est� na estrutura diferente das tabelas. Usando apenas o Firebird tornamos a pr�tica do artigo mais din�mica. Al�m do mais, todo o controle de importaç�o ser� feito na aplicaç�o, ou seja, n�o depende do SGBD.

Ap�s a criaç�o dos bancos, o pr�ximo passo ser� a aplicaç�o. Nesta, iremos primeiramente adicionar um formul�rio simples para inserir alguns cadastros no banco origem. Em seguida, outro formul�rio ir� controlar todo o processo de importaç�o dos dados, analisando as condiç�es e inserindo os dados atrav�s de DataSet�s.

Criando a origem

Criaremos primeiramente um banco de dados simples para usar de exemplo para a origem dos dados que queremos importar. Este ter� apenas as tabelas Cliente, Dependente, Fornecedor e Funcionario. Sugiro que o banco seja criado em Firebird 2.0 e com a ferramenta IBExpert para execuç�o dos scripts, mas como j� foi dito, o SGDB fica a crit�rio de cada um. A Listagem 1 mostra o script para criaç�o do banco de dados origem.

A Listagem 2 traz um script opcional onde, para cada tabela, � criado um genaretor (Gen_Cliente_Id, Gen_Dependente_Id, etc.) e um trigger (T_Cliente_Bi, T_Dependente_Bi, etc.). O objetivo � gerar automaticamente o c�digo da chave prim�ria de cada tabela. Os triggers sempre ser�o disparados antes da confirmaç�o de uma inserç�o (Active Before Insert) e ir�o atribuir a chave prim�ria para a tabela respectiva, retornando o valor do generator.

Listagem 1. Script de criaç�o do banco de dados origem

CREATE DATABASE 'C:\SISTEMAS\BANCOS\ORIGEM.FDB'
  CREATE TABLE CLIENTE (
      CLI_CODIGO INTEGER NOT NULL,
      CLI_NOME VARCHAR(70) NOT NULL,
      CLI_PESSOA_FJ CHAR(1) NOT NULL,
      CLI_CPF_CNPJ VARCHAR(20) NOT NULL,
      CLI_ENDERECO1 VARCHAR(70),
      CLI_NUM_END1 VARCHAR(10),
      CLI_BAIRRO1 VARCHAR(40),
      CLI_CEP1 CHAR(10),
      CLI_CIDADE1 VARCHAR(40),
      CLI_UF1 CHAR(2),
      CLI_ENDERECO2 VARCHAR(70),
      CLI_NUM_END2 VARCHAR(10),
      CLI_BAIRRO2 VARCHAR(40),
      CLI_CEP2 CHAR(10),
      CLI_CIDADE2 VARCHAR(40),
      CLI_UF2 CHAR(2));
  ALTER TABLE CLIENTE ADD CONSTRAINT PK_CLIENTE PRIMARY KEY (CLI_CODIGO);
  CREATE GENERATOR GEN_CLIENTE_ID;
  CREATE TRIGGER T_CLIENTE_BI FOR CLIENTE ACTIVE BEFORE INSERT POSITION 0
  AS
  BEGIN
    IF (NEW.CLI_CODIGO IS NULL) THEN
      NEW.CLI_CODIGO = GEN_ID(GEN_CLIENTE_ID,1);
  END
  ;
  CREATE TABLE DEPENDENTE (
      DEP_CODIGO     INTEGER NOT NULL,
      CLI_CODIGO     INTEGER NOT NULL,
      DEP_NOME       VARCHAR(70) NOT NULL,
      DEP_DATA_NASCIMENTO DATE
  );
  ALTER TABLE DEPENDENTE ADD CONSTRAINT PK_DEPENDENTE PRIMARY KEY (DEP_CODIGO)
    USING INDEX PK_DEPENDENTE; 
  ALTER TABLE DEPENDENTE ADD CONSTRAINT FK_DEP_CLIENTE FOREIGN KEY (CLI_CODIGO)
    REFERENCES CLIENTE(CLI_CODIGO)USING INDEX FK_DEP_CLIENTE;
  CREATE GENERATOR GEN_DEPENDENTE_ID;
  CREATE TRIGGER T_DEPENDENTE_BI FOR DEPENDENTE ACTIVE BEFORE INSERT POSITION 0
  AS
  BEGIN
    IF (NEW.DEP_CODIGO IS NULL) THEN
      NEW.DEP_CODIGO = GEN_ID(GEN_DEPENDENTE_ID,1);
  END
  ;
  CREATE TABLE FORNECEDOR (
      FOR_CODIGO INTEGER NOT NULL,
      FOR_NOME VARCHAR(70) NOT NULL,
      FOR_PESSOA_FJ CHAR(1) NOT NULL,
      FOR_CPF VARCHAR(20) NOT NULL,
      FOR_ENDERECO VARCHAR(70),
      FOR_NUM_END VARCHAR(10),
      FOR_BAIRRO VARCHAR(40),
      FOR_CEP CHAR(10),
      FOR_CIDADE VARCHAR(40),
      FOR_UF CHAR(2)
 );
  ALTER TABLE FORNECEDOR ADD CONSTRAINT PK_FORNECEDOR PRIMARY KEY (FOR_CODIGO);
  CREATE GENERATOR GEN_FORNECEDOR_ID;
  CREATE TRIGGER T_FORNECEDOR_BI FOR FORNECEDOR ACTIVE BEFORE INSERT POSITION 0
  AS
  BEGIN
    IF (NEW.FOR_CODIGO IS NULL) THEN
      NEW.FOR_CODIGO = GEN_ID(GEN_FORNECEDOR_ID,1);
  END
  ;
  CREATE TABLE FUNCIONARIO (
      FUN_CODIGO INTEGER NOT NULL,
      FUN_NOME VARCHAR(70) NOT NULL,
      FUN_CPF VARCHAR(11) NOT NULL,
      FUN_ENDERECO VARCHAR(70),
      FUN_NUM_END VARCHAR(10),
      FUN_BAIRRO VARCHAR(40),
      FUN_CEP CHAR(10),
      FUN_CIDADE VARCHAR(40),
      FUN_UF CHAR(2),
      FUN_CARGO VARCHAR(40),
      FUN_SALARIO NUMERIC(12,2)
 );
  ALTER TABLE FUNCIONARIO ADD CONSTRAINT PK_FUNCIONRIO PRIMARY KEY (FUN_CODIGO);
  CREATE GENERATOR GEN_FUNCIONARIO_ID;
  CREATE TRIGGER T_FUNCIONARIO_BI FOR FUNCIONARIO ACTIVE BEFORE INSERT POSITION 0
  AS
  BEGIN
    IF (NEW.FUN_CODIGO IS NULL) THEN
      NEW.FUN_CODIGO = GEN_ID(GEN_FUNCIONARIO_ID,1);
  END
  ;"

[...] continue lendo...

Artigo Clube Delphi 107 - Migrando dados de um banco para outro

Criação de banco de dados Firebird; Exemplo de migração de dados

Criando a origem

Artigos relacionados