Para bajar y subir informacion
Utilizo la rutina siguiente, para bajar y subir informacion entre dos o mas computadoras que no estan en red.
procedure TFbaja_inf.BprocesaClick(Sender: TObject);
var linea:string;
begin
linea:='cmd /k bcp "select * from bd_cona..cta where asoc in (select cod from bd_cona..ltablas where tab='+car+'ASO'+car+' and tiene='+car+'1'+car+')" queryout Bcta.txt -c -T';
try
WinExec( Pchar(linea), SW_Hide);
except
MessageDlg('No se ha podido bajar el archivo cta.', mtWarning, [mbOK], 0);
exit;
end;
showmessage('Termino el proceso de bajado');
end;
Y para subir el archivo utilizo:
linea:='cmd /k bcp bd_cona..cta in bcta.txt -c -T';
try
WinExec( Pchar(linea), SW_Hide);
except
MessageDlg('No se ha podido subir el archivo cta.', mtWarning, [mbOK], 0);
exit;
end;
En Windows XP Me funciona muy bien. No asi en windows 7 ni tampoco me reporta error. Si alguien pudiese ayudarme le estaria muy agradecido.
|