FiveTech Support Forums

Excluding the CASE Table, export was successful.

nageswaragunupudi wrote:If you are using ADO for MySql, you can use FW_AdoImportFromDBF()
If you are using FWMYSQL for connecting to MySql, you can use oCn:ImportFromDBF()

nageswaragunupudi wrote:

Code (fw): Select all Collapse

FW_AdoImportFromDBF( oCn, "c:\fwh\samples\states.dbf" )  // use lower case
oRs := FW_OpenRecordSet( oCn, "states" )
XBROWSER oRs

#include "FiveWin.ch"

//----------------------------------------------------------------//

REQUEST DBFCDX

function Main()
   local cServer     := "localhost"
   local cDatabase   := "SBODemoUS"
   local cUser       := "root"
   local oCn, oRs, aTables, cTable
   
   oCn := FW_OpenAdoConnection( "MYSQL, localhost, SBODemoUS, root", .t. )
   
   if oCn == nil
      ? "Connect Fail"
   else
      ? "connected" 
   endif

   aTables := FW_AdoTables( oCn )          
   
   if oCn == nil
      ? "Connect Fail"
   else
      XBROWSER aTables
   endif  
   
   for each cTable in aTables
      FW_AdoImportFromDBF( oRs, cFileSetExt( cTable, "dbf" ), .t. ) 
      oRs   := FW_OpenRecordSet( oCn, cTable )
      oRs:Close()
   next  
  
   ? "IMPORTACION FINALIZADA"
        
   oCn:Close()

return nil
//----------------------------------------------------------------//

Cristobal,

Tendra alguna sugerencia para leer varios DBF e Importar a MySql?

Por qué no puedes usar el codigo de Mr Rao?

No he entendido el problema que tienes con tu codigo anterior

cnavarro wrote:Por qué no puedes usar el codigo de Mr Rao?

No he entendido el problema que tienes con tu codigo anterior

Pero te conecta correctamente al servidor?

cnavarro wrote:Pero te conecta correctamente al servidor?

Has leido mi post anterior?

cnavarro wrote:El problema lo tienes, porque lo estás haciendo al revés

La instrucción

Code (fw): Select all Collapse

aTables := FW_AdoTables( oCn )

es incorrecta, eso te devuelve las tablas que hay en el servidor, y tú necesitas los dbf que vas a importar

Tienes que leer todos los dbf para pasárselos a la function de importación

Code (fw): Select all Collapse

aTables := HB_dirScan( cPath, "*.dbf", "A" )   // Por ejemplo
XBrowse( aTables )

Después haces un For .... Next y le vas aplicando cada elemento de la tabla a la function de importacion ( ojo con añadirle el path al nombre si es necesario ), todo en minúsculas eso si

Compuin wrote:

cnavarro wrote:El problema lo tienes, porque lo estás haciendo al revés

La instrucción

Code (fw): Select all Collapse

aTables := FW_AdoTables( oCn )

es incorrecta, eso te devuelve las tablas que hay en el servidor, y tú necesitas los dbf que vas a importar

Tienes que leer todos los dbf para pasárselos a la function de importación

Code (fw): Select all Collapse

aTables := HB_dirScan( cPath, "*.dbf", "A" )   // Por ejemplo
XBrowse( aTables )

Después haces un For .... Next y le vas aplicando cada elemento de la tabla a la function de importacion ( ojo con añadirle el path al nombre si es necesario ), todo en minúsculas eso si

Tengo los Dbf en el mismo directorio que el ejecutable....no necesito path alli?