Backup mysql...

[Francisco Horta]

Algun colega que tenga un ejemplo de como realizar un respaldo de la base de datos del sistema utilizando mysqldump.exe desde fwh???
estoy usando la clase tmysql
gracias
paco

[pablovidal]

Si usas la tDolphin, esta tiene unas funciones para esto

[Willi Quintana]

Holas...
Yo uso esta sentencia, ojo solo funciona en el servidor,,,,, pero es muy rapida,, no guarda la estructura de la tabla, solo crea un archivo plano de los datos. pro es muy rapida para hacer el restore..

Code: Select all  Expand view  RUN

// genera un archivo plano solo de los datos
SELECT * INTO OUTFILE /backup/tabla1.txt  FROM tabla1
// restaura los datos del archivo plano
LOAD DATA INFILE /backup/tabla1.txt IGNORE INTO TABLE tabla1
 

[Francisco Horta]

Pablo Uso TMySql
willy
probando, si hago esto:
SELECT * INTO OUTFILE "tabla1.txt" FROM tabla1
si funciona y deja el archivo en el data de mysql

perooo si quiero poner el archivo a otra ruta

SELECT * INTO OUTFILE "D:/respaldo/tabla1.txt" FROM tabla1
no funciona...
probe usando rutas diferentes y no me genera el archivo

seguire probando
gracias
paco

[Francisco Horta]

willi, ya funcionaa,, no respalda sobre unidades virtuales...
gracias
paco

[Willi Quintana]

Vale... ahora si juntas todos los archivos planos en un solo zip y con contraseña, te queda una archivo pequeño, manejable y +- seguro...

[jbrita]

Amigo prueba esto no lo he provado.

static function fpBackup()
*------------------------
Local cArqBkp := FCreate( ('c:\systema\syschoapa\copiasql.bat' ), 0 )
Local cComando:='echo off'+CRLF
Fwrite( cArqBkp, cComando )
cComando:='mysqldump -u localhost -uroot -p pipepi elbaro>servidor.sql ' +CRLF
Fwrite( cArqBkp, cComando )
Fclose( cArqBkp )
winexec( 'copiasql.bat',.f. )
*bell( 8 )
msgstop( 'Backup Completado Com Sucesso','Atenção !!!' )
*Ferase( 'c:\systema\syschoapa\copiasql.bat' )

return .t.


STATIC FUNCTION BackupSql() //timysql


Local aSelect := oServer:ListTables() //{ "exi_suc", "exi_det" }
Local cFile := "softcontrol.sql"
Local lDrop := .t.
Local lOver := .t.
Local oDlgSql,nItem
Alert("paso")

*MSGRun( "Generando respaldo, espere por favor...",, {|oDlgsql| nItem := oServer:backup( aSelect, cFile, lDrop, lOver, oDlgsql )} )
RETURN NIL

Saludos

[sysctrl2]

Paco , yo lo hago a la antiguita, nunca falla:

rem : para respaldar toda la tabla:

MySqlDump -uLocalHost -uroot -psysctrl2 ScSat>ScSatres.sql

rem : para respaldar una tabla nadamas:
MySqlDump -uLocalHost -uroot -psysctrl2 ScSat facturas>facturasres.sql

scsat es el contenedor.

un archivo por lotes quedaria asi:

Code: Select all  Expand view  RUN

del *.sql
del scsat.rar

MySqlDump -uLocalHost -uroot -psysctrl2 ScSat>ScSatres.sql

rar a scsat.rar *.sql

el RAR.EXE viene en la carpeta donde se instala el WINRAR: C:\ARCHIVOS DE PROGRAMA\WINRAR.

SALUDOS..

[Francisco Horta]

gracias a todos
hare pruebas y les comento...
salu2
paco

[Francisco Horta]

Bueno, pues ya quedo listo el respaldo de la base de datos completa ...
gracias a todos por su apoyo
saludos
paco

[Ariel]

Paco,
comparte como lo has hecho, por favor... gracias.
Salu2, Ariel.

[Francisco Horta]

Ariel, y a todos aqui esta como lo hice:

Code: Select all  Expand view  RUN

#define FO_READWRITE  2
#define FO_SHARED    64
#define FS_END        2

METHOD Respaldo( pnBak ) CLASS TAuditoria
LOCAL oDls, cText := "", oBtnB
LOCAL cFile := "baksql.bat"
LOCAL cComando := 'echo off' + CRLF

   FErase( cFile )

   if !FILE( cFile )

      nHand := FCreate( cFile )
      FWrite(nHand, cComando )
      FClose(nHand)

      IF pnBak == 0     //  Respaldo Antes de la Auditoria
         cText := "Espere un momento... Efectuando Respaldo Primario !!"
         cComando := 'mysqldump -u localhost -uroot -ppass123 elperico > .\Backup\antes_elpericoservidor_' + ;
                                                                        DTOS(FechaServer()) + '_' + ;
                                                                        LEFT(HoraServer(),2) + ;
                                                                        SUBS(HoraServer(),4,2) + ;
                                                                        '.sql ' + CRLF
      ELSEIF pnBak == 1
         cText := "Espere un momento... Efectuando Respaldo Secundario !!"
         cComando := 'mysqldump -u localhost -uroot -ppass123 elperico > .\Backup\despues_elpericoservidor_' + ;
                                                                        DTOS(FechaServer()) + '_' + ;
                                                                        LEFT(HoraServer(),2) + ;
                                                                        SUBS(HoraServer(),4,2) + ;
                                                                        '.sql ' + CRLF
      ENDIF

      hCambios := FOpen( cFile, FO_READWRITE + FO_SHARED )
      FSeek( hCambios, 0, FS_END)
      FWrite( hCambios, cComando )
      FClose(nHand)

   endif

   DEFINE DIALOG oDls RESOURCE "DLG_AVISO" TITLE "El Perico Ferretera Backup ..."

      REDEFINE SAY PROMPT cText ID 100 OF oDls FONT ::oFont[2]
      REDEFINE BUTTONBMP oBtnB  ID 101 OF oDls

   ACTIVATE DIALOG oDls CENTERED NOWAIT ;
            ON INIT oBtnB:Hide()

   WINEXEC( cFile, .f. )

   oDls:End()

   FErase( cFile )

RETURN( SELF )
 

FWH + MySql + TMySQL
saludos
paco

[MarioG]

Acá dejaron otra opción:
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=23485&hilit=backup+mysql

Saludos