De sql a dbf

[JoseAlvarez]

Saludos amigos foreros.

Alguien tiene algun ejemplo de como llevar los datos resultantes de una consulta sql a una dbf?

La idea es generar reportes desde esa dbf.

Gracias por las ideas que puedan aportarme.

[karinha]

Miar se ayuda:

http://www.hmgforum.com/viewtopic.php?f=15&t=1220

Salu2

[leandro]

Hola como vas?

Con ADO lo hacemos de la siguiente manera:

Code: Select all  Expand view  RUN

    cQry := "SELECT * FROM tu_tabla"
    oRs := FW_OPENRECORDSET(oCn,cQry,adLockOptimistic,adOpenKeyset)
    FW_AdoExportToDBF( oRs , ".\dbfs\elresultado.dbf" , .F. )
    oRs:close()

       De aqui en adelante haces el resto del informe.
       Utilizando esta técnica se acelera de manera asombrosa el proceso de generación de informes
       sobre todo cuando estas trabajando en un servidor remoto
 

[JoseAlvarez]

Gracias joao, voy a darle un vistazo.

Leandro, muchas gracias. No uso ADO. Uso tdolphin.

[cmsoft]

Hola Jose:
En los samples de DOLPHIN tienes un ejemplo

Code: Select all  Expand view  RUN

#include "tdolphin.ch"

FUNCTION Main()
 
   LOCAL oServer, oQry
   LOCAL oExp, cTime
 
   D_SetCaseSensitive( .T. )
   
   IF ( oServer := ConnectTo() ) == NIL
      RETURN NIL
   ENDIF
   cls
   oQry = oServer:Query( "SELECT * FROM clientes" )
   
   oExp = oQry:Export( EXP_DBF, "client.dbf" )
   oExp:bOnStart = { || QOut( "Started..."), QOut( ""), cTime := Time() }
   oExp:bOnRow = {| o, n | ShowLine( n, oQry:LastRec() ) }
   oExp:bOnEnd = { || QOut( "Elapse time: " + ElapTime( cTime, Time() ) ), QOut( "Finished...") }
   
   oExp:Start()
   
RETURN NIL


PROCEDURE ShowLine( n, nTotal )

@ Row(),1 say Str( n / nTotal * 100 ) + "%"

RETURN
 

[jair]

Code: Select all  Expand view  RUN

oCn   := FW_DemoDB()  // Maria db nativo
//  oCn := Maria_Connect( {cHost, "", cUser, cPass } )
//FWCONNECT oCn HOST "localhost" USER "root" PASSWORD "secret" DB "fwh"


cSql  := "SELECT * FROM minhatabela"
   oCn:SaveToDBF( cSql, "c:\temp\TEMP.DBF" )
   OU
   cFile := Get_File()
   oCn:SaveToDBF( cSql, cFile )
 

[cmsoft]

Code: Select all  Expand view  RUN

cSql  := "SELECT * FROM minhatabela"
   oCn:SaveToDBF( cSql, "c:\temp\TEMP.DBF" )
   OU
   cFile := Get_File()
   oCn:SaveToDBF( cSql, cFile )
 

No veo el metodo SaveToDbf en la clase TDolphin, existe?

[JoseAlvarez]

Gracias César, gracias Jair.

Muchas gracias a todos.

Voy a probar y estaré comentando los resultados.

Un abrazo.

[nageswaragunupudi]

Running SQL query directly from DBF
Please try these samples.
You can do a lot more

Code: Select all  Expand view  RUN

cFolder := "c:\fwh\samples\"
oCn := FW_OpenAdoConnection( cFolder )
oRs := FW_OpenRecordSet( oCn, "SELECT ID,FIRST,CITY,SALARY FROM CUSTOMER" )
XBROWSER  oRs AUTOSORT
oRs:Close()
oCn:Close()

Another example:

Code: Select all  Expand view  RUN

cFolder := "c:\fwh\samples\"
oCn := FW_OpenAdoConnection( cFolder )
oRs := FW_OpenRecordSet( oCn, ;
   "SELECT [STATE],SUM(SALARY) AS SALARY FROM CUSTOMER GROUP BY STATE" )
XBROWSER  oRs AUTOSORT
oRs:Close()
oCn:Close()