topic-23132

Board index FiveWin para Harbour/xHarbour Los scripts funcionan con ADO?

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Los scripts funcionan con ADO?
Posted: Mon Dec 19, 2011 06:11 PM

Hola amigos:

Antonio me recomienda usar scripts, la verdad es que los he visto y estan sumamente interesantes,
la pregunta es, los scripts pueden funcionar con ADO y comandos SQL ?

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Los scripts funcionan con ADO?
Posted: Mon Dec 19, 2011 09:06 PM

Armando,

Por supuesto que si :-)

Cualquier codigo que pueda ejecutarse desde tu aplicacion puede tambien ejecutarse desde un script :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Los scripts funcionan con ADO?
Posted: Mon Dec 19, 2011 09:37 PM

Antonio:

Excelente !, ahora unas preguntas más, revise el programa Scripts.Prg y el código es bastante
claro excepto el trozo que aquí te muestro, podrías hacerme tus comentarios sobre el funcionamiento?

Code (fw): Select all Collapse

function Execute()
   local oHrb, cResult, bOldError

   FReOpen_Stderr( "comp.log", "w" )
   oHrb = HB_CompileFromBuf( Scripts->Code, "-n", "-Ic:\fwh\include", "-Ic:\harbour\include" )
   oResult:SetText( If( Empty( cResult := MemoRead( "comp.log" ) ), "ok", cResult ) )

   if ! Empty( oHrb )
      BEGIN SEQUENCE
      bOldError = ErrorBlock( { | o | DoBreak( o ) } )
      hb_HrbRun( oHrb )
      END SEQUENCE
      ErrorBlock( bOldError )
   endif
return nil

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion