FiveTech Software tech support forums

... ) hLogin["email" ] := "bhopp@matrixcomputer.com" hLogin["password"] := "MyPassword" cLogin := hb_JsonEncode( hLogin ) oHttp:Open( "POST","https:" + "/" + "/" + "api.carbonite.com:443/api/auth/login",.f. ...

FUNCTION DPMYSQLBD(cDb,cIp,cLogin,cPass,nPort,lError,lCreate,lAdd) LOCAL oDb,oMySql,nAt DEFAULT cIp :=oDp:cIp ,; cLogin :=oDp:cLogin,; cPass :=oDp:cPass ,; nPort :=oDp:nPort ,; cDb :=oDp:cDsnData,; lError :=.T.,; lCreate :=.F.,; lAdd :=.F. ...

... de datos u Odbc */ #include "FiveWin.ch" STATIC oServer,oDb,bSqlDate,cTypeBD FUNCTION MAIN() LOCAL cIp :="localhost" LOCAL cLogin:="root" LOCAL cPass :="" LOCAL oTable LOCAL aFiles:=DIRECTORY("*.*"),I SET DATE FREN SET CENTURY ON cTypeBD:="MYSQL" ...

FUNCTION CREATEDABASE()
LOCAL oOdbc
LOCAL cLogin:= "sa"
LOCAL cPass:= "123456"


oODbc:=TODBC():New("master", cLogin, cPass , .F. )

oOdbc:End()
oOdbc:=NIL

RETURN NIL

... un valor los GET no lo aceptan. No logro entender la razon #include "fivewin.ch" FUNCTION MAIN() LOCAL oDlg,oFont LOCAL cIp :=cIp LOCAL cLogin :=cLogin LOCAL cPass :=cPass DEFINE FONT oFont NAME "Arial" SIZE 0, -11 BOLD DEFINE DIALOG oDlg TITLE "Datos del Servidor MS-SQL ...

... RESOURCE "ACEPTAR" ID 617 OF oDlg ; ROUND NOBORDER TRANSPARENT PROMPT "Aceptar" LEFT ; ACTION ( oRec:Elaboro := AllTrim( cLogin ), oRec:Fecha_Hora := DateTime() ,oRec:Save(), oDlg:End() ) TOOLTIP { "Guardar" } REDEFINE BTNBMP oBtn[2] RESOURCE "CANCELAR" ...

... this is a pre-sales question and not the focus of this group, but I appreciate the assistance in this group as always. hLogin := GetEmptyHash() cLogin := "" hLogin["email" ] := "bhopp@matrixcomputer.com" hLogin["password"] := "TheWord" cLogin ...

... this is a pre-sales question and not the focus of this group, but I appreciate the assistance in this group as always. hLogin := GetEmptyHash() cLogin := "" hLogin["email" ] := "bhopp@matrixcomputer.com" hLogin["password"] := "TheWord" cLogin ...

... de datos u Odbc */ #include "FiveWin.ch" STATIC oServer,oDb,bSqlDate,cTypeBD FUNCTION MAIN() LOCAL cIp :="localhost" LOCAL cLogin:="root" LOCAL cPass :="" LOCAL oTable LOCAL aFiles:=DIRECTORY("*.*"),I SET DATE FREN SET CENTURY ON cTypeBD:="MYSQL" ...

... LOCAL loCfg, loMsg, oError, isError := .F. local cSMTP := "smtp.gmail.com" Local cPuerto := 465 Local cLogin := "jbricenotapia@gmail.com" Local cPassword := "xxxxx" local cRemitente:= "jbricenotapia@gmail.com" Local cDestino ...

... LOCAL loCfg, loMsg, oError, isError := .F. local cSMTP := "smtp.gmail.com" Local cPuerto := 25 //465 Local cLogin := "jbricenotapia@gmail.com" Local cPassword := "xxxxx" local cRemitente:= "jbricenotapia@gmail.com" Local cDestino ...

... do: public oVars oVars = TPublic():New() then you use (and automatically the DATAs are created) whatever value you need: oVars:cPath = ... oVars:cLogin = ... oVars:cUser = ... Class TPublic automatically adds cPath, cLogin, cUser, etc. as new DATAs of the object oVars :-)

Hola Karina yo utilizo un get y en el código pongo: REDEFINE GET oGet VAR cLogin id 101 of odlg valid IIF(buscon(cItem,@cLogin,oGet),lreturn := .t.,.f.) oGet:lpassword := .t. Espero sea la respuest a tu consulta Utilizó workshop y fwh26 y xharbour 9.61 Luis ...

Hola Karina yo utilizo un get y en el código pongo:

REDEFINE GET oGet VAR cLogin id 101 of odlg valid IIF(buscon(cItem,@cLogin,oGet),lreturn := .t.,.f.)

oGet:lpassword := .t.

Espero sea la respuest a tu consulta

Utilizó workshop y fwh26 y xharbour 9.61

Luis

... lOpen :=.T. FERASE(cFileXml) cCon:="Driver={MySQL ODBC 3.51 Driver}; Server="+oDp:cIp+"; Port=3306; Database="+oDp:cDsnData+"; Uid="+oDp:cLogin+"; Pwd="+oDp:cPass+";" oRs:Open( cSql ,; cCon ,; adOpenForwardOnly, adLockReadOnly ) oRs:Save( cFileXml , adPersistXML ) oRs:Close() IF lOpen ...