MIGRAÇÃO DE BANCOS

Delphi

10/04/2014

E AI GALERA BOM DIA , SOU NOVATO EM DELPHI , TENHO UM BANCO DE DADOS EM .FDB ' FIREBIRD' E OUTRO SQL SERVER 2005 . TENHO UMA TABELA DE 'ESTOQUE' NO FIREBIRD QUERIA QUE ELE TRNSPORTASSE OS DADOS DO FIREBIRD PARA O SQL SERVER . NO DELPHI . NAO ESTOU CONSEGUINDO COM ALGUNS CODGOS QUE BUSQUEI NA NET . OBRIGADO
Robson Pinheiro

Robson Pinheiro

Curtidas 0

Respostas

Diego Garcia

Diego Garcia

10/04/2014

Amigo, faça um aplicativo para sua conversão, abra duas conexões (uma com o fb e outra com o sqlserver), rode um while na tabela de origem fazendo appends na tabela de destino.
GOSTEI 0
Robson Pinheiro

Robson Pinheiro

10/04/2014

ENTAO AMIGO JA TENTEI DIVERSAS
A ULTIMA QUE TENTEI FOI ESTA
E NAO OBTIVE SUSCESSO

DM.QR_PAC_TELE_SSA.Close;
DM.QR_PAC_TELE_SSA.SQL.Clear;

DM.QR_PAC_TELE_SSA.SQL.Add('INSET INTO PACIENTES (ID, NOME ,DATANASCIMENTO)');
DM.QR_PAC_TELE_SSA.SQL.Add('VALUES (:ID, :NOME, :DATANASCIMENTO)');

DM.QR_PAC_WIN_SSA.SQL.Add('SELECT * FROM PACIENTES WHERE ID = ID, NOME = NOME ,DATANASCIMENTO = DATANASCIMENTO');

DM.QR_PAC_TELE_SSA.Params.ParamByName('ID').AsString := DM.QR_PAC_WIN_SSA.FIELDBYNAME('ID').AsString;
DM.QR_PAC_TELE_SSA.Params.ParamByName('NOME').AsString := DM.QR_PAC_WIN_SSA.FIELDBYNAME('NOME').AsString;
DM.QR_PAC_TELE_SSA.Params.ParamByName('DATANASCIMENTO').AsString := DM.QR_PAC_WIN_SSA.FIELDBYNAME('DATANASCIMENTO').AsString;

DM.QR_PAC_TELE_SSA.execSQL;

end; // 0
GOSTEI 0
POSTAR