GARANTIR DESCONTO

Fórum Como importar registros de várias tabelas DBF p/ o Interbase #58812

06/09/2007

0

Meus Prezados,
Como posso importar os registros de várias tabelas DBF para as tabelas com a mesma estrutura no Interbase(.GDB) utilizando o delphi 7.Por exemplo, preciso importar os registros de 5 tabelas DBF que estão em disquete 3 1/2 para as tabelas de um banco de dados interbase, de um programa em delphi 7.Quando o usuário clicar no botão importar , ele deverá procurar o caminho, selecionar as tabelas e importa-las.COmo posso fazer isso, alguém tem um exemplo para me enviar?Podem me ajudar?
Agradeço a ajuda.


Thaita

Thaita

Responder

Posts

06/09/2007

Rinez

Thaita:
Faça o seguinte:
1) Pegue a primeira tabela DBF e ative ela com os dados.

2) Crie um Banco de dados FDB e crie a tabela com as estruturas
da iguais as da tabela DBF.
3) Usando a paleta DBEXRESS coloque um sqlconnection1 e uma query1.
4) Faça a conecção do sqlconnection1 com seu banco.
5) O proprio sqlconnecton1 pode criar suas tabelas.
6) ligue a query1 com sqlconnection - Object Inspetor sqlconnection.


7) Coloque em um botão:
suatabelaDBF. open;
sua tabelaDBF.first;
for i:=1 to suatabelaDBF.recordcount do

with query1 do begin
close;
sql.clear;
sql.add(insert into suatabelaInterbase (id,nome,... ) values(´)
sql.add(:id,:nome, ...)´);
parambynme(´id´).asinteger:=SuatabelaDBF.fieldbyname(´tal´).asinteger;
parambynme(´nome´).asstring:=SuatabelaDBF.fieldbyname
´talnome´).asstring;

. . . . . .. .
. . . . ... . .

execsql;
end; // with
end; // for
todos os dados da primeira tabelaDBF estarão na SuaTabelaInterbase.
Faça o mesmo para outras tabelas.
Qualquer duvida estamos aqui para ajudar.


Responder

Gostei + 0

06/09/2007

Gandalf.nho

Use o IBDatapump.


Responder

Gostei + 0

06/09/2007

Martins

Use o IBDatapump.
Também sou favrorável ao uso do[b:331970ae4b] IBDatapump[/b:331970ae4b] por ser mais rápido e por ter essa finalidade tb.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar