利用VB進行SQL2000的數據備份和恢復

　　一備份有兩中形式完全備份和差異備份
　　
　　完全備份是對數據庫進行完整備份周期比較長如周等
　　
　　差異備份是對更新備份的數據進行備份周期比較短如小時
　　
　　命令介紹 Backup Database [數據庫名] To Disk=[保存路徑和名稱] With [其他屬性]
　　
　　代碼注釋ServerIP :SQLServer所在機器的 IP
　　jtsg:SQLServer中數據的名稱
　　
　　Public Cn As ADODBConnection
　　Set Cn = New ADODBConnection
　　strcon = Provider=SQLOLEDB;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=jtsg;Data Source= + ServerIp + ; + _
　　use procedure for prepare=;auto translate=true; + _
　　use encryption for data=false;tag with column collation when possible=false
　　CnConnectionString = strcon
　　On Error Resume Next
　　CnOpen
　　If CnErrorsCount > Then
　　For i = To CnErrorsCount
　　If CnErrors(i)Number = Then
　　MsgBox 網絡不通或服務器未開請確認後再試 vbOKOnly + vbInformation 提醒
　　Unload Me
　　Exit Sub
　　Exit For
　　End If
　　Next i
　　End If
　　
　　二完全備份
　　
　　Private Sub BackupAll()
　　CnExecute backup database jtsg to disk= + AppPath + \backup\myjtsgallbak with name=jtsg backup alldescription=Full Backup Of jtsg
　　MsgBox 數據完全備份已經完成 vbOKOnly + vbInformation 提醒
　　End Sub
　　
　　三差異備份
　　
　　Private Sub BackupDif()
　　CnExecute backup database jtsg to disk= + AppPath + \backup\myjtsgdifbak with differential noinitname=jtsg backup difdescription=Differential Backup Of jtsg
　　MsgBox 數據差異備份已經完成 vbOKOnly + vbInformation 提醒
　　End Sub
　　
　　四數據恢復
　　
　　數據恢復問題很多要區分用戶的備份形式一般備份的默認形式是 Append to media即添加到備份設備已有內容後面前面介紹的備份方式就這種還有一種備份形式是 OverWrite即覆蓋設備原有內容這兩中備份形式決定恢復的方式也不一樣
　　
　　命令介紹 Restore Database [數據庫名] From [保存備份的路徑和名稱] With[其他屬性]
　　
　　在其他屬性中重點介紹File NORECOVERY和 RECOVERY
　　
　　FILE
　　這是不同備份形式的重要參數用來指定從設備上的第幾個備份中恢復比如采用APPEND形式備份作了兩次備份恢復第一個備份時應該在恢復命令中使用FILE=恢復第二個備份時則使用FILE=的選項
　　當然如果備份形式是OVERWRITE備份中就只有一次備份所以使用 FILE=的選項
　　
　　RECOVERY
　　如果使用RECOVERY選項那麼恢復完成後SQLSERVER回滾被恢復數據庫中所有未完成的事務以保證數據庫的一致性在恢復後用戶就可以訪問數據庫所以RECOVERY用來恢復最後一個備份NORECOVERY則相反默認為RECOVERY
　　
　　代碼解釋還原備份的文件可以選擇完全備份和差異備份
　　Private Sub RestoreData()
　　CnExecute restore database jtsg from disk= + AppPath + \backup\myjtsgallbak with FILE=
　　MsgBox 數據恢復已經完成 vbOKOnly + vbInformation 提醒
　　End Sub
From:http://tw.wingwit.com/Article/program/SQLServer/201311/22078.html