Backup/Restore MySQL data when build BAT file

[richard-service]

Hi All
I use this code below:

Code: Select all  Expand view  RUN

 
METHOD RunDatabaseBackup() CLASS TWinCraneErp
LOCAL fp
LOCAL chost      := GetServer()
LOCAL names      := 'utf8'
LOCAL nport      := 3306
LOCAL db         := GetLoginDataBase()
LOCAL cDriver    := CurDrive()
LOCAL cDriverDir := GetCurDir()
LOCAL cdir       := cDriverDir + "\BackUpData\"      // cDriver + ":\" + cDriverDir + "\BackUpData\"
LOCAL cfile      := 'BackupDatabase.sql'

          fp:=FCREATE("bak.bat")
      WRITE(fp,"@ECHO OFF")
          FWRITE(fp,CRLF+"mysqldump.exe --host "+AllTrim(chost)+" --default-character-set="+names+" --port="+cvaltochar(nport)+" -u root -p1234 "+AllTrim(db)+" > "+alltrim(cdir)+iif(right(alltrim(cdir),1)=="\","","\")+alltrim(cFile))
          FCLOSE(fp)
          WaitRun("call bak.bat",0)

RETURN NIL

WaitRun("call bak.bat",0) => run it not work. If I windows file work fine.
Any solution be welcome!!

[Horizon]

Hi Richard,

Can you try it without "call"

WaitRun("bak.bat",0)

[Marc Vanzegbroeck]

Richard,

I use ShellExecute.
In your case it will be someting like this :

Code: Select all  Expand view  RUN

ShellExecute( 0, 'OPEN', "cmd" ,"/c .\mysqldump.exe --host "+AllTrim(chost)+" --default-character-set="+names+" --port="+cvaltochar(nport)+" -u root -p1234 "+AllTrim(db)+" > "+alltrim(cdir)+iif(right(alltrim(cdir),1)=="\","","\")+alltrim(cFile), , 1 )

[richard-service]

Hi Richard,

Can you try it without "call"

WaitRun("bak.bat",0)

HI Hakan,

You're right, work fine.
Thaks a lot.

[richard-service]

Richard,

I use ShellExecute.
In your case it will be someting like this :

Code: Select all  Expand view  RUN

ShellExecute( 0, 'OPEN', "cmd" ,"/c .\mysqldump.exe --host "+AllTrim(chost)+" --default-character-set="+names+" --port="+cvaltochar(nport)+" -u root -p1234 "+AllTrim(db)+" > "+alltrim(cdir)+iif(right(alltrim(cdir),1)=="\","","\")+alltrim(cFile), , 1 )

Hi Marc,
you suggestion it and work fine.
Thanks a lot.

[nageswaragunupudi]

FWH oCn:BackUp() is simple to use and works fast and well.

[richard-service]

FWH oCn:BackUp() is simple to use and works fast and well.

Mr.Rao,

Yes, I think so. But now I use TMySQL 3rd
I have a idea. I can use TMySQL and FWH MariaDb/MySql Backup and Restore Together run it?

Code: Select all  Expand view  RUN

//TMySQL

     oServer:= TMySQLServer():New( GetServer(), GetLoginId(), GetLoginPass() )
     IF oServer:NETERR()
         oServer:End()
         oServer:= TMySQLServer():New( GetServer(), "mysql", "" )
         IF oServer:NETERR()
            MsgStop( "MySQL伺服器未開或者伺服器有防火牆或網路不通！", "停止" )
            lOK := .F.
            RETURN lOK
         ELSE
            MsgStop( "MySQL伺服器已有啟動中,但有其它問題導致無法連上！", "停止" )
            lOK := .F.
            RETURN lOK
         ENDIF
      ENDIF
      cLoginTable := GetLoginDataBase()
      oServer:SelectDB(cLoginTable)

//FWH MariaDb/MySql Backup and Restore

   oCn := mysql_Connect( cHost, cUsr, cPsw)
   ? cResult:=oCn:Backup('prova','c:\pp\prova.sql')
   ? oCn:Restore("c:\pp\prova.sql",NIL,NIL,"prueba")
 

[nageswaragunupudi]

I can use TMySQL and FWH MariaDb/MySql Backup and Restore Together run it?

Yes, you can.

In fact you can use FWH mariadb functionality in addition to TMySql in your programs without any conflict with TMySql.

Your above program works.

However you can totally simplify the backup program and run it silently in the nights as a scheduled task and forget about it.

[nageswaragunupudi]

You can use a simple program like this:

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   local oCn
   local cBackUpFolder  := "c:\pp\"  // should end with a backslash
   
   FWCONNECT oCn HOST GetServer() USER GetLoginId() PASSWORD GetLoginPass() DATABASE GetLoginDataBase()
   if oCn == nil
      FWLOG "Connect fail"
   else
      oCn:BackUp( nil, cBackUpFolder )
      oCn:Close()
      oCn   := nil
   endif
   
return nil

// functions like GetServer() etc.  

Make sure that the program does not contain any screen I/O.
Now add this to the scheduled tasks on the server (with user as SYSTEM) to run every night at your convenient time.

Assuming that your database name is "prova", this program will save backups each day in a different folder with weekday's name.
On Sunday night it saves backup as "c:\pp\Sunday\prova.sql". On Monday night it saves backup as "c:\pp\Monday\prova.sql" and so on. After one week, it overwrites that weekdays backup. This way we have 7 backups at any time.

[richard-service]

You can use a simple program like this:

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   local oCn
   local cBackUpFolder  := "c:\pp\"  // should end with a backslash
   
   FWCONNECT oCn HOST GetServer() USER GetLoginId() PASSWORD GetLoginPass() DATABASE GetLoginDataBase()
   if oCn == nil
      FWLOG "Connect fail"
   else
      oCn:BackUp( nil, cBackUpFolder )
      oCn:Close()
      oCn   := nil
   endif
   
return nil

// functions like GetServer() etc.  

Make sure that the program does not contain any screen I/O.
Now add this to the scheduled tasks on the server (with user as SYSTEM) to run every night at your convenient time.

Assuming that your database name is "prova", this program will save backups each day in a different folder with weekday's name.
On Sunday night it saves backup as "c:\pp\Sunday\prova.sql". On Monday night it saves backup as "c:\pp\Monday\prova.sql" and so on. After one week, it overwrites that weekdays backup. This way we have 7 backups at any time.

Mr.Rao
Nice good job. Try it and add my plan code.