FiveTech Software tech support forums

... us provided to faclititate grouping of several DML statements/ methods inside TRY/CATCH block for Transactions. Example Usage: // -------- local lError := .f. oCn:BeginTransaction() oCn:lThrowError := .t. TRY oCn:Insert(....) oCn:Update(...) oCn:Execute( "INSERT ... " ) ... CATCH lError ...

... facilitar la agrupación de varias declaraciones / métodos DML dentro del bloque TRY / CATCH para transacciones. Ejemplo de uso: // -------- local lError := .f. oCn:BeginTransaction() oCn:lThrowError := .t. TRY oCn:Insert(....) oCn:Update(...) oCn:Execute( "INSERT ... " ) ... CATCH lError ...

... us provided to faclititate grouping of several DML statements/ methods inside TRY/CATCH block for Transactions. Example Usage: // -------- local lError := .f. oCn:BeginTransaction() oCn:lThrowError := .t. TRY oCn:Insert(....) oCn:Update(...) oCn:Execute( "INSERT ... " ) ... CATCH lError ...

... MENUITEM "删除本阶" ACTION (if(msgyesno("删除当前代码","请确认"),(obrow2:odbf:DELETE(),if(!oserver:lerror,(obrow2:otreeitem:DELETE(),obrow2:refresh()),msgstop("该科目在凭证中已经使用，需要先在凭证里修改或者删除","停止"))),)) ENDMENU return oMenu2 // dynamic ...

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. // Agrega ...

... oDb:Close() ENDIF IF ValType(oServer)="O" oServer:Close() ENDIF RETURN STATIC FUNCTION CONECTAR(cIp,cLogin,cPass,nPort,lError) cIp := ALLTRIM(cIp ) cLogin := ALLTRIM(cLogin) cPass := ALLTRIM(cPass ) DEFAULT nPort :=3306,; lError:=.F. CursorWait() IF cTypeBD="MYSQL" ...

... todos los ejemplos del sitio y no logro. Dejo a Continuacion el Programa. #include "Fivewin.ch" function LeErPuertos() Local cDcb, lError, nError Local nComm := OpenComm( "COM2", 4024, 1024 ) if ! BuildCommDcb( "COM2:9600,N,8,1", @cDcb ) MsgStop( "Error ...

... Fact(<nInteger>)->nFactorial Fahrenheit(<nCelsius>)->nFahrenheit FClose(<nHandle>)->lError FCount()->nFields FCreate(<cFile,[<nAttibute>])->nHandle FErase(<cFile>)->nSuccess FError()->nErrorCode Field(<nPosition>)->cFieldName ...

... cTxdate := "" cTxtime := "" aAesmsg := {} cRespcode := "" cDispcode := "" cSeverity := "" lError := .F. aEmail := {} cEmResp := "" // Error... IF n001H <> -1 // Read-Only... // Process... DO WHILE ! lEof // Refresh... SysRefresh() ...

... O la liberación de la memoria ocupada. ... END Ademas evita que tengas que preguntar por el error después de cada sentencia, ya sabes el if oStmt:lError ... else ... end Es fácil no? ;-) Te recuerdo que clipper y por tanto harbour, cuenta con la construcción: BEGIN SEQUENCE WITH {| oError | Break( ...

... oDb:Close() ENDIF IF ValType(oServer)="O" oServer:Close() ENDIF RETURN STATIC FUNCTION CONECTAR(cIp,cLogin,cPass,nPort,lError) cIp := ALLTRIM(cIp ) cLogin := ALLTRIM(cLogin) cPass := ALLTRIM(cPass ) DEFAULT nPort :=3306,; lError:=.F. CursorWait() IF cTypeBD="MYSQL" ...

... is very minimal. --- #include "fivewin.ch" procedure start() oSQLite := TSQLiteServer():New( "test.sql" ) If oSQLite:lError msgStop( "error" ) RETURN EndIf cQuery:="SELECT * from t_tables;" oQry:=oSQLite:Query(cQuery) nDecimals:=oQry:aData[1,7] ...

... is very minimal. --- #include "fivewin.ch" procedure start() oSQLite := TSQLiteServer():New( "test.sql" ) If oSQLite:lError msgStop( "error" ) RETURN EndIf cQuery:="SELECT * from t_tables;" oQry:=oSQLite:Query(cQuery) nDecimals:=oQry:aData[1,7] ...

... numeric data from sqlite db. #include "fivewin.ch" procedure start() oSQLite := TSQLiteServer():New( "test.sql" ) If oSQLite:lError msgStop( "error" ) RETURN EndIf cQuery:="SELECT * from t_tables;" oQry:=oSQLite:Query(cQuery) nDecimals:=oQry:aData[1,7] ...

... > 0 pero esto es un puntero osea validar que la reconexion fue correcta, para proceder a reasignar los querys, pero no halle mejor cosa que ::lError, por favor valida si es la mejor opcion METHOD ReConnect() CLASS TDolphinSrv   LOCAL oQry   ::hMysql := ::Connect()   IF HB_IsArray( ...