库恢复语句
iSql = "restore database [" & sDataBaseName & "]" & vbCrLf & _
"from disk=''''" & sBackUpfileName & "''''" & vbCrLf & _
"with file=" & sBackupNumber & vbCrLf
With iRe
While Not .EOF
iReturn = iRe("PhysicalName")
iI = InStrRev(iReturn, ".")
iReturn = IIf(iI = 0, "", Mid(iReturn, iI)) & "''''"
iSql = iSql & ",move ''''" & iRe("LogicalName") & _
"'''' to ''''" & sDataBasePath & sDataBaseName & iReturn & vbCrLf
.MoveNext
Wend
.Close
End With
iSql = iSql & IIf(sReplaceExist, ",replace", "")
iDb.Execute iSql
iReturn = ""
GoTo lbExit
lbErr:
iReturn = Error
lbExit:
fRestoreDatabase_a = iReturn
End Function
上一页 [1] [2] |
