FiveTech Software tech support forums

... = 86400;" ) endif return(.t.) /********************************************************/ static function ConnectTo() /* */ LOCAL oServerIni, cServer, cUser, cPass, cBanco, cPort, nPort, nFlags, oErr Pega_Script('connect.ini', @cServer, @cUser, @cPass, @cBanco, @cPort ) oServerIni := NIL nPort ...

... Ahora para acceder a esos datos, debo usar una coneccion; probe con esta que baje del foro y no funciona FUNCTION ConnServer() Local cServer := "localhost" //Ubicación del servidor Local cUser := "root" // usuario Local cPass := "123" // password del ...

... ] ] ] ) ] ; [CONSOLE( [nConPrio] ) ] ; [MONITOR( [nMonPrio [,nMonPort] ] ) ] ; [SYSLOG( [nSysPrio [,nSysId] ] ) ] ; [EMAIL ([nEmaPrio [,cHelo[,cServer[,cDest[,cSubject[,cFrom]]]]]])] ; [DEBUG ( [nDebugPrio [,nMaxDebugPrio]] )] ; [NAME cName] LOG xVar1, ... , xVarn [PRIO[RITY] nPriorityLevel ...

Saludos

Cuando lo compilo con Harbour me da error en estas lineas en el ADORDD.prg


STATIC t_cDataSource
STATIC t_cEngine
STATIC t_cServer
STATIC t_cUserName
STATIC t_cPassword
STATIC t_cQuery
STATIC oConnection

Dice Error E0004 STATIC Declaration Follow Executable Statement

... := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 2, ";" ) LOCAL cDbEngine := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 3, ";" ) LOCAL cServer := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 4, ";" ) LOCAL cUserName := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 5, ";" ) LOCAL ...

... := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 2, ";" ) LOCAL cDbEngine := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 3, ";" ) LOCAL cServer := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 4, ";" ) LOCAL cUserName := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 5, ";" ) LOCAL ...

... Function GMAILME (cDestino,cAsunto,cTexto,cAdjunto ) Local oEmailCfg,oEmailMsg,oError,cHtml Local cServer:= GetPvProfString("Enviador","SERVERSTP" ,"", cIniFile) Local nPortEmail:=VAL(GetPvProfString("Enviador","EMAILPUERTO","25", ...

... , cTable := aOpenInfo[ UR_OI_NAME ] ,cTable) IF( ALLTRIM( cDbEngine ) == "" ,cDbEngine:= t_cEngine, cDbEngine ) IF( ALLTRIM( cServer ) == "" , cServer:= t_cServer, cServer ) IF( ALLTRIM( cUserName ) == "" , cUserName:= t_cUserName, cUserName ) IF( ALLTRIM( ...

... are not using the code which I have posted, you have modified it. You removed/commented the following lines from the Function hb_ntp_GetTimeUTC( cServer, nPort, nTimeOut ) . That's the reason why your exe is not destroyed from the memory and not displaying the expected results. Function hb_ntp_GetTimeUTC( ...

... instala el Mysql o Mariad corre en ambas, particularmente yo trabajo con Mariadb. FUNCTION MECONECTO local acTables local oquery local serv LOCAL cServer, cUser, cPassword, nPort, nFlags , oServer ,cDBName oquery := NIL cServer := "127.0.0.1" cUser := "tuusuario" cPassword ...

... instala el Mysql o Mariad corre en ambas, particularmente yo trabajo con Mariadb. FUNCTION MECONECTO local acTables local oquery local serv LOCAL cServer, cUser, cPassword, nPort, nFlags , oServer ,cDBName oquery := NIL cServer := "127.0.0.1" cUser := "tuusuario" cPassword ...

yo lo hago de esta forma y funciona Function GMAILBK (cDestino,cAsunto,cTexto,cAdjunto ) Local oEmailCfg,oEmailMsg,oError,cHtml Local cServer:= GetPvProfString("Enviador","SERVERSTP" ,"", cIniFile) Local nPortEmail:=VAL(GetPvProfString("Enviador","EMAILPUERTO","25", ...

... conecte!! Con esta funcion que baje del foro: #include "FiveWin.Ch" #Include "Ado.ch" FUNCTION ConnServer() LOCAL oCone Local cServer := "localhost" //Ubicación del servidor Local cUser := "root" // usuario Local cPass := "123456" // password del ...

... Estoy en el intento de usar MySql, y he bajado algnos ejemplos de conexion, el que no me dá error S_OK: OPEN, es este: FUNCTION ConnServer() Local cServer := "localhost" Local cUser := "root" Local cPass := "123456" oCone:=tOleAuto():new("ADODB.connection") ...

... * New: Command ADOCONNECT <ocn> [TO] <cdbms> [<srv:SERVER,HOST> <cServer>] ; [ <cat:CATALOG,DATABASE> <catalog> ] [ USER <usr> ] [ PASSWORD <pwd> ] in fwsqlcmd.ch. Including adodef.ch in ...