Transferir Dados DBF p/ DB e Vice Versa
Gostaria de saber se tem alguma maneira de criar um programa que fizesse a transferencia de dados de DBF p/ DB sem utilizar o DATABASE DESKTOP.
Criando um programa em delphi para fazer isso.
Por exemplo:
Tenho um Cadastro de Produtos com a mesma estrurura em programa feito em Delphi 6 e Clipper
Quero pressionar uma tecla e entao ele vai atualizar o DB atravez do DBF.
Quero implantar essa rotina no meu sistema para nao ter que ficar indo toda vez no DATA BASE DESKTOP para converter os Dados, quero fazer isso no meu sistema.
Podem me ajudar?
Grato
Anderson Fagundes de Belem
Criando um programa em delphi para fazer isso.
Por exemplo:
Tenho um Cadastro de Produtos com a mesma estrurura em programa feito em Delphi 6 e Clipper
Quero pressionar uma tecla e entao ele vai atualizar o DB atravez do DBF.
Quero implantar essa rotina no meu sistema para nao ter que ficar indo toda vez no DATA BASE DESKTOP para converter os Dados, quero fazer isso no meu sistema.
Podem me ajudar?
Grato
Anderson Fagundes de Belem
Anonymous
Curtidas 0
Respostas
Aroldo Zanela
04/04/2003
http://clubedelphi.videomart.com.br/viewtopic.php?t=7856&highlight=batchmove
GOSTEI 0
Anonymous
04/04/2003
Muito Obrigado. Eu compro rotinas em delphi 6 ou 7 para uso de ECF,TEF e SINTEGRA
Caso alguem tiver?
Caso alguem tiver?
GOSTEI 0
Crcam
04/04/2003
tbl_origem.Open;
tbl_destino.Open;
tbl_origem.First;
while not tbl_origem.eof do
begin
tbl_destino.Insert;
tbl_destino.FieldByName(´Codigo´).AsInteger := tbl_origem.FieldByName(´Codigo´).AsInteger;
tbl_destino.FieldByName(´Nome´).AsString := tbl_origem.FieldByName(´Nome´).AsString;
tbl_destino.Post;
tbl_origem.Next;
end;
espero ter te ajudado!
tbl_destino.Open;
tbl_origem.First;
while not tbl_origem.eof do
begin
tbl_destino.Insert;
tbl_destino.FieldByName(´Codigo´).AsInteger := tbl_origem.FieldByName(´Codigo´).AsInteger;
tbl_destino.FieldByName(´Nome´).AsString := tbl_origem.FieldByName(´Nome´).AsString;
tbl_destino.Post;
tbl_origem.Next;
end;
espero ter te ajudado!
GOSTEI 0