FiveTech Support Forums

oVar:="SELECT s_indice,s_permis,s_llaves,s_nmenus,s_autori,s_verifi,s_usuari,s_proced,s_madres from " + oLamcla:tPerm +" WHERE s_indice='"+alltrim(oLamcla:vColl)+nMenu+"'"
TRY
  oTMe := CreateObject("ADODB.Recordset")
CATCH oError
  MsgStop(oLamcla:mErnt,oLamcla:mErco)
  RETURN(.F.)
END
oTMe:CursorLocation  := adUseClient //adUseServer
oTMe:LockType        := adLockOptimistic
oTMe:CursorType      := adOpenKeyset
oTMe:Source          := oVar
oTMe:ActiveConnection( oLamcla:oConPer )
TRY
  oTMe:Open()
CATCH oError
  MsgStop(oLamcla:mComa,oLamcla:mDato)
END
nRegistros := oTMe:RecordCount() //esta es la linea donde me marca el error.
IF nRegistros > 0

..........

Descripción de la Applicación:
___________________________________________________

Ubicación y Nombre: C:\DlymAdo.1\Contable.Exe (32 BITS)
Desde la Estación de Trabajo: CASA
Usuario en Sesión: 001
Privilegio del Usuario: 001
Tamaño: 1,343,488 bytes
Hora de Inicio:   Jueves 11 de Julio del 2013,  9:44:14 PM
Hora del Error:   Jueves 11 de Julio del 2013,  9:44:14 PM
Tiempo de Sesión: 0 hours 15 mins 38 secs 


Descripción del Error: 
___________________________________________________

Error ADODB.Recordset/6  
DISP_E_UNKNOWNNAME: RECORDCOUNT
   Args:


Llamadas al Stack:
___________________________________________________

Llamado desde TOLEAUTO:RECORDCOUNT(0)
Llamado desde TLYMA:AUTORIZA(1072)
Llamado desde (b)MAIN(374)
Llamado desde TRBTN:CLICK(676)
Llamado desde TRBTN:LBUTTONUP(854)
Llamado desde TCONTROL:HANDLEEVENT(1690)
Llamado desde TRBTN:HANDLEEVENT(1520)
Llamado desde _FWH(3153)
Llamado desde WINRUN(0)
Llamado desde TWINDOW:ACTIVATE(980)
Llamado desde MAIN(454)
Llamado desde R32_MENU(138)

FUNCTION MataProcesos(oTimerx)
LOCAL oRsData, oErr, lOn:=.F.

      oTimerx:deactivate()

      IF oSys:cMotor = "MYSQL" .OR. oSys:cMotor = "MARIADB"
          oRsData:=NIL
        TRY
             oRsData:=TOleAuto():New( "ADODB.RecordSet" )
             oRsData:CursorLocation   := adUseClient
             oRsData:CursorType       := adOpenKeyset
             oRsData:ActiveConnection := oTerminal:cStrConn
             oRsData:Source           := "show full processlist"
             oRsData:Open()
             oRsData:Sort := "time DESC"   //Lo organizo por la columan TIEMPO en forma DESCENDENTE
        Catch oErr
             oTimerx:activate()
           RETURN NIL
        END

        WHILE !oRsData:Eof()
               IF UPPER(oRsData:Fields("command"):value) = "SLEEP"
                 IF oRsData:Fields("time"):value >= 50           //Los que tengan mas de 50 segundos estan "dormidos" (ya no se estan utilizando)
                    TRY
                       oTerminal:oConn:Execute( "kill "+LTrim(Str(Int(oRsData:Fields("id"):value))) )
                    CATCH
                    END
                 ENDIF
               ENDIF
             oRsData:MoveNext()
        END
      ENDIF
      oRsData:Close()
      oTimerx:activate()

RETURN Nil

FUNCTION MataProcesos( )
LOCAL oVar

oVar:="SELECT * FROM information_schema.PROCESSLIST order by time DESC;"
TRY
  oConsTA := CreateObject("ADODB.Recordset")
CATCH oError
  MsgStop( "No se ha podido crear el RECORDSET !","Error de Datos" )
  RETURN(.F.)
END
oConsTA:CursorLocation  := adUseClient //adUseServer
oConsTA:LockType        := adLockOptimistic
oConsTA:CursorType      := adOpenKeyset
oConsTA:Source          := oVar
oConsTA:ActiveConnection( oLamcla:oServer )
TRY
  oEmpr:Open()
CATCH oError
  MsgStop( "No se ha podido ejecutar el comando !", "Error de Datos" )
  RETURN(.F.)
END
nRegistros := oEmpr:RecordCount()

Do While !oConsTA:Eof()
  vTCom:=oConsTA:Fields( "command" ):Value
  vTIde:=oConsTA:Fields( "id" ):Value
  vTTie:=oConsTA:Fields( "time" ):Value

  *******************************************
  if vTCom="sleep" .and. vTTie>60
    vConsCB:="kill "+LTrim(Str(Int(oConsTA:Fields("id"):value)))
    TRY
      oLamcla:oServer:Execute(vConsCB)
    CATCH oError
      MsgInfo(oLamcla:mRegi,oLamcla:mDato)
    END
  endif

  oConsTA:MoveNext()
EndDo
oConsTA:close()