Migrar datos de Access a VFox Pro

10/11/2004 - 22:03 por Arturo | Informe spam
¿Alguien sabe si se puede (y como) migrar datos de una base de datos Access a
una de Visual FoxPro? Gracias por adelantado.

Preguntas similare

Leer las respuestas

#1 Fernando D. Bozzo
10/11/2004 - 22:05 | Informe spam
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:
¿Alguien sabe si se puede (y como) migrar datos de una base de datos


Access a
una de Visual FoxPro? Gracias por adelantado.
Respuesta Responder a este mensaje
#2 josepe
11/11/2004 - 17:06 | Informe spam
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
Respuesta Responder a este mensaje
#3 Esparta Palma
11/11/2004 - 17:49 | Informe spam
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...


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
Respuesta Responder a este mensaje
#4 josepe
12/11/2004 - 22:19 | Informe spam
No problem -hasta el Galo modifica escritos anteriores- No se quien lo
puso pero francamente no se si funciona porque nunca lo he usado.
Respuesta Responder a este mensaje
#5 Esparta Palma
12/11/2004 - 22:29 | Informe spam
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.

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
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida