el codigo es el siguiente
STORE SQLSTRINGCONNECT('dsn=conefox;uid=nn;pwd=nn') TO ln_sql
IF ln_sql <= 0
MESSAGEBOX('Imposible Conectar con base de datos Sql',48,'Master Retail')
ELSE
WAIT windows 'Buscando Informacion de Empleados...' nowait
lc_empleados = "select * from empleados order by compania,numep"
= SQLSETPROP(ln_sql, 'asynchronous', .F.)
= SQLEXEC(ln_sql, lc_empleados, 'LC_EMPLEADO1')
lc_emp = "select nombre,codigo,nomenc from empresa"
= SQLSETPROP(ln_sql, 'asynchronous', .F.)
= SQLEXEC(ln_sql, lc_emp, 'LC_EMPrEsa')
ENDIF
SELECT *, cia_autoriza as ciaa from LC_EMPLEADO1 INTO TABLE c:\LC_EMPLEADO
SELECT LC_EMPLEADO1
use
= SQLDISCONNECT(ln_sql)
este es el codigo que utilizo, revise la estructura de la tabla y el campo mas grande es un char de 30....
gracias.
El Hombre que dice
"No Puede Hacerse",
será sorprendido por
"Alguien que lo Haga"