FiveTech Software tech support forums

Si, es mas reciente que la mia
La que yo tengo la function Fw_OpenAdoConnection( cConnStr, lShowError, oErr ) acepta esto tres valores, cadena, mostrar o no error, y el error obtenido (para pasar como referencia)
Fijate en sources\function\adofuncs.prg si tiene otros parametros

... LOCAL oCajDia, cCol, aItem , oBrwFW2 , K := 1, campo, nPosGui := 0 LOCAL A := "IMAGEN", nRecSel := 0, oBrush, oCol , oFont, J:= 0, oErr LOCAL aRowGrad LOCAL aSelGrad LOCAL XaSelGrad IF SELECT(cAliTab) == 0 ALERTA("Error. Tabla a visualizar con browseConsulta(), no disponible ...

... con la version FWh 07-2023. Muy agradecido por el tiempo #include "fivewin.ch" Function ConectMySql LOCAL hIni LOCAL oServer LOCAL oErr,nFlags,cUser,cPassword,nPort,cServer hIni := 0 oServer := NIL nFlags := 0 ? File(".\connect.ini") If File(".\connect.ini") ...

... y si conecta al servidor. Que puede estar mal ? esta es la funcion de conexion Function ConectMySql( cDbName ) LOCAL hIni LOCAL oServer LOCAL oErr,nFlags,cUser,cPassword,nPort,cServer hIni := 0 oServer := NIL nFlags := 0 If File(".\connect.ini") cServer := GetPvProfString("mysql","host" ...

... := 1 // opendkeyset oRsEmp:CursorLocation := 3 // local cache oRsEmp:LockType := 3 // lockoportunistic TRY oRsEmp:Open( cSQL,xCONNECT ) CATCH oErr MsgInfo( "Error in Opening EMPLOYEES table" ) RETURN(.F.) END TRY xbrowse( oRsEmp ) Time from start: 0 hours 0 mins 3 secs Error occurred ...

... modos de conexión sin éxito. Adjunto el código del prg y la respuesta según la sintaxis utilizada. Código: FUNCTION Main() LOCAL oCn2, oRs2, cSql, oErr oCn2 := FW_OpenADOConnection( { "MSSQL", "192.168.120.206", "SarubbiAlba", "sa", "Came0303" }, ...

... + chr(10) + ; "select * from tmpprod " 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 ...

... Comprobando conexion....",@await ) EndIf IsQry:= oServer:Query("Select 1") IsQry:End() If lWait WaitOff( @aWait ) Endif CATCH oError If oError:SubCode=2013 .OR. oError:SubCode=1096 If lWait WaitOn("Espere, intentando reconectar...",@aWait ) EndIf While .t. TRY SysRefresh() ...

... local oWait WaitOn("Espere, cambiando consulta...",@oWait ) IsConexion() TRY oQry:Refresh() oBrw:MakeTotals() oBrw:Refresh() CATCH oErr END WaitOff( @oWait ) Return prueba si se soluciona o me avisas para hacer una conexion por anydesk y verlo en tu servidor

... "INSERT INTO ... ") ::oServer:Execute( "INSERT INTO ... ") ::oServer:Execute( "INSERT INTO ... ") CATCH oErr ::oServer:RollBack() FINALLY ::oServer:CommitTransaction() END De esta manera salta solo por el catch Saludos.

... oServer:Execute( "INSERT INTO ... ") oServer:Execute( "INSERT INTO ... ") oServer:Execute( "INSERT INTO ... ") CATCH oErr oServer:RollBack() FINALLY oServer:CommitTransaction() END De esta forma SI funciona el break automaticamente por el error. Saludos.

... := .F. :StatusBar := .F. :MenuBar := .F. :FullScreen := .F. :Invoke( "Navigate", cURL ) END WITH TRY oIE:Navigate2( cUrl ) CATCH oErr TRY oIE:Navigate( cUrl ) CATCH oErro END END WHILE oIE:Busy SysWait(1) SysRefresh() Loop END HB_IDLESLEEP( 1 ) nPos:=0 WHILE oIE:ReadyState <> ...

... ([Codigo],[foto]) VALUES ('" + xCodigo+ "', '" + jj + "')" TRY oCon:Execute( sqldetl ) oCon:Close() ; CATCH oErr ? sqldetl Alert( "No puedo generar el presupuesto que supera lo 15 art. ", { " Seguir " }, "Atención" ) END TRY El ...

Agosto 2020 =========== * adofuncs.prg: - Función: FW_OpenAdoConnection( acConStr/Spec, lShowErr, @oErr ) --> oCon Nuevo tercer parámetro que recibe el objeto error de ADO, en caso de error. * msgget.prg: Mejora: Ahora los GET de contraseñas tienen un botón para mostrar/ocultar ...

August 2020 =========== * adofuncs.prg: - function FW_OpenAdoConnection( acConStr/Spec, lShowErr, @oErr ) --> oCon New 3rd parameter receives the ado error object, in case of error. * msgget.prg: Enhancement: Password Get now has button to show/hide password. * FWMariaConnection: ...