Importar Dados de um Banco de Dados para o Outro Usando IBX

Question

Boa Noite Pessoal,     Preciso fazer uma [b:27d2fecf7f]importa��o[/b:27d2fecf7f] de registros de um Banco de Dados para o Outro[b:27d2fecf7f](Transformar os 2 Bancos em UM s�) [/b:27d2fecf7f]e Preciso...

Adriano_servitec · Answer

Ol�, vc quer via c�digo no Delphi?Se for e, se vc tiver no fields editor da mesma estrutura de campos na mesma ordem, vc pode utilizar um m�todo gen�rico. Ex:[code:1:6a90ab323b]procedure TseuForm.xxxxxvar i: integer;begin     suatable1.First;     while not table1.Eof do begin           suatable2.Insert;           for i := 0 to suatable1.Fields.Count - 1 do               suatable2.Fields&#91;i&93;.Value := suatable1.Fields&91;i&93;.value;           suatable2.Post;           suatable1.Next;     end;end; [/code:1:6a90ab323b]...

Rafaelpinto11 · Answer

� via c�digo Delphi 7 sim e usando a Metodologia IBX...Vou tentar implementar essa estrutura que vc me passou no que eu quero fazer...Eu posto uma resposata se der certo ou n�o.

Valeu pela Intens�o Irm�o!!!

Rafaelpinto11 · Answer

Adriana_Servitec,

Vc tem uma id�ia de como ficaria essa estrutura usando sintaxe SQL, exemplo... Eu uso Querys, e queria saber como seria usando:

query2.sql.clear
query2.sql.Add( �Insert Into CEP xxxxxxxx�);
query2.parambyname(�CAMPO�).astrsin := query1.fieldbyname(�CAMPO�).asstring;
Query2.execSQL;

E Tbm quero lhe falar que o Banco n�o � Generico, que A Tabela DESTINO tem mais campos que a TABELA Origem... Se vc me der uma Luz...ficarei Muito Grato....

Adriano_servitec · Answer

[quote:5abcc0538f=�rafaelpinto11�]Adriana_Servitec,          Vc tem uma id�ia de como ficaria essa estrutura usando sintaxe SQL, exemplo... Eu  uso Querys, e queria saber como seria usando:               query2.sql.clear           query2.sql.Add( �Insert Into CEP xxxxxxxx�);           query2.parambyname(�CAMPO�).astrsin :=  query1.fieldbyname(�CAMPO�).asstring;           Query2.execSQL;           E Tbm quero lhe falar que o Banco n�o � Generico, que A Tabela DESTINO tem mais campos que a TABELA Origem... Se vc me der uma Luz...ficarei Muito Grato....[/quote:5abcc0538f]Tente assim[code:1:5abcc0538f]INSERT INTO destino          (campoDestino)   SELECT campoOrigem           FROM origem        WHERE          campoDestino = CampoOrigem[/code:1:5abcc0538f][color=red:5abcc0538f]Adriana_Servitec[/color:5abcc0538f]Ai n�o heim...Ta me estranhando  :x   :D...

Rafaelpinto11 · Answer

[b:8e340dcd32] ADRIANO[/b:8e340dcd32]

N�o deu pra fzer da forma acima, para testar, estou tentando fazer com a tabela de CEP, para n�o ter perigo de Errar com alguma tabela de registro e eu fiz da seguinte forma:

Coloquei esse c�digo dentro de um BtnButton desta forma:

procedure TFImportDados.BtnImportClick(Sender: TObject);
begin
Query2.Close;
Query2.SQL.Clear;
query2.SQL.Add(�Insert into CEP1 (CEP, BAIRRO, CIDADE, UF)�);
Query2.SQL.Add(�values (:CEP, :BAIRRO, :CIDADE, :UF)�);
Query1.SQL.add(�Select * from CEP where CEP = CEP, BAIRRO = BAIRRO, CIDADE = CIDADE, UF = UF�);
Query2.ParamByName(�CEP�).AsInteger :=Query1.fieldbyname(�CEP�).AsInteger;
query2.ParamByName(�BAIRRO�).AsString := Query1.fieldbyname(�BAIRRO�).AsString;
Query2.ParamByName(�CIDADE�).AsString := Query1.fieldbyname(�CIDADE�).AsString;
Query2.ParamByName(�UF�).AsString := Query1.fieldbyname(�UF�).AsString;
Query2.ExecSQL;
end;

e quando mando compilar e executar a importa��o clicando no BtnButton, d� o Seguinte erro: �Query1, field CEP not found�. Sendo que eu j� testei com outros campos, e continua dando o mesmo erros sendo que com outros nomes de campos n�...Eu n�o uso intru��o SQL dentro da Query, Eu uso a instru��o SQL no C�digo mesmo. N�o estou conseguindo resolver....

Abra�os ADRIANO...Se puder me dar uma luz...agrade�o..;.

Adriano_servitec · Answer

Ola, vou mostrar aqui como transportar por SQL com duas tabelas com a mesma estrutura.

Veja o exemplo

--Inserir na segunda tabela os registros da primeira tabela via SQL

insert into movimento2 (
        idmovimento,
        idloja,
        idcaixa,
        dtmovimento,
        vdnaofinalizada,
        cxnaoinformado,
        inversaopgto,
        vdfinaldeumdiapoutro,
        cxinfemdterrada,
        vlinformadocorretamente,
        sangriaincorreta,
        outrostperros)

   SELECT *
           FROM movimento A
            WHERE
                a.idmovimento             = movimento2.idmovimento
                    and
                a.idloja                  = movimento2.idloja
                    and
                a.idcaixa                 = movimento2.idcaixa
                    and
                a.dtmovimento             = movimento2.dtmovimento
                    and
                a.vdnaofinalizada         = movimento2.vdnaofinalizada
                    and
                a.cxnaoinformado          = movimento2.cxnaoinformado
                    and
                a.inversaopgto            = movimento2.inversaopgto
                    and
                a.vdfinaldeumdiapoutro    = movimento2.vdfinaldeumdiapoutro
                    and
                a.cxinfemdterrada         = movimento2.cxinfemdterrada
                    and
                a.vlinformadocorretamente = movimento2.vlinformadocorretamente
                   and
                a.sangriaincorreta        = movimento2.sangriaincorreta
                    and
                a.outrostperros           = movimento2.outrostperros

Assim vc insere o conteudo da tabela �MOVIMENTO� para a tabela �MOVIMENTO2�

Adriano_servitec · Answer

Vendo o teu codigo acima, eu aqui n�o uso o VALUE do insert para trasnferir

Query2.SQL.Add(�values (:CEP, :BAIRRO, :CIDADE, :UF)�);

E tamb�m aqui nesta linha

Query1.SQL.add(�Select * from CEP [color=red:deed7bf86c]where CEP = CEP, BAIRRO = BAIRRO, CIDADE = CIDADE, UF = UF�[/color:deed7bf86c]);

Vc n�o pode jogar numa condi��o do where virgulas entre os campos, tem que ter alguma fun��o tipo [b:deed7bf86c]AND, OR, BETWEEN, >, <, =,[/b:deed7bf86c] Etc...

e quando mando compilar e executar a importa��o clicando no BtnButton, d� o Seguinte erro: �Query1, field CEP not found�.

[b:deed7bf86c]�Query1, field CEP not found�[/b:deed7bf86c]
Este erro provavelmente � pq vc n�o alimentou o TFields do Query com os campos da tabela.

Tente assim

Insert into CEP1  
                (CEP, 
                  BAIRRO, 
                  CIDADE, 
                  UF)
            Select * from CEP 
                    where CEP = cep1.CEP
                                and 
                              BAIRRO = cep1.BAIRRO
                                and
                              CIDADE = cep1.CIDADE
                                and
                              UF = cep1.UF

F�rum Importar Dados de um Banco de Dados para o Outro Usando IBX #367744