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
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
Si usas la tDolphin, esta tiene unas funciones para esto ![]()
// 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 tabla1Pablo 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
willi, ya funcionaa,, no respalda sobre unidades virtuales...
gracias
paco
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...
![]()
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
del *.sql
del scsat.rar
MySqlDump -uLocalHost -uroot -psysctrl2 ScSat>ScSatres.sql
rar a scsat.rar *.sqlgracias a todos
hare pruebas y les comento...
salu2
paco
Bueno, pues ya quedo listo el respaldo de la base de datos completa ...
gracias a todos por su apoyo
saludos
paco
Paco,
comparte como lo has hecho, por favor... gracias.
Salu2, Ariel.
#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 )