vbs实现MySQL备份与还原（mysqldump命令）

最新推荐文章于 2023-09-15 15:22:21 发布

suxiaoling@

最新推荐文章于 2023-09-15 15:22:21 发布

阅读量179

点赞数

分类专栏： vbs Mysql 文章标签： mysql 数据库 sql

本文链接：https://blog.csdn.net/weixin_42168040/article/details/128915561

版权

Mysql 同时被 2 个专栏收录

8 篇文章 1 订阅

订阅专栏

vbs

5 篇文章 0 订阅

订阅专栏

vbs实现MySQL备份与还原（mysqldump命令）

'*********************************
        '类：MysqlSync
        '类功能：mysql同步类：MySQL与工况同步
        '创建人：XXXX
        '日期：XXXX年XX月XX日
'*********************************
Class MysqlSync

    ' 备份根目录
    Private StrSqlFileName
    ' 数据库参数
    Private StrUserName,StrPassword,StrPort,StrHostIP,StrHostIP1
    
    Public Function Init(ObjConfig)
        ' 根目录参数
        StrSqlFileName = ObjConfig.StrSqlFileName
        ' 数据库参数
        StrUserName = ObjConfig.StrUserName
        StrPassword = ObjConfig.StrPassword
        StrPort = ObjConfig.StrPort
        StrHostIP = ObjConfig.StrHostIP1
        StrHostIP1 = ObjConfig.StrHostIP2
        
        ' 根目录文件初始化
        Dim ObjFileSys
        Set ObjFileSys=CreateObject("Scripting.FileSystemObject")' 创建FileSystemObject对象
        IF Not ObjFileSys.FolderExists(StrSqlFileName) Then
            ObjFileSys.CreateFolder(StrSqlFileName)
        End IF
        Set ObjFileSys = nothing
    End Function

    '
    ' 函数名：Fun_DelBackup
    ' 参数：sql文件名（即工况时间）
    ' 功能：删除MySQL备份
    '
    Public Function DelBackup(StrBackupName)
        Dim ObjFileSys
        Set ObjFileSys=CreateObject("Scripting.FileSystemObject")' 创建FileSystemObject对象
        Dim StrDelFile
        StrDelFile = StrSqlFileName&"\"&StrBackupName&".sql"
        IF ObjFileSys.FileExists(StrDelFile) Then
            msgbox ObjFileSys.DeleteFile(StrDelFile,True)
            DelBackup = True
        Else
            DelBackup = True
        End IF
    End Function

    '
    ' 函数名：AddBackup
    ' 参数：sql文件名
    '     错误信息（函数返回值）
    ' 功能：新增MySQL备份
    '
    Public Function AddBackup(StrBackupName,StsErrorMsg)
        Dim StrFileLoc    ' sql文件路径                                
        StrFileLoc = StrSqlFileName&"\"&StrBackupName&".sql"
        ' 判断文件是否存在
        Dim ObjFileSys
        Set ObjFileSys=CreateObject("Scripting.FileSystemObject")' 创建FileSystemObject对象
        IF ObjFileSys.FileExists(StrFileLoc) Then
            StsErrorMsg = "文件已存在"
            AddBackup = False
            Exit Function
        End IF
        Set ObjFileSys = Nothing
        On Error Resume Next
        Dim IntRes
        IntRes = 1'默认异常（非0表示异常）
        IntRes = CreateObject("WScript.Shell").Run ("cmd.exe /c mysqldump -u"&StrUserName&" -p"&StrPassword&"  --host="&StrHostIP&" -P"&StrPort&" -A --debug-info  >"&StrFileLoc,0,True)
        IF IntRes <> 0 Then
            IntRes = CreateObject("WScript.Shell").Run ("cmd.exe /c mysqldump -u"&StrUserName&" -p"&StrPassword&"  --host="&StrHostIP1&" -P"&StrPort&" -A --debug-info  >"&StrFileLoc,0,True)
            IF IntRes <> 0 Then
                AddBackup = False
                Exit Function
            End IF
        End IF
        AddBackup = True
    End Function

    '
    ' 函数名：RestoreBackup
    ' 参数：sql文件名
    '    错误信息（函数返回值）
    ' 功能：还原MySQL备份
    ' 
    Public Function RestoreBackup(StrBackupName,StsErrorMsg)
        Dim StrFileLoc    ' sql文件路径                    
        StrFileLoc = StrSqlFileName&"\"&StrBackupName&".sql"
        
        ' 判断文件是否存在
        Dim ObjFileSys
        Set ObjFileSys=CreateObject("Scripting.FileSystemObject")' 创建FileSystemObject对象
        IF not ObjFileSys.FileExists(StrFileLoc) Then
            StsErrorMsg = "文件不存在"
            RestoreBackup = False
            Exit Function
        End IF
        Set ObjFileSys = Nothing
        
        On Error Resume Next
        Dim IntRes
        IntRes = 1'默认异常（非0表示异常）
        IntRes = CreateObject("WScript.Shell").Run ("cmd.exe /c mysql -u"&StrUserName&" -p"&StrPassword&"  --host="&StrHostIP&" -P"&StrPort&"  foms<"&StrFileLoc,0,True)
        IF IntRes <> 0 Then
            IntRes = CreateObject("WScript.Shell").Run ("cmd.exe /c mysql -u"&StrUserName&" -p"&StrPassword&"  --host="&StrHostIP&" -P"&StrPort&"  foms<"&StrFileLoc,0,True)
            IF IntRes <> 0 Then
                RestoreBackup = False
                Exit Function
            End IF
        End IF
        RestoreBackup = True
    End Function

End Class