Class to manager MYSQL for Harbour/xHarbour
Custom Search

lunes, 9 de agosto de 2010

Actualizacion/Update

Finalizado elproceso de exportacion a DBF, podemos seleccionas los campos a exportar
Finished export to DBF, we can select field to export

el ejemplo a constinuacion consta de 10.000 registros
the next sample is 10.000 record

Download Here


   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...") }



No hay comentarios:

Publicar un comentario