Pasar tablas SQL Server a DBF

[nageswaragunupudi]

Excluding the CASE Table, export was successful.

The problem may be because CASE is a reserved word.
This name will keep creating problems in any other database too, Please consider renaming the table

[Compuin]

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()

Thanks

Do you have an example to use FW_AdoImportFromDBF() ?

I tried with the sample from wiki and it didn't work

[nageswaragunupudi]

Code: Select all  Expand view  RUN

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

[Compuin]

Code: Select all  Expand view  RUN

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

Thanks Mr Rao,

It's work for just one dbf but I have 2014 dbf to import into MySql.

Which is the best way to do it for several dbfs ?

I'm doing on this way but it doesn't work

Code: Select all  Expand view  RUN

#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
//----------------------------------------------------------------//

[Compuin]

Cristobal,

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

[cnavarro]

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

No he entendido el problema que tienes con tu codigo anterior

[Compuin]

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

No he entendido el problema que tienes con tu codigo anterior

Tengo varios Dbf (son mas de 2000) y el codigo de Mr Rao es solo para un Dbf

Alli es donde me tranque

[cnavarro]

Pero te conecta correctamente al servidor?

[cnavarro]

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

La instrucción

Code: Select all  Expand view  RUN

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: Select all  Expand view  RUN

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]

Pero te conecta correctamente al servidor?

Si

El programa funciona y conecta pero no puede importar el Dbf a la base de datos de mysql

[cnavarro]

Has leido mi post anterior?

[Compuin]

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

La instrucción

Code: Select all  Expand view  RUN

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: Select all  Expand view  RUN

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?

[Compuin]

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

La instrucción

Code: Select all  Expand view  RUN

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: Select all  Expand view  RUN

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?

Voy a probar y te comento

[cnavarro]

El for seria algo asi

Code: Select all  Expand view  RUN

   For x =1 to Len( aTables )

        FW_AdoImportFromDBF( oCn, lower( aTables[ x ][ 1 ] ) )

   Next x

 

O incluso

Code: Select all  Expand view  RUN

    AEVal( aTables, { | a | FW_AdoImportFromDBF( oCn, lower( a[ 1 ] ) ) } )

 

[Compuin]

Colocandolo asi

Code: Select all  Expand view  RUN

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

Me trae el Xbrowse vacio

Los dbf estan en el mismo directorio del ejecutable