FiveTech Software tech support forums

... // Clase tSQLite #include "fivewin.ch" class tSQLite data oConn // Conexion con la BBDD data lError init .f. method new(cDatabase) constructor method Query(cSQL) method Execute(cSQL) method GetValue(oRs,cItem) method end() end class method new(cDatabase) ...

... CLASS tOleXlsFile Local cDll cDll:=::cPathDll+"\olexlsf.dll" TRY ::oXlsFile:=CreateObject("olexlsf.XLSFileObject") CATCH ::lError:=.T. END IF ::lError IF !File(cDll) MsgAlert("No está "+cDll) ELSE TRY WaitRun("regsvr32 "+["]+cDll+["]+" ...

... ========================================================================== CREATE CLASS TJCrw32 VAR hDll AS NUM VAR l32 AS BOOL VAR nJobHandle VAR lError VAR cReport VAR oJobInfo VAR oTabLocation VAR oWinOptions MESSAGE New METHOD NEW_ CONSTRUCTOR MESSAGE FreeLibrary METHOD FREECRPE_ MESSAGE GetModuleHandle ...

... nCont,5) ) oTb:FieldPut("nombre","RESIDENCIAS ", + STR(nCont,5) ) oTb:FieldPut("aptos",nCont ) oTb:Append() IF oTb:lError ALERT( oTb:Error() ) ENDIF NEXT Endif *-- IF oTb:lError RETURN( NIL ) ENDIF *-- oTb:GoTop() *-- oWndMain := WndMain() DEFINE FONT oFont NAME ...

... "SOFTWARE", ; {|| oCon := TMYsqlServer():new( "localhost", "root", "xxx", 3306)} ) IF oCon:lError MsgStop( "Error: No se estableció conexión, verifique y reintente...","Alto" ) RETURN NIL ENDIF IF !oCon:DBExist( "tutor" ...

... NUMERIC(12,2) NULL DEFAULT 0 COMMENT 'Saldo Actual' )" +; "ENGINE = InnoDB COMMENT 'kardex';" oMySQL:Query(cCmdSql) IF oMySQL:lError MsgInfo( "No se pudo crear la tabla, verifique..." ) ELSE MsgInfo( "Tabla ha sido creada de nuevo..." ) ENDIF //Comprobando ...

... "SOFTWARE", ; {|| oCon := TMYsqlServer():new( "localhost", "root", "fap", 3306)} ) IF oCon:lError MsgStop( "Se ha generado un error, no hay conexión, verifique...","Alto" ) RETURN NIL ENDIF IF !oCon:DBExist( "tutor" ...

... "FAPSOFTWARE", ; {|| oCon := TMYsqlServer():new( "localhost", "root", "fappp", 3306)} ) IF oCon:lError MsgStop( "Se ha generado un error, no hay conexión, verifique...","Alto" ) RETURN NIL ENDIF IF !oCon:DBExist( "tutor" ...

... {|o, v, n| if( n != VK_ESCAPE .and. v != odb2:stockid,; (if(odb2:EOF(),; (odb2:stockid:=v,odb2:lmrp:="Y",odb2:APPEND(),obrow:refresh(),if(!oserver:lerror,obrow:SEEK(v),msgstop("编号重复！","停止"))),; (stockid1:=odb2:stockid,odb2:stockid:=v,odb2:save(),obrow:refresh(),if(oserver:lError,(msgstop("编号重复或者单据已经使用而不能更改！","停止"),obrow:SEEK(stockid1)),obrow:SEEK(v)) ...

... ( la ayuda que dá MySql es en modo consola ) si a alguien le interesa aquí les dejo el código. #include 'fivewin.ch' #include 'splitter.ch' Static lError Static oWnd Static oLink Static oSay Static cDescripcion Function main() Set Date To British Set Century On Define Window oWnd Mdi oWnd : SetText( ...

... de mismo lector porque los codigo 1 y 2 D se traen las suyas. Bien Aqui esta. #include "fiveWin.ch" function fReadPort local cDcb, lError, nError cErrCode := space( 15 ) if !( gnComm := OpenComm( 'COM1', 1024, 16 ) ) == 0 if !(BuildCommDcb( "COM1:9600,E,8,1", @cDcb ) .and. SetCommState( ...

... you say, but the CR errror number is 0. What I suspect is that it isn't really an error because I just changed the code to to return .T. (ie ! ::lError) is initialy ::lError is TRUE but a call to PEGetErrorCode() returns 0. So I was able to present the report in the second app without any more ...

... with hb_retl() * **************************************************************************** CLASS TSCAN32 DATA hWnd DATA cFile DATA hDib DATA lError INIT .F. DATA nState DATA lBmp INIT .F. METHOD New( cFile, hWnd ) CONSTRUCTOR METHOD End() METHOD Register() MESSAGE FreeNative METHOD End() ...

... CREATE CLASS CrystalReport VAR hDll AS NUM VAR l32 AS BOOL VAR nJobHandle VAR lError VAR cReport VAR oJobInfo VAR oTabLocation VAR oWinOptions MESSAGE New METHOD NEW_ CONSTRUCTOR MESSAGE FreeLibrary METHOD FREECRPE_ MESSAGE GetModuleHandle ...

... "nn", cName) cPass := oIni:Get( "ODBC", "DsnPassWord", "xxxxxxxx", cPass) oOdbc := TOdbc():New(cDsn, cName, cPass) If !oOdbc:lSuccess .OR. lError(,,, .t.) oOdbc:ShowErrorList(LoadValue(1051, CH)) // ODBC session not successfully initialized, aborting... oOdbc:End() Return(.f.) Endif ora ...