Ver Mensaje Individual
  #1  
Antiguo 31-10-2012
luchifer luchifer is offline
No confirmado
 
Registrado: jul 2007
Ubicación: Santa Cruz - Bolivia
Posts: 50
Reputación: 0
luchifer Va por buen camino
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.
Responder Con Cita