Para bajar y subir informacion

[[nlsgarcia]]

luchifer,

Tomado de la Ayuda en Delphi 7 (Win32 Developer's References):

The WinExec function runs the specified application.

This function is provided for compatibility with earlier versions of Windows. For Win32-based applications, use the CreateProcess function.

Preguntas:

1- ¿Si ejecutas el comando 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 directamente en la consola de Windows 7 funciona?

2- ¿Por que cmd /k y no cmd /c?, con /c ejecuta el comando y termina la instancia de consola, con /k la instancia se mantiene abierta.

3- ¿Es bd_cona..cta or bd_cona.cta?

Prueba cambiar WinExec por ShellExecute:

Código Delphi [-]
ShellExecute(0, nil, 'cmd.exe', '/C  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', nil, SW_HIDE);

Esa es la idea general, tienes que probarla.

Espero sea útil

Nelson.

[[nlsgarcia]]

luchifer,

La función ShellExecute debería funcionar de esta forma:

Código Delphi [-]
var
   s1 : String;
   s2 : array[0..255] of char;

begin

   s1 :=  '/C  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';

   StrPCopy(s2,s1);

   ShellExecute(0, nil, 'cmd.exe',s2, nil, SW_HIDE);

end;

Espero sea útil

Nelson.