Hola comunidad, excelente codigo para todos ... Que este 2020 sus codigos sean excepcionales y todas las bendiciones para su persona y sus familias ...
Tengo un problema que por mas que reviso y reviso, no le encuentro la falla ... lo hago en la ventana de comandos, y ahi si funciona perfecto, pero al momento de hacerlo ejecutable nomas no .. aqui les comparto la conexion que estoy realizando
xuname = _screen.oprincipal.oconfig.admin_name
xupass = _screen.oprincipal.oconfig.admin_pass
xfdata = "C:\Mercado Libre\system\datamaster.fdb"
xcon = _screen.oprincipal.oconfig.conectar_bd(xuname,xupass,xfdata)
* Esta funcion la tengo dentro de una clase ... Metodo : conectar_bd
LPARAMETERS xusername, xuserpass, xdatafolder
LOCAL xconexion, xerrorodbc
#DEFINE ENTER CHR(13)
cdriver = "DRIVER={Firebird/Interbase(r) driver}; "
cusername = "USER=" + xusername + "; "
cuserpass = "PASSWORD=" + xuserpass + "; "
cdatabase = "DATABASE=" + xdatafolder
xconexion = cdriver+cusername+cuserpass+cdatabase
MESSAGEBOX(xconexion,0+64,"Conexion") <--- Al hacerlo en ventana de comandos sale todo bien ... cdriver+cusername+cuserpass+cdatabase
Pero al hacer ejecutable solo llega hasta cuserpass .... y tira el error de que no encuentra la base de datos
this.nhandle = SQLSTRINGCONNECT(xconexion)
IF this.nhandle > 0
WAIT WINDOW "Conexion a la base de datos satisfactoria" &&TIMEOUT .5
ELSE
xerrorodbc = this.obtener_error_odbc()
MESSAGEBOX("No se logro la conexion con la base de datos" + IIF(!EMPTY(xerrorodbc), CHR(13)+CHR(13)+xerrorodbc, ""),0+16,"Mensaje del sistema")
ENDIF
RETURN (this.nhandle > 0)