Chicos, Perdonen ante todo como arranco este mail...
IUPiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii!!! Lo logre Y es para ponerlo con luces de Colores y en todos los idomas.... Por si se preguntan que logre les respondo... El problema era poder consultar desde VFP bajo Wine sobre Ubuntu una base de datos remota SQL Server 2008 R2 alojada en un servidor Windows. Ok, eso funciona y perfectamente tuve que dar 1.000.000 de vueltas y leer medio Internet y cuando creia que estaba todo dicho y probado encontre este videito... Ojo van a notar que el flaco trabaja sobre una version muy vieja de Wine y con emulacion a Windows98... no importa miren el video y siganlo hasta establecer la conexion desde el ODBC... https://www.youtube.com/watch?feature=player_embedded&v=zXT935FB920 Tampoco importa que no este en Ubuntu el video... lo he probado en Ubuntu 12.04 LTS y con Wine 1.4 y funciona a la perfección... Va a ver que en el video el flaco instala DCOMM98 que baje de acá... http://www.microsoft.com/en-us/download/confirmation.aspx?id=839 y MDAC 2.8 sp1 que baje de acá... http://www.microsoft.com/en-us/download/details.aspx?id=5793 Todo eso lo instale seteando al Wine en Windows98 como dije, sino no los va a dejar instalar ... Una vez que tienen el DSN realizado y funcionando... setean el Wine en Windows XP y estando asi, si hacen un programa como este... lnConnHandle=SQLCONNECT('NombreDSN','Usuario','CLAVE') IF lnConnHandle < 0 = MESSAGEBOX('Cannot make connection', 16, 'SQL Connect Error') ELSE lnRetVal = SQLEXEC(lnConnHandle, "SELECT * from MiTabla","cTabla") SELECT cTabla browse = MESSAGEBOX('Connection made', 48, 'SQL Connect Message') = SQLDISCONNECT(lnConnHandle) ENDIF Funcionara perfectamente, ahora si hace mediante cadena de conexión es decir de esta forma... lcDSNLess="DRIVER=SQL Server;SERVER=192.168.1.108,1433;UID=Usuario;PWD=Clave;DATABASE=MiBase;APP=Microsoft (R) Visual FoxPro;DESCRIPTION=Aplicaciones VFP" lnConnHandle=SQLSTRINGCONNECT(lcDSNLess) IF lnConnHandle < 0 = MESSAGEBOX('Cannot make connection', 16, 'SQL Connect Error') ELSE lnRetVal = SQLEXEC(lnConnHandle, "SELECT * from MiTabla","cTabla") SELECT cTabla browse = MESSAGEBOX('Connection made', 48, 'SQL Connect Message') = SQLDISCONNECT(lnConnHandle) ENDIF Les va a decir que la dirección no es accesible. También he probado de utilizar la conexión DSN con ADODB.Connection y da el siguiente error: Código de excepción OLE IDispatch 0 de ADODB.Connection: ?. Bueno, espero que a todos les sirva mi aporte, Por mi parte ahora debo, cambiar mi forma de trabajo cuando estoy bajo Wine, ya que ven{ia usando ADODB y debo utiliza SQLConnect. Con esto cierro exitoso mi propia consulta. Saludos, Pancho, Córdoba
