Migrar datos de Access a VFox Pro

Hola Arturo:

Fijate si tenés algún driver ODBC de Access y si es así creás una vista
desde VFP usando ese driver y listo.


Saludos,

Fernando D. Bozzo

"La programación es más eficiente cuando menos se piensa en el código"




"Arturo" escribió en el mensaje
news:
Mostrar la cita

¿Alguien sabe si se puede (y como) migrar datos de una base de datos

Access a
Mostrar la cita

una de Visual FoxPro? Gracias por adelantado.

Asi se responde!
Hace dias pusieron esto
Puedes utilizar SPT para traerte todas las tablas de tu archivo MDB.

lcArchivoMDB="C:\mydatabase.mdb"
lcConnStrin="Driver={Microsoft Access Driver
(*.mdb)};Dbq="+lcArchivoMDB+";Uid=Admin;Pwd=;"


lnHanlde = SQLStringConnect(lcConnString)
IF lnHandle > 0
SCAN
lcTabla=ALLTRIM(EVALUATE(FIELD(3,"cTables")))
lcQuery="SELECT * FROM "+lcTabla
WAIT WINDOW "Extrayendo Datos de la tabla: "+lcField NOWAIT
IF SQLEXEC(lnHandle,lcQuery,"cImport") > 0
BROWSE
COPY TO (lcTabla)
ENDIF
ENDSCAN
=SQLDisconnect(lnHandle)
ELSE
IF AERROR(laError) > 0
Messagebox("Error al intentar conectar:"+laError[2])
ENDIF
ENDIF

Me parece bien, sólo que desconozco de donde sale cTables, pero puede
sacarse por el mismo método:

lcArchivoMDB="C:\mydatabase.mdb"
lcConnStrin="Driver={Microsoft Access Driver
(*.mdb)};Dbq="+lcArchivoMDB+";Uid=Admin;Pwd=;"


lnHanlde = SQLStringConnect(lcConnString)
IF lnHandle > 0
IF SQLTables(lnHandle,"TABLE","cTables) > 0
SCAN
lcTabla=ALLTRIM(EVALUATE(FIELD(3,"cTables")))
lcQuery="SELECT * FROM "+lcTabla
WAIT WINDOW "Extrayendo Datos de la tabla: "+lcField NOWAIT
IF SQLEXEC(lnHandle,lcQuery,"cImport") > 0
* BROWSE
COPY TO (lcTabla)
ENDIF
ENDSCAN
=SQLDisconnect(lnHandle)
ELSE
IF AERROR(laError) > 0
Messagebox("Error al obtener entidades:"+laError[2])
ELSE
Messagebox("Error inesperado al obtener entidades...")
ENDIF
ENDIF
ELSE
IF AERROR(laError) > 0
Messagebox("Error al intentar conectar:"+laError[2])
ENDIF
ENDIF

Por cierto, me quedó la duda si es un código mío, ya que se usan casi las
mismas variables que siempre uso, lo raro es que no me acuerdo haberlo
puesto algún día...


Mostrar la cita

Asi se responde!
Hace dias pusieron esto
Puedes utilizar SPT para traerte todas las tablas de tu archivo MDB.

lcArchivoMDB="C:\mydatabase.mdb"
lcConnStrin="Driver={Microsoft Access Driver
(*.mdb)};Dbq="+lcArchivoMDB+";Uid=Admin;Pwd=;"


lnHanlde = SQLStringConnect(lcConnString)
IF lnHandle > 0
SCAN
lcTabla=ALLTRIM(EVALUATE(FIELD(3,"cTables")))
lcQuery="SELECT * FROM "+lcTabla
WAIT WINDOW "Extrayendo Datos de la tabla: "+lcField NOWAIT
IF SQLEXEC(lnHandle,lcQuery,"cImport") > 0
BROWSE
COPY TO (lcTabla)
ENDIF
ENDSCAN
=SQLDisconnect(lnHandle)
ELSE
IF AERROR(laError) > 0
Messagebox("Error al intentar conectar:"+laError[2])
ENDIF
ENDIF

ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox.com
Acapulco, México
email:mexicoSINSPAM[Arroba]portalfox.com

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

No problem -hasta el Galo modifica escritos anteriores- No se quien lo
puso pero francamente no se si funciona porque nunca lo he usado.

Ya lo revisé y si fuí yo, y en aquel entonces cometí ese error de no
incluir el SQLTables, ahora que ya está bien lo he puesto en PortalFox
para que quede mas a la mano de todos los compañeros.

Saludos.

Mostrar la cita

No problem -hasta el Galo modifica escritos anteriores- No se quien lo
puso pero francamente no se si funciona porque nunca lo he usado.

ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox.com
Acapulco, México
email:mexicoSINSPAM[Arroba]portalfox.com

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa