FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Backup mysql...
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Backup mysql...
Posted: Thu Feb 09, 2012 10:36 PM

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

____________________

Paco
Posts: 401
Joined: Thu Oct 06, 2005 10:15 PM
Re: Backup mysql...
Posted: Thu Feb 09, 2012 11:16 PM

Si usas la tDolphin, esta tiene unas funciones para esto :)

Saludos,



Pablo Alberto Vidal

/*

------------------------------------------------------

Harbour 3.2.0, Fivewin 17.02, BCC7

------------------------------------------------------

*/
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Backup mysql...
Posted: Fri Feb 10, 2012 12:33 AM
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 (fw): Select all Collapse
// 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
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: Backup mysql...
Posted: Fri Feb 10, 2012 07:39 PM

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

____________________

Paco
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: Backup mysql...
Posted: Fri Feb 10, 2012 08:11 PM

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

____________________

Paco
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Backup mysql...
Posted: Sat Feb 11, 2012 12:59 AM

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...

;)

Posts: 537
Joined: Mon Jan 16, 2006 03:42 PM
Re: Backup mysql...
Posted: Sat Feb 11, 2012 01:51 AM

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

Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: Backup mysql...
Posted: Sat Feb 11, 2012 09:23 PM
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 (fw): Select all Collapse
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..
Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: Backup mysql...
Posted: Wed Feb 15, 2012 05:23 PM

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

____________________

Paco
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: Backup mysql... (SOLUCIONADO)
Posted: Tue Feb 21, 2012 07:45 PM

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

____________________

Paco
Posts: 389
Joined: Wed Nov 29, 2006 01:51 PM
Re: Backup mysql...
Posted: Tue Feb 21, 2012 10:37 PM

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

Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: Backup mysql...
Posted: Tue Feb 21, 2012 11:48 PM
Ariel, y a todos aqui esta como lo hice:
Code (fw): Select all Collapse
#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
____________________

Paco
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Backup mysql...
Posted: Fri Feb 24, 2012 12:08 PM
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Continue the discussion