Exportar de MDB a DBF (Solucionado)

[ACC69]

Hola Acuellar, gracias por todo amigo, ya quedo, el problema de la base de datos, tiene formato paradox, pero...no se como es que lo abre en acces, ese era el detalle por el cual no pueda hacer conexion con la base de datos, ya que hice prueba, creando una nueva base de datos de acces y ahi el formato reconoce como acces y solo asi, logre hacer funcionar mi conexion, pero...la base de datos que esta en paradox, aun lo tengo pendiente , pero ya vere la forma de exportar a un archivo texto y de ahi importar a mi dbf.

Muchas gracias por tu tiempo Acuellar , te mando saludos y buen dia

Saludos y buen dia a todos .

acc69@hotmail.com

[José Ríos]

Hola

Una forma facil de exportar MDB a DBF es con el "Advantage data architect" (buscalo asi en google), tiene una funcion para importar archivos mdb a dbf, esta incluido en la version de prueba del "advantage database server". Para hacer la importacion de estas bases de datos tienes que tener tambien instalado el "borland database engine" puesto que el "advantage data arquitect" lo utiliza para hacer la importacion. El "borland database engine" me parece que es freeware y lo encuentras buscando en google.

Saludos.

Josè Rios.

[acuellar]

acc69

Aqui algo para que lo adaptes a tu necesidad

Code: Select all  Expand view

oConnection:=CreateObject( "ADODB.Connection" )
   TRY
      oConnection:open("Provider= MicroSoft.Jet.OLEDB.4.0;Data Source=C:\BASE.MDB;")
   CATCH oError
      MsgAlert(" No se pudo establecer conexión con la base de datos..","Atención")
     RETURN
   END
   TRY
     oRSet := CreateObject( "ADODB.RecordSet" )
   CATCH oError
     MsgStop( "No se ha podido crear el OBJETO"+ oError:Description )
     RETURN
   END
   oRSet:CursorLocation:=adUseClient;oRSet:LockType:=adLockReadOnly;oRSet:CursorType:=adOpenForwardOnly;oRSet:ActiveConnection( oConnection )

   sSQLQuery := "SELECT * FROM USERINFO"
   TRY
     oRSet:Open( sSQLQuery, oConnection )
   CATCH oError
     MsgStop( "No se ha podido crear el RECORDSET USERINFO "+ oError:Description )
     RETURN
   END
   USE DATOS INDEX DATPER ALIAS "TMP" NEW
   oRSet:MoveFirst()
   
    DO WHILE !oRSet:EOF
      TMP->( dbAppend() )
        TMP->CODIGO:=oRSet:Fields(0):Value;TMP->NOMBRE:=oRSet:Fields(1):Value
      oRSet:MoveNext()
  ENDDO
  oRSet:Close();EMPL->( dBCloseArea() )

 

Podes abrir tu .MDB con Excel para ver que campos queres sacar, empieza de 0

Espero te sirva

Saludos,

Adhemar

[postinelli]

desde el mismo MS Acces podes hacerlo aunque la mejor herramienta es el ARC de Advantage

[ACC69]

Hola Jose Rios, gracias por el tip , que no encuentro donde descargarlo.

Hola Acuellar, gracias por el pequeño codigo,hice casi como esta en su codigo, pero dejame decirte, que nunca he usado ese tipo de conexion, si serias tan amable de ayudarme con ese detalle de como conectarme a la base de datos .MDB? ya que me marca error : No se pudo establecer conexion con la base de datos..

O que mas me falta por estas instrucciones que adapte a mi codigo fuente.

o me puedas escribir en mi correo,mucho agradecere tu ayuda Acuellar.

Saludos y buen dia a todos.

acc69@hotmail.com

[acuellar]

ACC69

Colocar esta cabecera
#include "ado.ch"

Colocar la via correcta de la ubicacion de la base .MDB

sSQLQuery := "SELECT * FROM USERINFO" //USERINFO es el nombre de una de las tablas de la base (verificar con Excel o Access en la tuya)

Si podes enviame tu .MDB empaquetada acuellar@lostajiboshotel.com

Saludos,

Adhemar

[ACC69]

Hola Acuellar ya puse la cabecera "ado.ch", pero...aun no logro hacerlo funcionar, para que abra la tabla,pero estoy checando cada detalle del codigo y los ejemplos del foro....expongo aqui como la codifique y donde esta mi error. Ya que no se puede establecer la conexion con la base de datos.

Code: Select all  Expand view

#include "FiveWin.ch"
#include "ado.ch"

STATIC oConnection, oRSet, oError, sSQLQuery

//------------------------------------------------------------------------------
FUNCTION CONV_MDB()

 oConnection:=CreateObject( "ADODB.Connection" )
   TRY
      oConnection:open("Provider= MicroSoft.Jet.OLEDB.4.0;Data Source=C:\EMPRESAS\COMD01.MDB;")
   CATCH oError
      MsgAlert(" No se pudo establecer conexión con la base de datos..","Atención")
     RETURN .F.
   END

   TRY
     oRSet := CreateObject( "ADODB.RecordSet" )
   CATCH oError
     MsgStop( "No se ha podido crear el OBJETO"+ oError:Description )
     RETURN .F.
   END

   oRSet:CursorLocation:=adUseClient;oRSet:LockType:=adLockReadOnly;oRSet:CursorType:=adOpenForwardOnly;oRSet:ActiveConnection( oConnection )

   sSQLQuery := "SELECT * FROM USERINFO"
   TRY
     oRSet:Open( sSQLQuery, oConnection )
   CATCH oError
     MsgStop( "No se ha podido crear el RECORDSET USERINFO "+ oError:Description )
     RETURN .F.
   END

   USE DATOS INDEX DATPER ALIAS "TMP" NEW
   oRSet:MoveFirst()

    DO WHILE !oRSet:EOF
        TMP->( dbAppend() )
        TMP->CODIGO:=oRSet:Fields(0):Value;TMP->NOMBRE:=oRSet:Fields(1):Value

        oRSet:MoveNext()
  ENDDO

  oRSet:Close();EMPL->( dBCloseArea() )
RETURN NIL

[ACC69]

Hola Acuellar, como esta , espero que se encuentre bien, me he fijado en un detalle, la extension tiene terminacion .accdb, en lugar de .mdb, sera por eso que no pueda hacer la conexion a la base de datos? o es mi codigo que le falta algun detalle mas.

Esperando su opinion y de otros colegas , que me puedan ayudar a exportar de la base de datos de acces a DBF.

Gracias y buen dia a todos.

Saludos

[acuellar]

acc69

Esta bien como está asi es
Enviala tu base.

acuellar@lostajiboshotel.com / adhemarcuellar@hotmail.com

Saludos,

Adhemar

[ACC69]

Hola Acuellar, gracias por todo amigo, ya quedo, el problema de la base de datos, tiene formato paradox, pero...no se como es que lo abre en acces, ese era el detalle por el cual no pueda hacer conexion con la base de datos, ya que hice prueba, creando una nueva base de datos de acces y ahi el formato reconoce como acces y solo asi, logre hacer funcionar mi conexion, pero...la base de datos que esta en paradox, aun lo tengo pendiente , pero ya vere la forma de exportar a un archivo texto y de ahi importar a mi dbf.

Muchas gracias por tu tiempo Acuellar , te mando saludos y buen dia

Saludos y buen dia a todos .

acc69@hotmail.com