FiveTech Software tech support forums

You see this error when trying to connect using oCn := maria_Connect( <connectionspe>,  .T. ) Last parameter .T. means ShowError. In that case the library shows the error as MySql shows. You can suppress display of error by oCn := maria_Connect9( <connectionspecs>, ...

https://i.imgur.com/quHCEc0.png https://i.imgur.com/D9gWqWd.png i use xmate or hbmk2 in harbour. :-) for the msvc version of my app i use xmate. for example, this is the .hbp project HBMK2 for fwh+mingw+harbour -hbexe -oprestamos32g -workdir=obj\ -compr -info -inc -t...

... TRY oApp:oCon:Open() CATCH oError MsgInfo("No se pudo lograr la conexión"+OAPP:OCON:CONNECTIONsTRING,oApp:cAplicacion) ShowError(oError) RETURN(.F.) END // since here de code works ok // now try to open de recorset and here is the problem TRY orsPed := TOleAuto():New("adodb.recordset") ...

... CreateObject("ADODB.Recordset") CATCH oError MsgStop( "No se ha podido crear el RECORDSET de Pedidos!", oApp:cAplicacion) ShowError(oError) orsPed := NIL lret:=.f. CLOSE_DBF(ODTEMP) RETURN(lret) END orsPed:CursorLocation := adUseClient orsPed:LockType := adLockOptimistic ...

... TRY oApp:oCon:Open() CATCH oError MsgInfo("No se pudo lograr la conexión"+OAPP:OCON:CONNECTIONsTRING,oApp:cAplicacion) ShowError(oError) RETURN(.F.) END aqui me llega osea que abre la conexión sin problema // ahora procedo a abrir el recorset TRY orsPed := TOleAuto():New("adodb.recordset") ...

... TRY oApp:oCon:Open() CATCH oError MsgInfo("No se pudo lograr la conexión"+OAPP:OCON:CONNECTIONsTRING,oApp:cAplicacion) ShowError(oError) RETURN(.F.) END aqui me llega osea que abre la conexión sin problema // ahora procedo a abrir el recorset TRY orsPed := TOleAuto():New("adodb.recordset") ...

... x := "" Else x := Upper(Alltrim( cPer )) EndIf cWhere := "detalle LIKE '"+x+"%'" oQry:SetFilter( cWhere ) aServer:ShowError() SysRefresh() oBrw:Refresh() WaitOff( @oWait ) EndIf

... cWhere := "" Else x := Upper(Alltrim( cPer )) cWhere := "c.detalle LIKE '% ? %' " EndIf oQry:SetFilter( cWhere ,{x}) aServer:ShowError() SysRefresh() oBrw:Refresh() WaitOff( @oWait ) EndIf Return da este resultado Compiler version: xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ...

... " ,".\connect.ini") TRY FWCONNECT oServer HOST cServer ; USER cUser ; PASSWORD cPassword ; DATABASE cDBName CATCH oErr oServer:ShowError() END EndIf RETURN oServer Contenido del archivo connect.ini mysql] host=localhost user=root psw=160770 port=3306 dbname=demo

... " ,".\connect.ini") TRY FWCONNECT oServer HOST cServer ; USER cUser ; PASSWORD cPassword ; DATABASE cDBName CATCH oErr oServer:ShowError() END Else ?"NO FILE" // mensaje con la version 2023/07 EndIf RETURN oServer mi archivo de entorno de proyecto con version 2023/07 ...

... TRY IF oCon:State() = 0 oCon:open() endif woRSp := CargaRecordSet( cSQLp, CadenaCon ) CATCH oErr MsginFo( "no puedo leer "+cSQLP ) showError( oErr ) wtxt = "errorge.txt" cHandeg = FCREATE ( wtxt ) FWrite ( cHandeg, cSQLP + chr( 13 ) + chr( 10 ) ) fclose(cHandleg) RETURN ...

... := customer():New( o ) 0007 IF __objHasMethod( oC, "search" ) 0008 IF __lAutenticate 0009 oC:search(o) 0010 ENDIF 0011 ELSE 0012 App():ShowError( "Method search() not defined in customer.prg controller.", "Controller Error!" ) 0013 ENDIF 0014 RETU NIL 0015 _HB_CLASS ...

... { "R", cInfo, nOldNumPres } )          ENDIF       ENDIF       oServer:Commit()       lGrabado := TRUE    CATCH oError       ShowError( oError )       oServer:Rollback()    END    oServer:lThrowError := FALSE //aca lo desactivo    IF lGrabado       NuevoPrestamo_MostrarNumero() ...

... { "R", cInfo, nOldNumPres } )          ENDIF       ENDIF       oServer:Commit()       lGrabado := TRUE    CATCH oError       ShowError( oError )       oServer:Rollback()    END    oServer:lThrowError := FALSE //aca lo desactivo    IF lGrabado       NuevoPrestamo_MostrarNumero() ...

... := customer():New( o ) 0007 IF __objHasMethod( oC, "search" ) 0008 IF __lAutenticate 0009 oC:search(o) 0010 ENDIF 0011 ELSE 0012 App():ShowError( "Method search() not defined in customer.prg controller.", "Controller Error!" ) 0013 ENDIF 0014 RETU NIL 0015 0016 _HB_CLASS ...