Transferencia de bancos

Delphi

03/01/2005

Por favor, alguem poderia me dizer onde encontro um codigo, programa ou algo assim que transfira os dados de uma tabela Paradox para uma tabela MySQL? Por favor, preciso de ajuda! Obrigado pela atenção


Paid

Paid

Curtidas 0

Respostas

Max.jgs

Max.jgs

03/01/2005

Por favor, alguem poderia me dizer onde encontro um codigo, programa ou algo assim que transfira os dados de uma tabela Paradox para uma tabela MySQL? Por favor, preciso de ajuda! Obrigado pela atenção




//////////////////////////////////////////////////////////////////////////////
Você pode utilizar esse exempo
Este exemplo copia e cada registro até chegar o último...
var
TodalDeRegistros, nenhumregisto:Integer;
begin
TotalDeResgistro:= Dados.Tb_Vendas.RecordCount;
nenhumRegistro:= 0;
Tb_ParadoxVendasCod.first;
repeat
Tb_MSQLVendasCod.AsInteger:= Tb_ParadoxVendasCod.AsInteger;
totalDeResgistro:= totaldeResgistro -1;
if todosResgistro nenhumRegistro then
begin
Tb_ParadoxVendasCod.next;
end;
until todosResgistro = nenhumRegistro;
end;
end;


Espero ter ajudado.

Ass: Max...


GOSTEI 0
Max.jgs

Max.jgs

03/01/2005

[quote:0d204852c1=´Paid´]Por favor, alguem poderia me dizer onde encontro um codigo, programa ou algo assim que transfira os dados de uma tabela Paradox para uma tabela MySQL? Por favor, preciso de ajuda! Obrigado pela atenção




//////////////////////////////////////////////////////////////////////////////
Você pode utilizar esse exempo
Este exemplo copia e cada registro até chegar o último...
var
TodalDeRegistros, nenhumregisto:Integer;
begin
TotalDeResgistro:= Dados.Tb_Vendas.RecordCount;
nenhumRegistro:= 0;
Tb_ParadoxVendasCod.first;
repeat
Tb_MSQLVendasCod.AsInteger:= Tb_ParadoxVendasCod.AsInteger;
totalDeResgistro:= totaldeResgistro -1;
if todosResgistro nenhumRegistro then
begin
Tb_ParadoxVendasCod.next;
end;
until todosResgistro = nenhumRegistro;
end;
end;


Espero ter ajudado.

Ass: Max...[/quote:0d204852c1]



Eu já fiz utilizei este exeplo pra Paradox/interbase e vice-versa...


GOSTEI 0
Max.jgs

Max.jgs

03/01/2005

Você pode utilizar esse exempo
Este exemplo copia e cada registro até chegar o último...
var
TodalDeRegistros, nenhumregisto:Integer;

begin
TotalDeResgistro:= Tb_ParadoxVendas.RecordCount;
nenhumRegistro:= 0;
Tb_ParadoxVendasCod.first;
repeat
Tb_MySQLVendasCod.AsInteger:= Tb_ParadoxVendasCod.AsInteger;
totalDeResgistro:= totaldeResgistro -1;
if todosResgistro nenhumRegistro then
begin
Tb_ParadoxVendasCod.next;
end;
until todosResgistro = nenhumRegistro;
end;
end;


GOSTEI 0
Max.jgs

Max.jgs

03/01/2005

Você pode utilizar esse exempo Este exemplo copia e cada registro até chegar o último... var TodalDeRegistros, nenhumregisto:Integer; begin TotalDeResgistro:= Tb_ParadoxVendas.RecordCount; nenhumRegistro:= 0; Tb_ParadoxVendasCod.first; repeat Tb_MySQLVendas.insert; Tb_MySQLVendasCod.AsInteger:= Tb_ParadoxVendasCod.AsInteger; Tb_MySQLVendas.post; totalDeResgistro:= totaldeResgistro -1; if todosResgistro nenhumRegistro then begin Tb_ParadoxVendasCod.next; end; until todosResgistro = nenhumRegistro; end; end;



GOSTEI 0
POSTAR