Socorro alquem pode me ajudar ??????
tenho um arquivo TXT e preciso atualizar o bd SQL Server, sempre que este arquivo TXT é alterado, alguem pode me esplicar ou me dar alguma dica de site ....
Obrigado
Edmar :idea:
Obrigado
Edmar :idea:
Martelato
Curtidas 0
Respostas
Dbezerra
14/05/2003
falae cumpadi!
acho q tenho como te ajudar, mas antes eu gostaria q vc explicasse melhor qual eh a sua dificuldade...
acho q tenho como te ajudar, mas antes eu gostaria q vc explicasse melhor qual eh a sua dificuldade...
GOSTEI 0
Martelato
14/05/2003
cara, tenho este codigo para gravar um txt em uma tabela sql, cliente/servidor, eu preciso que ao carregar o form da aplicacao eu verifico se o arquivo foi alterado, se for treu o codigo devera apagar a tabela e logo apos atualizar com o arquivo novo.. estou aguardanto
obrigado
Edmar
procedure TfrmPedidos.CopiaTXT(Sender: TObject);
var
TXT : TextFile ;
Entrada : String ;
begin
AssignFile(TXT, ´C:\USIProjetos\Tabelas\Prods.TXT´);
Reset(TXT) ;
while not Eoln(TXT) do
begin
Readln(TXT,Entrada) ;
with tadoquery.create(nil) do
try
connection := suaconexao;
sql.add(´insert suatabela(campo1,campo2....)´;
sql.add(´values(:campo1, :campo2, ...)´
parameters.itens[0].datatype := ftstring;
parameters.itens[1].datatype := ftinteger;
parameters[0].value :=Copy(Entrada,01,09) ;
parameters[1].value := Copy(Entrada,10,40) ;
execsql;
finally
free;
end;
end;
CloseFile(TXT) ;
btnCopia.Enabled := False ;
end;
obrigado
Edmar
procedure TfrmPedidos.CopiaTXT(Sender: TObject);
var
TXT : TextFile ;
Entrada : String ;
begin
AssignFile(TXT, ´C:\USIProjetos\Tabelas\Prods.TXT´);
Reset(TXT) ;
while not Eoln(TXT) do
begin
Readln(TXT,Entrada) ;
with tadoquery.create(nil) do
try
connection := suaconexao;
sql.add(´insert suatabela(campo1,campo2....)´;
sql.add(´values(:campo1, :campo2, ...)´
parameters.itens[0].datatype := ftstring;
parameters.itens[1].datatype := ftinteger;
parameters[0].value :=Copy(Entrada,01,09) ;
parameters[1].value := Copy(Entrada,10,40) ;
execsql;
finally
free;
end;
end;
CloseFile(TXT) ;
btnCopia.Enabled := False ;
end;
GOSTEI 0
Dbezerra
14/05/2003
de q forma este arquivo pode ser alterado??? linhas sao adicionadas, retiradas...???
teria como vc guardar em algum lugar alguma caracteristica deste arquivo ao sair da sua aplicacao para q, ao entrar nela novamente, vc verifique se esta caracteristica foi alterada, como tamanho, data de modificacao???
valeu
teria como vc guardar em algum lugar alguma caracteristica deste arquivo ao sair da sua aplicacao para q, ao entrar nela novamente, vc verifique se esta caracteristica foi alterada, como tamanho, data de modificacao???
valeu
GOSTEI 0