知识大全利用VB进行SQL2000的数据备份和恢复

Posted 2022-07-15 知

篇首语：愿你纵踩淤泥，也要心向光明。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全利用VB进行SQL2000的数据备份和恢复相关的知识，希望对你有一定的参考价值。

利用VB进行SQL2000的数据备份和恢复 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 一备份有两中形式完全备份和差异备份　　　　完全备份是对数据库进行完整备份周期比较长如周等　　　　差异备份是对更新备份的数据进行备份周期比较短如小时　　　　命令介绍 Backup Database [数据库名] To Disk=[保存路径和名称] With [其他属性]　　　　代码注释 ServerIP :SQLServer所在机器的 IP　　jtsg:SQLServer中数据的名称　　　　Public Cn As ADODB Connection　　Set Cn = New ADODB Connection　　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 　　Cn ConnectionString = strcon　　On Error Resume Next　　Cn Open　　If Cn Errors Count > Then　　For i = To Cn Errors Count 　　If Cn Errors(i) Number = Then　　MsgBox 网络不通或服务器未开请确认后再试 vbOKOnly + vbInformation 提醒　　Unload Me　　Exit Sub　　Exit For　　End If　　Next i　　End If　　　　 二完全备份　　　　Private Sub BackupAll()　　Cn Execute backup database jtsg to disk= + App Path + \\backup\\myjtsgall bak with name= jtsg backup all description= Full Backup Of jtsg 　　MsgBox 数据完全备份已经完成 vbOKOnly + vbInformation 提醒　　End Sub　　　　 三差异备份　　　　Private Sub BackupDif()　　Cn Execute backup database jtsg to disk= + App Path + \\backup\\myjtsgdif bak with differential noinit name= jtsg backup dif description= 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()　　Cn Execute restore database jtsg from disk= + App Path + \\backup\\myjtsgall bak with FILE= 　　MsgBox 数据恢复已经完成 vbOKOnly + vbInformation 提醒　　End Sub cha138/Article/program/SQLServer/201311/22078

知识大全 利用VB进行SQL2000的数据备份和恢复

知识大全利用VB进行SQL2000的数据备份和恢复