redefinir metodo Execute... como?

[goosfancito]

hola.
Necesito aniadir al methodo Execute que se utiliza en este código un comando mas, simplemente para que me detenga la ejecucion para poder mostrar un cartel de control interno mio.
Cómo lo hago?

Code: Select all  Expand view

cCmdSql:= "USE " + AllTrim(oApp:cDataBase)
 TRY
    // a este metodo que sigue "execute"
     oApp:oCon:Execute(cCmdSql)
  CATCH oError
       MsgStop("Base de datos no disponible", oApp:cAplicacion)
       RETURN (.F.)
   END

en si no se como REDEFINIR el metodo Execute para poder agregarle comandos...

[Carlos Mora]

Para que lo detenga en que momento?
Explicame un poco más porque no he podido entender bien que querés hacer, creo que tengo una pista.

[goosfancito]

Gracias Carlos,

Code: Select all  Expand view

     cCmdSql:= "USE " + AllTrim(oApp:cDataBase)
     TRY
        // a este metodo que sigue "execute"
         oApp:oCon:Execute(cCmdSql)
      CATCH oError
           MsgStop("Base de datos no disponible", oApp:cAplicacion)
           RETURN (.F.)
       END

 

La idea es que cuando se ejecute el metodo EXECUTE me aparezca en pantalla la cadena que pase en cCmdSql, por ahora es simple pero estoy pensando hacer otros controles dentro de ese metodo Execute. Esto me facilitaria la prueba de los programas ya que en vez de hacer esto:

Code: Select all  Expand view

oApp:oCon:Execute(cCmdSql)
msgbox(cCmdSql)

Directamente haria

Code: Select all  Expand view

oApp:oCon:Execute(cCmdSql)

y el metodo solo me mostraria la cadena.


Espero haber sido claro.
Gracias.

[Carlos Mora]

Hola Goos,

en lugar de msginfo podés usar dbwin32.exe, buscalo en el foro. Tambien posteé unos comandos para facilitar la tarea, evitar los msgInfo y cosas por el estilo

viewtopic.php?f=6&t=12952

No merece la pena redefinir un método para algo tan trivial, y en particular si se trata de un ActiveX, esta medio complicado.

Un saludo

PD: Te he visto preguntando en foros que no son de FW ¡Internet es un pañuelo!

[goosfancito]

gracias,
ytilizo de por si un debug en mis programas del estilo que mostras ahi. pero lo que necesito es saber donde esta
ese método para poder modificarlo y que ese msginfo o al utlizar el debug lo pueda incluir en ese metodo para
no tener que ponerlo cada vez ...

gracias.

[Lautaro]

Una consulta,

oApp:oCon <-- ¿ Que clase de objeto es ?, si es una coneccion ado, el metodo execute es parte del objeto ado y el harbour solo invoca el metodo, pero no contiene codigo para el.

Si es un odbc ahi deberias poder modificarlo en la clase todbc ya que ese es un metodo que invoca a la fucion sqlexecute, si mi memoria no me falla.


Atte.,

Lautaro Moreira

[goosfancito]

Si es ADO. Gracias por la aclaración.