Exportar de MDB a DBF (Solucionado)

Exportar de MDB a DBF (Solucionado)

Postby ACC69 » Wed Aug 03, 2011 7:27 pm

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
Last edited by ACC69 on Fri Aug 05, 2011 4:34 pm, edited 1 time in total.
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm

Re: Exportar de MDB a DBF

Postby José Ríos » Wed Aug 03, 2011 8:03 pm

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.
José Ríos
 
Posts: 119
Joined: Fri Nov 04, 2005 12:23 am

Re: Exportar de MDB a DBF

Postby acuellar » Wed Aug 03, 2011 8:21 pm

acc69

Aqui algo para que lo adaptes a tu necesidad
Code: Select all  Expand view  RUN

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
Saludos,

Adhemar C.
User avatar
acuellar
 
Posts: 1644
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia

Re: Exportar de MDB a DBF

Postby postinelli » Wed Aug 03, 2011 8:55 pm

desde el mismo MS Acces podes hacerlo aunque la mejor herramienta es el ARC de Advantage
postinelli
 
Posts: 149
Joined: Tue Jul 15, 2008 7:12 pm
Location: Argentina

Re: Exportar de MDB a DBF

Postby ACC69 » Wed Aug 03, 2011 8:56 pm

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
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm

Re: Exportar de MDB a DBF

Postby acuellar » Wed Aug 03, 2011 9:31 pm

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
Saludos,

Adhemar C.
User avatar
acuellar
 
Posts: 1644
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia

Re: Exportar de MDB a DBF

Postby ACC69 » Wed Aug 03, 2011 9:51 pm

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  RUN
#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
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm

Re: Exportar de MDB a DBF

Postby ACC69 » Thu Aug 04, 2011 3:18 pm

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
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm

Re: Exportar de MDB a DBF

Postby acuellar » Thu Aug 04, 2011 7:08 pm

acc69

Esta bien como está asi es
Enviala tu base.

acuellar@lostajiboshotel.com / adhemarcuellar@hotmail.com

Saludos,

Adhemar
Saludos,

Adhemar C.
User avatar
acuellar
 
Posts: 1644
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia

Re: Exportar de MDB a DBF (Solucionado)

Postby ACC69 » Fri Aug 05, 2011 4:35 pm

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
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 62 guests