Mediante la sentencia:
mysql -u root -p < xSQL.sqldonde xSQL.sql es el archivo generado mediante esta rutina.
Con la intención de que a alguien le pueda servir ya que también puede ser utilizado para migrar los datos de sistemas hechos en Clipper 5x o dBase hacia un servidor MySql.
Se envía sin ningún tipo de garantía, lo he probado y funciona!!! pero no pretendo ganarme ningún problema legal por el mal uso del mismo!!!
Funciona básicamente cargando en una matriz todas las tablas de un directorio, posteriormente es leído tabla por tabla y enviado las sentencias SQL que genera la estructura de la tabla.
Posteriormente si tiene registros la tabla entonces son enviados cada uno de ellos en forma de instrucción INSERT tal cual lo haríamos de forma manual. se utiliza la misma forma o formato que hace MYSQLDUMP es decir un backup generado desde MySql.
En fin, si a alguien le sirve y si lo mejora y lo publica mejor todavía!!!!
Cualquier consulta y/o aclaración tienen mi correo!!!
OMAR ROJAS
orodrf@gmail.com
*//-----------------------------------------------------------------------------------------
*//.........................................................................................
*//......Fecha: 26-07-2011.............................................................
*//......Autor: OMAR DUILIO ROJAS FORNERON.............................................
*//......Localidad: Encarnación-Paraguay...xodrf@hotmail.com...............................
*//......Funcion: Envia una(as) tabla(s) DBF a un servidor mysql.........................
*//...... Es decir pide un directorio y lee la estructura de cada tabla DBF que..
*//...... existe en el y lo envia con sus datos a un archivo de texto con........
*//...... formato de backup que deberia ser tomado por cualquier servidor como...
*//...... mysql y hasta con pocos cambios deberia funcionar para cualquier SQL...
*//...... server.................................................................
*//......Compatib.: Ha sido desarrollado y probado con VFP8.0 pero deberia funcionar con ..
*//...... todas las verciones desde VFP6.0 en adelante...........................
*//.........................................................................................
*//-----------------------------------------------------------------------------------------
*// inicialización
SET DATE TO ITALIAN
SET SAFETY OFF
SET SCOREBOARD OFF
SET TALK OFF
#define XCOMM "-- " &&definimos los caracteres de comentario para el servidor mysql
*//
*// Generamos un archivo de salida en formato texto
*//
_Xdir=GETDIR( CURDIR(), [Indique el Directorio] )
IF EMPTY( _Xdir )==.T.
RETURN
ENDIF
_Len=ADIR( _Mat, _Xdir+"*.DBF" )
IF _Len==0
MESSAGEBOX( [NO SE ENCONTRO NINGUNA TABLA], 61, [WARNING] )
RETURN
ENDIF
*//---------------------------------------------------------------
* mysql tables type:
* TINYINT[(length)] [UNSIGNED] [ZEROFILL]
* | SMALLINT[(length)] [UNSIGNED] [ZEROFILL]
* | MEDIUMINT[(length)] [UNSIGNED] [ZEROFILL]
* | INT[(length)] [UNSIGNED] [ZEROFILL]
* | INTEGER[(length)] [UNSIGNED] [ZEROFILL]
* | BIGINT[(length)] [UNSIGNED] [ZEROFILL]
* | REAL[(length,decimals)] [UNSIGNED] [ZEROFILL]
* | DOUBLE[(length,decimals)] [UNSIGNED] [ZEROFILL]
* | FLOAT[(length,decimals)] [UNSIGNED] [ZEROFILL]
* | DECIMAL(length,decimals) [UNSIGNED] [ZEROFILL]
* | NUMERIC(length,decimals) [UNSIGNED] [ZEROFILL]
* | DATE
* | TIME
* | TIMESTAMP
* | DATETIME
* | CHAR(length) [BINARY | ASCII | UNICODE]
* | VARCHAR(length) [BINARY]
* | TINYBLOB
* | BLOB
* | MEDIUMBLOB
* | LONGBLOB
* | TINYTEXT [BINARY]
* | TEXT [BINARY]
* | MEDIUMTEXT [BINARY]
* | LONGTEXT [BINARY]
* | ENUM(value1,value2,value3,...)
* | SET(value1,value2,value3,...)
* | spatial_type
*//---------------------------------------------------------------
*//------------------------------------------------------
*// buscamos destino de fichero de texto de salida
_olddir=CURDIR()
_MisDoc=[C:\TEMP\]
CD( _MisDoc )
_Salida=PUTFILE( "Fichero de Salida", "XSQL", "SQL" )
CD( _olddir )
IF EMPTY( _Salida )
RETURN
ENDIF
*//------------------------------------------------------
*// apertura del fichero a bajo nivel
_han=FCREATE( _Salida, 0 )
IF FERROR()!=0 .OR. _han==-1
RETURN
ENDIF
_tab=CHR(9)
_eol=CHR(13)+CHR(10)
*//------------------------------------------------------
*// enviamos cabecera
*//------------------------------------------------------
FPUTS( _han, XCOMM+"*//............................................................................................" )
FPUTS( _han, XCOMM+"*//......Fecha: "+DTOC(DATE())+"......................................................." )
FPUTS( _han, XCOMM+"*//......Autor: OMAR ROJAS............................................................." )
FPUTS( _han, XCOMM+"*//......Localidad: Encarnación-Paraguay...xodrf@hotmail.com..............................." )
FPUTS( _han, XCOMM+"*//...... Backup generado desde VFPX............................................." )
FPUTS( _han, XCOMM+"*//...... ......................................................................." )
FPUTS( _han, XCOMM+"*//...... para importar desde mysql ejecutar el siguiente comando................" )
FPUTS( _han, XCOMM+"*//...... WIN-SHELL: mysql -u root -p < C:\xSQL.sql..........................." )
FPUTS( _han, XCOMM+"*//...... LINUX-SHELL: mysql -u root -p < /home/xSQL.sql........................" )
FPUTS( _han, XCOMM+"*//............................................................................................" )
FPUTS( _han, XCOMM+"*//............................................................................................" )
FPUTS( _han, XCOMM )
FPUTS( _han, XCOMM )
FPUTS( _han, XCOMM+[*// CAMBIAR EL NOMBRE DE LA BASE DE DATOS A UTILIZAR] )
FPUTS( _han, [CREATE DATABASE IF NOT EXIST mibasededatos;] )
FPUTS( _han, [USE mibasededatos;] )
FPUTS( _han, XCOMM )
FPUTS( _han, XCOMM )
*//------------------------------------------------------
*// procesamos cada elemento de matriz (cada tabla)
_gir=1
FOR _gir=1 TO _Len STEP 1
USE (_Xdir+_Mat[ _gir, 1]) IN 0 ALIAS XTABLE NOUPDATE
_Table=SUBSTR( _Mat[ _gir, 1 ], 1, AT( ".", _Mat[ _gir, 1 ], 1 )-1 )
FPUTS( _han, "CREATE TABLE "+_Table+" (" )
IF UPPER(_Table)=="FOXUSER"
USE IN XTABLE
_gir=_gir+1
LOOP
ENDIF
*// captura campos
_col =1
_Slen =AFIELDS( _Struct, [XTABLE] )
FOR _Sgir=1 TO _Slen STEP 1
*//----------------------------------------------------------
*// realizamos las conversiones de campos DBF a mysql
*Field type:
*C=Character
*D=Date
*L=Logical
*M=Memo
*N=Numérico
*F=Float
*I=Integer
*B=Double
*Y=Currency
*T=DateTime
*G=General
DO CASE
CASE _Struct[_Sgir,2]=="C"
_type ="CHAR ("+ALLTRIM(STR(_Struct[_Sgir,3],3,0))+")"
CASE _Struct[_Sgir,2]=="D"
_type ="DATE"
CASE _Struct[_Sgir,2]=="L"
_type ="TINYINT (1)"
CASE _Struct[_Sgir,2]=="M"
_type ="LONGTEXT"
CASE _Struct[_Sgir,2]=="N"
_type ="DOUBLE ("+ALLTRIM(STR(_Struct[_Sgir,3],3,0))+", "+ALLTRIM(STR(_Struct[_Sgir,4],2,0))+")"
CASE _Struct[_Sgir,2]=="F"
_type ="FLOAT ("+ALLTRIM(STR(_Struct[_Sgir,3],3,0))+", "+ALLTRIM(STR(_Struct[_Sgir,4],2,0))+")"
CASE _Struct[_Sgir,2]=="I"
_type ="INT ("+ALLTRIM(STR(_Struct[_Sgir,3],3,0))+")"
CASE _Struct[_Sgir,2]=="B"
_type ="DOUBLE ("+ALLTRIM(STR(_Struct[_Sgir,3],3,0))+", "+ALLTRIM(STR(_Struct[_Sgir,4],2,0))+")"
CASE _Struct[_Sgir,2]=="Y"
_type ="DOUBLE ("+ALLTRIM(STR(_Struct[_Sgir,3],3,0))+", "+ALLTRIM(STR(_Struct[_Sgir,4],2,0))+")"
CASE _Struct[_Sgir,2]=="T"
_type ="DATETIME"
CASE _Struct[_Sgir,2]=="G"
_type ="LONGTEXT BINARY"
ENDCASE
_line=_tab+_Struct[_Sgir,1]+" "+_type
FPUTS( _han, IIF( _Sgir<_Slen, _line+",", _line ) )
ENDFOR
RELEASE _line,_type
*//
*// aca deberia verificarse y alterar el codigo de modo tal que permita generar las claves de indexado
*// complejas de VFP de modo tal que sea equivalente en mysql, el siguiente simplemente cuando tiene
*// una clave de indexado compleja la omite es decir no crea ningun indice para la tabla mysql
*// una expresion compleja seria algo como sigue:
*// index on campo1+campo2 o DTOS(fecha) u otros similares to ...
*//
*// captura de indices
_TagName=LEFT( _Mat[ _gir, 1], AT( ".", _Mat[ _gir, 1 ] )-1 )+".CDX"
_ltag=TAGCOUNT()
IF _ltag>0
*// OMITIMOS EXPRESIONES COMPLEJAS EN INDICES
FOR _Sgir=1 TO _ltag
_sexp =KEY( _Sgir )
_lsexp =LEN( ALLTRIM( _sexp ) )
_error =.F.
_kstr =""
_ckey =0
FOR _tgir=1 TO _lsexp
_byte=ASC(SUBSTR(_sexp,_tgir,1))
IF !(BETWEEN(_byte,48,57) OR BETWEEN(_byte,65,97) OR BETWEEN(_byte,90,122))
_error=.T.
ENDIF
ENDFOR
IF _error
LOOP
ENDIF
_Kstr=_Kstr+IIF( _ckey>1,",", "" ) + KEY( _Sgir )
_ckey=_ckey+1
ENDFOR
IF _ckey>0
FSEEK( _han, -2, 1 )
FPUTS( _han, "," )
FWRITE( _han, _tab+[PRIMARY KEY(]+_Kstr+[)] )
ENDIF
RELEASE _kstr,_sexp,_ltag,_ckey,_TagName,_ltag
ENDIF
FPUTS( _han, " );" )
*// solo si hay registros en la tabla DBF procedemos a insertarlos
IF RECCOUNT()>0
*//--------------------------------------------------------------------
*// enviamos sentencia insert con los campos
_line=""
FOR _Sgir=1 TO _Slen STEP 1
_line=_line+_Struct[_Sgir,1]+IIF( _Sgir<_Slen, ",", "" )
ENDFOR
FPUTS( _han, "INSERT INTO "+_Table+" ("+_line+") VALUES" )
*// enviamos cada registro de la tabla
SELECT XTABLE
GO TOP
DO WHILE !EOF()
_line="("
IF DELETED()
SKIP +1
LOOP
ENDIF
SCATTER TO _rec
FOR _Sgir=1 TO _Slen STEP 1
DO CASE
CASE _Struct[_Sgir,2]=="C"
_value=CHR(39)+ALLTRIM(_rec[_Sgir])+CHR(39)
CASE _Struct[_Sgir,2]=="D"
_value=CHR(39)+STRTRAN( STR(YEAR(_rec[_Sgir]),4,0)+"-"+STR(MONTH(_rec[_Sgir]),2,0)+"-"+STR(DAY(_rec[_Sgir]),2,0), " ", "0" )+CHR(39)
CASE _Struct[_Sgir,2]=="L"
_value=CHR(39)+IIF( _rec[_Sgir], "1", "0" )+CHR(39)
CASE _Struct[_Sgir,2]=="M"
_value=CHR(39)+_rec[_Sgir]+CHR(39)
CASE _Struct[_Sgir,2]=="N"
_value=CHR(39)+ALLTRIM(STR(_rec[_Sgir],_Struct[_Sgir,3],_Struct[_Sgir,4]))+CHR(39)
CASE _Struct[_Sgir,2]=="F"
_value=CHR(39)+ALLTRIM(STR(_rec[_Sgir],_Struct[_Sgir,3],_Struct[_Sgir,4]))+CHR(39)
CASE _Struct[_Sgir,2]=="I"
_value=CHR(39)+ALLTRIM(STR(_rec[_Sgir],_Struct[_Sgir,3],_Struct[_Sgir,4]))+CHR(39)
CASE _Struct[_Sgir,2]=="B"
_value=CHR(39)+ALLTRIM(STR(_rec[_Sgir],_Struct[_Sgir,3],_Struct[_Sgir,4]))+CHR(39)
CASE _Struct[_Sgir,2]=="Y"
_value=CHR(39)+ALLTRIM(STR(_rec[_Sgir],_Struct[_Sgir,3],_Struct[_Sgir,4]))+CHR(39)
CASE _Struct[_Sgir,2]=="T"
_value=CHR(39)+TRANSFORM( TTOC(_rec[_Sgir],1), "@r 9999-99-99 99:99:99" )+CHR(39)
CASE _Struct[_Sgir,2]=="G"
_value=CHR(39)+_rec[_Sgir]+CHR(39)
ENDCASE
_line=_line+_value+IIF( _Sgir<_Slen, ",", ")" )
ENDFOR
*// enviamos el registro al archivo
FWRITE( _han, _line )
SKIP +1
*// si es el ultimo registro finalizamos sentencia sql
IF EOF()
FWRITE( _han, ";"+_eol )
ELSE
FWRITE( _han, ","+_eol )
ENDIF
ENDDO
ENDIF
USE IN XTABLE
FWRITE( _han, _eol+_eol )
ENDFOR
FWRITE( _han, _eol )
FWRITE( _han, _eol )
FCLOSE( _han )
MESSAGEBOX( [END], 64, [MESSAGE] )
RETURN
*//
*// FIN DEL PROGRAMA
*//
* sample output
*CREATE TABLE IF NOT EXISTS 'usuarios' (
* 'id' int(11) NOT NULL AUTO_INCREMENT,
* 'usuario' varchar(30) CHARACTER SET utf8 COLLATE utf8_unicode_ci NOT NULL,
* 'pass' varchar(30) CHARACTER SET utf8 COLLATE utf8_unicode_ci NOT NULL,
* 'nivel' enum('USUARIO','ADMIN') CHARACTER SET utf8 COLLATE utf8_unicode_ci NOT NULL DEFAULT 'USUARIO',
* 'fechaAlta' datetime NOT NULL,
* 'ip' varchar(15) CHARACTER SET utf8 COLLATE utf8_unicode_ci DEFAULT NULL,
* 'activo' tinyint(1) NOT NULL DEFAULT '1',
* 'ultimoLogin' datetime DEFAULT NULL,
* 'email' varchar(100) CHARACTER SET utf8 COLLATE utf8_unicode_ci DEFAULT NULL,
* 'nombre' varchar(50) COLLATE utf8_spanish2_ci DEFAULT NULL,
* 'apellido' varchar(50) COLLATE utf8_spanish2_ci DEFAULT NULL,
* 'paisId' int(11) NOT NULL,
* 'comentarios' text COLLATE utf8_spanish2_ci,
* PRIMARY KEY ('id'),
* UNIQUE KEY 'usuario' ('usuario')
*) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_spanish2_ci AUTO_INCREMENT=10 ;
*INSERT INTO 'usuarios' ('id', 'usuario', 'pass', 'nivel', 'fechaAlta', 'ip', 'activo', 'ultimoLogin', 'email',
* 'nombre', 'apellido', 'paisId', 'comentarios') VALUES
*(1, 'admin', 'admin', 'ADMIN', '2009-07-27 11:23:03', '127.0.0.1', 1, '2009-08-24 15:42:00', 'admin@demo.com',
* 'Usuario', 'Administrador', 1, 'soy administrador ;)'),
*(2, 'usuario', 'usuario', 'USUARIO', '2009-07-28 16:19:58', '127.0.0.1', 1, '2009-08-24 15:48:46', 'juan@perez.com',
* 'Juan', 'Perez', 1, NULL),
*(4, 'acarizza', '1234', 'USUARIO', '0000-00-00 00:00:00', '127.0.0.1', 0, '2009-08-18 22:10:51', 'email@server.com',
* 'Andres', 'Carizza', 1, 'probando ''comilla "comilla doble \\ barra invertida /barra *asterisco'),
*(5, 'maria', '1234', 'USUARIO', '0000-00-00 00:00:00', NULL, 1, NULL, 'maria@hotmail.com',
* 'Maria', 'Juana', 2, 'Comentarios para el campo de texto'),
*(7, 'juan', '1234', 'USUARIO', '0000-00-00 00:00:00', NULL, 1, NULL, 'juan@hotmail.com',
* 'Juan', '', 4, ''),
*(9, 'pepe', '1234', 'USUARIO', '0000-00-00 00:00:00', NULL, 1, NULL, 'pepe@pepe.com',
* 'Pepe', 'Perez', 3, 'hola que tal');
*//-----------------------------------------------------------------------------------------------
No hay comentarios. :
Publicar un comentario
Los comentarios son moderados, por lo que pueden demorar varias horas para su publicación.