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.
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 remotoGracias joao, voy a darle un vistazo.
Leandro, muchas gracias. No uso ADO. Uso tdolphin.
#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 ) + "%"
RETURNoCn := 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 )jair wrote:No veo el metodo SaveToDbf en la clase TDolphin, existe?cSql := "SELECT * FROM minhatabela" oCn:SaveToDBF( cSql, "c:\temp\TEMP.DBF" ) OU cFile := Get_File() oCn:SaveToDBF( cSql, cFile )
Gracias César, gracias Jair.
Muchas gracias a todos.
Voy a probar y estaré comentando los resultados.
Un abrazo.
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()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()