Transferências entre tabelas
Olá Galera,
Preciso da ajudas de vc´s. Como faço para copiar o conteúdo de uma tabela Acces para outra paradox via código, sendo que os campos das duas tem nomes diferentes?
Exemplo:
Cliente.mdb (Access) para cliente.db (Paradox)?
Obrigod :roll:
Preciso da ajudas de vc´s. Como faço para copiar o conteúdo de uma tabela Acces para outra paradox via código, sendo que os campos das duas tem nomes diferentes?
Exemplo:
Cliente.mdb (Access) para cliente.db (Paradox)?
Obrigod :roll:
Glauber_marques
Curtidas 0
Respostas
Adilsond
16/03/2003
var
I: Word;
begin
TblAccess.Open;
try
TblParadox.Open;
try
while not TblAccess.EOF do
begin
TblParadox.Append;
for I := 0 to TblAccess.FieldCount - 1 do
TblParadox.Fields[I].Value := TblAccess.Fields[I].Value;
TblParadox.Post;
TblAccess.Next;
end;
finally
TblParadox.Close;
end;
finally
TblAccess.Close;
end;
end;
I: Word;
begin
TblAccess.Open;
try
TblParadox.Open;
try
while not TblAccess.EOF do
begin
TblParadox.Append;
for I := 0 to TblAccess.FieldCount - 1 do
TblParadox.Fields[I].Value := TblAccess.Fields[I].Value;
TblParadox.Post;
TblAccess.Next;
end;
finally
TblParadox.Close;
end;
finally
TblAccess.Close;
end;
end;
GOSTEI 0