Fórum Transferencia de bancos #264014

//////////////////////////////////////////////////////////////////////////////
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...

//////////////////////////////////////////////////////////////////////////////
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...

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;