'′*************************************************************************
'′**模 块 名：fBackupDatabase_a
'′**描    述：备份数据库,返回出错信息,正常恢复,返回""
'′**调    用：fBackupDatabase_a "备份文件名","数据库名"
'′**参数说明：
'′**          sBackUpfileName  恢复后的数据库存放目录
'′**          sDataBaseName    备份的数据名
'′**          sIsAddBackup     是否追加到备份文件中
'′**说    明：引用Microsoft ActiveX Data Objects 2.x Library
'′*************************************************************************
Public Function fBackupDatabase_a(ByVal sBackUpfileName$ _
                                , ByVal sDataBaseName$ _
                                , Optional ByVal sIsAddBackup As Boolean = False _
                                ) As String
                               
    Dim iDb As ADODB.Connection
    Dim iConcStr$, iSql$, iReturn$
   
    On Error GoTo lbErr
   
   ' ′创建对象
    Set iDb = New ADODB.Connection
   
    '′连接数据库服务器 , 根据你的情况修改连接字符串
    iConcStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=(local)"
    iDb.Open iConcStr
   
    '′生成数据库备份语句
    iSql = "backup database [" & sDataBaseName & "]" & vbCrLf & _
            "to disk='" & sBackUpfileName & "'" & vbCrLf & _
            "with description='" & "zj-backup at:" & Date & "(" & Time & ")'" & vbCrLf & _
            IIf(sIsAddBackup, "", ",init")
           
    iDb.Execute iSql
    MsgBox "备份成功!", , "提示"
    GoTo lbExit
   
lbErr:
    iReturn = Error
lbExit:
    fBackupDatabase_a = iReturn
End Function

'′*************************************************************************
'′**模 块 名：frestoredatabase_a
'′**描    述：恢复数据库,返回出错信息,正常恢复,返回""
'′**调    用：frestoredatabase_a "备份文件名","数据库名"
'′**参数说明：
'′**          sDataBasePath  恢复后的数据库存放目录
'′**          sBackupNumber  是从那个备份号恢复
'′**     &n