'′*************************************************************************
'′**模 块 名: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