VB6_SQL数据库备份模块

fieldmax

1. 
   
2. '*************************************************************************
   
3. '**模 块 名：fBackupDatabase_a
   
4. '**描    述：备份数据库,返回出错信息,正常恢复,返回""
   
5. '**调    用：fBackupDatabase_a "备份文件名","数据库名"
   
6. '**参数说明：
   
7. '**          sBackUpfileName  恢复后的数据库存放目录
   
8. '**          sDataBaseName    备份的数据名
   
9. '**          sIsAddBackup     是否追加到备份文件中
   
10. '**说    明：引用Microsoft ActiveX Data Objects 2.x Library
    
11. '**创 建 人：邹建
    
12. '**日    期：2003年12月09日
    
13. '*************************************************************************
    
14. Public Function fBackupDatabase_a(ByVal sBackUpfileName$ _
    
15.                                 , ByVal sDataBaseName$ _
    
16.                                 , Optional ByVal sIsAddBackup As Boolean = False _
    
17.                                 ) As String
    
18. 
    
19.     Dim iDb As ADODB.Connection
    
20.     Dim iConcStr$, iSql$, iReturn$
    
21. 
    
22.     On Error GoTo lbErr
    
23. 
    
24.     '创建对象
    
25.     Set iDb = New ADODB.Connection
    
26. 
    
27.     '连接数据库服务器,根据你的情况修改连接字符串
    
28.     iConcStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=zj"
    
29.     iDb.Open iConcStr
    
30. 
    
31.     '生成数据库备份语句
    
32.     iSql = "backup database [" & sDataBaseName & "]" & vbCrLf & _
    
33.             "to disk='" & sBackUpfileName & "'" & vbCrLf & _
    
34.             "with description='" & "zj-backup at:" & Date & "(" & Time & ")'" & vbCrLf & _
    
35.             IIf(sIsAddBackup, "", ",init")
    
36. 
    
37.     iDb.Execute iSql
    
38.     GoTo lbExit
    
39. 
    
40. lbErr:
    
41.     iReturn = Error
    
42. lbExit:
    
43.     fBackupDatabase_a = iReturn
    
44. End Function
    
45. 
    
46. '*************************************************************************
    
47. '**模 块 名：frestoredatabase_a
    
48. '**描    述：恢复数据库,返回出错信息,正常恢复,返回""
    
49. '**调    用：frestoredatabase_a "备份文件名","数据库名"
    
50. '**参数说明：
    
51. '**          sDataBasePath  恢复后的数据库存放目录
    
52. '**          sBackupNumber  是从那个备份号恢复
    
53. '**          sReplaceExist  指定是否覆盖已经存在的数据
    
54. '**说    明：引用Microsoft ActiveX Data Objects 2.x Library
    
55. '**创 建 人：邹建
    
56. '**日    期：2003年12月09日
    
57. '*************************************************************************
    
58. Public Function fRestoreDatabase_a(ByVal sBackUpfileName$ _
    
59.                                 , ByVal sDataBaseName$ _
    
60.                                 , Optional ByVal sDataBasePath$ = "" _
    
61.                                 , Optional ByVal sBackupNumber& = 1 _
    
62.                                 , Optional ByVal sReplaceExist As Boolean = False _
    
63.                                 ) As String
    
64. 
    
65.     Dim iDb As ADODB.Connection, iRe As ADODB.Recordset
    
66.     Dim iConcStr$, iSql$, iReturn$, iI&
    
67. 
    
68.     On Error GoTo lbErr
    
69. 
    
70.     '创建对象
    
71.     Set iDb = New ADODB.Connection
    
72.     Set iRe = New ADODB.Recordset
    
73. 
    
74.     '连接数据库服务器,根据你的情况修改连接字符串
    
75.     iConcStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=zj"
    
76.     iDb.Open iConcStr
    
77. 
    
78.     '得到还原后的数据库存放目录,如果没有指定,存放到SQL SERVER的DATA目录
    
79.     If sDataBasePath = "" Then
    
80.         iSql = "select filename from master..sysfiles"
    
81.         iRe.Open iSql, iDb, adOpenKeyset, adLockReadOnly
    
82.         iSql = iRe(0)
    
83.         iRe.Close
    
84.         sDataBasePath = Left(iSql, InStrRev(iSql, "\"))
    
85.     End If
    
86. 
    
87.     '检查数据库是否存在
    
88.     If sReplaceExist = False Then
    
89.         iSql = "select 1 from master..sysdatabases  where name='" & sDataBaseName & "'"
    
90.         iRe.Open iSql, iDb, adOpenKeyset, adLockReadOnly
    
91.         If iRe.EOF = False Then
    
92.             iReturn = "数据库已经存在!"
    
93.             iRe.Close
    
94.             GoTo lbExit
    
95.         End If
    
96.         iRe.Close
    
97.     End If
    
98. 
    
99.     '关闭用户进程,防止其它用户正在使用数据库,导致数据恢复失败
    
100.     iSql = "select spid from master..sysprocesses where dbid=db_id('" & sDataBaseName & "')"
     
101.     iRe.Open iSql, iDb, adOpenKeyset, adLockReadOnly
     
102.     While iRe.EOF = False
     
103.         iSql = "kill " & iRe(0)
     
104.         iDb.Execute iSql
     
105.         iRe.MoveNext
     
106.     Wend
     
107.     iRe.Close
     
108. 
     
109.     '获取数据库恢复信息
     
110.     iSql = "restore filelistonly from disk='" & sBackUpfileName & "'" & vbCrLf & _
     
111.         "with file=" & sBackupNumber
     
112.     iRe.Open iSql, iDb, adOpenKeyset, adLockReadOnly
     
113. 
     
114.     '生成数据库恢复语句
     
115.     iSql = "restore database [" & sDataBaseName & "]" & vbCrLf & _
     
116.         "from disk='" & sBackUpfileName & "'" & vbCrLf & _
     
117.         "with file=" & sBackupNumber & vbCrLf
     
118.     With iRe
     
119.         While Not .EOF
     
120.             iReturn = iRe("PhysicalName")
     
121.             iI = InStrRev(iReturn, ".")
     
122.             iReturn = IIf(iI = 0, "", Mid(iReturn, iI)) & "'"
     
123.             iSql = iSql & ",move '" & iRe("LogicalName") & _
     
124.                     "' to '" & sDataBasePath & sDataBaseName & iReturn & vbCrLf
     
125.             .MoveNext
     
126.         Wend
     
127.         .Close
     
128.     End With
     
129.     iSql = iSql & IIf(sReplaceExist, ",replace", "")
     
130. 
     
131.     iDb.Execute iSql
     
132.     iReturn = ""
     
133.     GoTo lbExit
     
134. 
     
135. lbErr:
     
136.     iReturn = Error
     
137. lbExit:
     
138.     fRestoreDatabase_a = iReturn
     
139. End Function
     

复制代码