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
// 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
del *.sql
del scsat.rar
MySqlDump -uLocalHost -uroot -psysctrl2 ScSat>ScSatres.sql
rar a scsat.rar *.sql
#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 )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 118 guests