当前页面位置: » 丰搜网 » 文档中心 » 详细内容
利用vb进行sql2000的数据备份和恢复
一、数据备份
备份有两中形式完全备份和差异备份
完全备份：是对数据库进行完整备份，周期比较长，如1周等
差异备份：是对更新备份的数据进行备份，周期比较短，如1小时
命令介绍： backup database [数据库名] to disk=[保存路径和名称] with [其他属性]
代码注释：serverip :sqlserver所在机器的 ip
jtsg:sqlserver中数据的名称
public cn as adodb.connection
set cn = new adodb.connection
strcon = "provider=sqloledb.1;password=sa;persist security info=true;user id=sa;initial catalog=jtsg;data source=" + serverip + ";" + _
"use procedure for prepare=1;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 > 0 then
for i = 0 to cn.errors.count - 1
if cn.errors(i).number = -2147467259 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
1.file
这是不同备份形式的重要参数，用来指定从设备上的第几个备份中恢复，比如采用append形式备份，作了两次备份，恢复第一个备份时应该在恢复命令中使用“file=1”；恢复第二个备份时则使用“file=2”的选项。
当然如果备份形式是overwrite，备份中就只有一次备份，所以使用 file=1的选项；
2.recovery
如果使用recovery选项，那么恢复完成后，
sqlserver回滚被恢复
数据库中所有未完成的事务，以保证
数据库的一致性。在恢复后用户就可以访问
数据库。所以recovery用来恢复最后一个备份。norecovery则相反。默认为recovery。
代码解释：还原备份的文件可以选择，完全备份和差异备份
private sub restoredata()
cn.execute "restore database jtsg from disk='" + app.path + "\backup\myjtsgall.bak' with file=1"
msgbox "数据恢复已经完成", vbokonly + vbinformation, "提醒"
end sub
