FiveTech Support Forums

#include "FiveWin.ch"

REQUEST DBFCDX
   
function Export()
   local cHost      := "127.0.0.1"
   local cUser      := "root"
   local cPassword  := ""
   local oCn, oRs, nSecs, uRet, cTable, aTables
   local cDb        := "COMP04"
   local oDlg, oMeterR     
         
   ? "Connect to Server"
   FWCONNECT oCn HOST cHost USER cUser PASSWORD cPassword
       if oCn == nil
        ? "Connect Fail"
   return nil
        else
   endif
       
   if oCn != nil

      ? "Selecting database " + cDb, "Create if new"
      if Empty( oCn:ListDbs( cDb ) )
         oCn:CreateDB( cDb, "latin1" )
      endif
      oCn:SelectDB( cDb )
      ? "Connected to " + oCn:CurrentDB()

      aTables := HB_dirScan( ".\", "*.dbf", "A" )

      oRs := oCn:RowSet( aTables )

      ?oRs:LastRec()

      for each cTable in  aTables //{ "customer.dbf", "states.dbf" }

         if ! oCn:TableExists( cFileNoExt( cTable[ 1 ] ) )
            //ImportFromDBF( cDbfName, nil, nil, nil, nil, .F. ) // 5th param .F. suppresses creation of AutoInc field ID
            nSecs := Seconds()
               uRet := oCn:ImportFromDBF( cTable[ 1 ], nil, nil, nil, nil, .F.  )
            nSecs := Seconds() - nSecs

            @ 2, 2 METER oMeter VAR nActual TOTAL 50 OF oDlg SIZE 135, 12
            
            oMeterR:Set(oRs:RecCount())

         endif
      next  

   endif

   ? "IMPORTACION FINALIZADA"

   oCn:Close()

return nil

oMeterR:Set(oRs:RecCount()) // este metodo oRs:RecCount(), retorna el total de registros, por eso no se debe notar que avanza

#include "FiveWin.ch"

REQUEST DBFCDX
   
function MAIN()
   local cHost      := "127.0.0.1"
   local cUser      := "root"
   local cPassword  := ""
   local oCn, uRet, cTable, aTables
   local cDb        := "COMP04"
   local oDlg, oMeter, nActual:=0 
         
   ? "Connect to Server"
   FWCONNECT oCn HOST cHost USER cUser PASSWORD cPassword
       if oCn == nil
        ? "Connect Fail"
   return nil
        else
   endif
       
   if oCn != nil

      ? "Selecting database " + cDb, "Create if new"
      if Empty( oCn:ListDbs( cDb ) )
         oCn:CreateDB( cDb, "latin1" )
      endif
      oCn:SelectDB( cDb )
      ? "Connected to " + oCn:CurrentDB()

      aTables := HB_dirScan( ".\", "*.dbf", "A" )
      
      nActual:=Len(aTables)

      for each cTable in  aTables //{ "customer.dbf", "states.dbf" }

         IF ! oCn:TableExists( cFileNoExt( cTable[ 1 ] ) )
            //ImportFromDBF( cDbfName, nil, nil, nil, nil, .F. ) // 5th param .F. suppresses creation of AutoInc field ID
         
         DEFINE DIALOG oDlg FROM 1, 1 TO 12, 44 ;
            TITLE "Testing the Meter controls"  
          
            @ 2, 2 METER oMeter VAR nActual TOTAL 100 OF oDlg SIZE 135, 12
            
            uRet := oCn:ImportFromDBF( cTable[ 1 ], nil, nil, nil, nil, .F.  )
            
            oMeter:Set( nActual + aTables[ x ][ 1 ] )
          
         ACTIVATE DIALOG oDlg CENTERED
         
         ENDIF
      
      NEXT  

   endif

   ? "IMPORTACION FINALIZADA"

   oCn:Close()

return nil