Algun programa o rutina para convertir dbf a sql

2,365 views
Skip to first unread message

Marcelo Barberis

unread,
Nov 29, 2012, 10:04:12 PM11/29/12
to publicesvfoxpro, Allan Raúl Acuña
Bueno queria consultar si tienen algun programa o rutina para convertir dbf a sql, algo generico que el resultado o script sea aplicable a los motores sql como ser mssql, sqlserver, mysql, postgress, oracle...
si tienen alguna informacion se las agradeceria.

--
Ing. Marcelo Barberis Gutierrez
Sistemas Informaticos Inc
Villa Montes - Bolivia
Telef.: +591-76831064

Luis Maria Guayan

unread,
Nov 30, 2012, 8:05:41 AM11/30/12
to publice...@googlegroups.com
VFP tiene el asistente para convertir DBC y DBF a SQL

Do (Home(1) + "Wizards\wzupsize.app")


Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

--
 
 

extremo

unread,
Nov 30, 2012, 8:14:32 AM11/30/12
to publice...@googlegroups.com, Allan Raúl Acuña
Luis Maria

Que es lo mejor, hacerlo por ese asistente o hacerlo manualmente, te lo pregunto porque no se si ese asistente deje las tablas o la BD con alguna configuracion extraña o haga que se comporte algo extraño el Sql, tu haz tenido experiencia al respecto?

Bendiciones

Jairo Miranda

unread,
Dec 5, 2012, 8:16:59 AM12/5/12
to publice...@googlegroups.com

Si  hay ..

JM

Espero te sirva

--
 
 

PROGS.rar

Marcelo Barberis

unread,
Dec 5, 2012, 9:02:02 AM12/5/12
to publicesvfoxpro
gracias por tu aporte, mas tarde este viendo y te comento.


--
 
 

elkin dario uribe torres

unread,
Dec 5, 2012, 9:37:57 AM12/5/12
to publice...@googlegroups.com
Buenos dias Luis Maria.

Cual es la forma para poder exportar a SqlServer los campos Blob, esto con el fin de poder integrarlo a una aplicacion que me ayuda a migrar datos fox a SqlServer.  

La instruccion que utilizo es como la siguiente dependiendo del caso:

comando=IIF(&auxcampo = .T.,"allt(str(1))","allt(str(0))")    &&Si es logico

comando='"'+CHR(39)+'"+'+"("+auxcampo+")"+'+"'+CHR(39)+'"'    &&& Si es varchar


Te adjunto la pantalla


Saludos

Elkin Uribe



--
 
 

importador.png

Luis Maria Guayan

unread,
Dec 5, 2012, 9:52:36 AM12/5/12
to publice...@googlegroups.com
Las muy pocas exportaciones que realice las hice con el Asistente. Puedes mirar el código del asistente que MS liberó para la comunidad y se actualizó de VFPx

-- SQL Server Upsizing Wizard --
http://vfpx.codeplex.com/releases/view/10224

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

--
 
 

elkin dario uribe torres

unread,
Dec 5, 2012, 11:00:24 AM12/5/12
to publice...@googlegroups.com
Gracias Luis ya mire y veo que tres tipos de campos fueron adicionados como mejora o soporte para Vfp9

    * rmk - 01/06/2004 - support for new types in VFP 9
    DIMENSION V[1]
    DIMENSION Q[1]  && varbinary
    DIMENSION W[1] && blob

Pero mirando y buscando en el codigo solo aparecen las mejoras para los campos 'V' y 'Q', mas no para el 'W' como aparace aqui :

           * rmk - 01/06/2004
            * lcTypeNocp = IIF(DATATYPE = 'C', 'char_nocp', 'memo_nocp')
            DO CASE
            CASE DATATYPE = 'C'
           lcTypeNocp = 'char_nocp'
            CASE DATATYPE = 'V'
           lcTypeNocp = 'varchar_nocp'
            OTHERWISE
            lcTypeNocp = 'memo_nocp'
ENDCASE

            lcTypeString = IIF(NOCPTRANS, lcTypeNocp, RTRIM(FullType))

            * add field length and decimals for Fox variable length types
            IF INLIST(DATATYPE, 'C', 'V', 'Q', 'N', 'F')
                lcTypeString = lcTypeString + " (" + LTRIM(STR(LENGTH))
                IF PRECISION <> 0 THEN
                    lcTypeString = lcTypeString + "," + LTRIM(STR(PRECISION))
                ENDIF
                lcTypeString = lcTypeString+")"
            ELSE
                * JVF 11/02/02 Add AutoInc string to Local type
                IF DATATYPE = "I" AND THIS.SQLServer
                    IF AutoInStep > 0
                        lcTypeString = lcTypeString + " (AutoInc)"

                        * JVF 11/02/02 # 1478 Add "(Identity)" string to RemoteType if AutoInc,
                        REPLACE RmtType WITH "int (Ident)"
                    ELSE
                        * Since we added record it to typemap, strip it off if necc.
                        REPLACE RmtType WITH "int"
                    ENDIF
                ENDIF
            ENDIF

O estare buscando donde no es?


Saludos


Elkin Uribe

--
 
 

Luis Maria Guayan

unread,
Dec 6, 2012, 7:27:12 PM12/6/12
to publice...@googlegroups.com
Elkin, hoy 6 de Diciembre actualizaron el Asistente de migración a SQL Server. Mira si la nueva versión te sirve



-- SQL Server Upsizing Wizard --
http://vfpx.codeplex.com/releases/view/10224

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

--
 
 

elkin dario uribe torres

unread,
Dec 7, 2012, 8:16:08 AM12/7/12
to publice...@googlegroups.com
Muchas gracias Luis la mirare y te comento.

Saludos

Elkin Uribe

--
 
 

Reply all
Reply to author
Forward
0 new messages