www.FiveTechSoft.com
https://forums.fivetechsupport.com/
Code: Select all | Expand
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
Code: Select all | Expand
#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
Code: Select all | Expand
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 )
No veo el metodo SaveToDbf en la clase TDolphin, existe?jair wrote:Code: Select all | Expand
cSql := "SELECT * FROM minhatabela" oCn:SaveToDBF( cSql, "c:\temp\TEMP.DBF" ) OU cFile := Get_File() oCn:SaveToDBF( cSql, cFile )
Code: Select all | Expand
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()Code: Select all | Expand
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()