中华网通行证
用户名 密码

利用VB进行SQL2000的数据备份和恢复
中华网科技 http://tech.china.com 2005-06-16 13:30:54
进入BBS】【进入聊天室】【 推荐给朋友 】【浏览字号: 】【关闭窗口

  一、数据备份
  
  备份有两中形式完全备份和差异备份
  
  完全备份:是对数据库进行完整备份,周期比较长,如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 + "backupmyjtsgall.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 + "backupmyjtsgdif.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 + "backupmyjtsgall.bak‘ with FILE=1"
  MsgBox "数据恢复已经完成", vbOKOnly + vbInformation, "提醒"
  End Sub
  

50款最具性价比数码相机/MP3推荐!
作者:csdn/gagafly 来源: 

发表言论:
笔  名:
查看评论
﹣相关报道
初学者必知:VB10个小编程 (2005-05-30 16:19:35)

﹣精彩回顾
·揭秘越南姑娘的“性契约”(组图)
·中国研制成功银河麒麟操作系统
·近处偷拍野狮性爱 野草丛中见柔情(图)
·难得一见“水下分娩”全程跟拍(组图)
·古代性器具及性惩罚工具(组图)
·揭密中外历史上乱伦的名人们(组图)
·探秘世界各地诡异的干尸新娘(组图)
·隋唐两个王朝的九大著名"绿帽子"(组图)
·另类的惨烈:螳螂血战壁虎谁更凶猛(图)
·一分钟平静死去 注射死刑全过程(图)

进入BBS】【进入聊天室】【 推荐给朋友 】【浏览字号: 】【关闭窗口

潮流·时尚
·市场上的天价手机全搜罗
·一周降幅最大手机导购
·FM调频收音功能手机选购
·索尼爱立信三新机曝光
·诺基亚N73音乐版精品赏
·热门便携笔记本搜索导购
·近期最新上市机型大盘点
·矩阵Matrix鼠标垫细评测
·19寸20寸22寸液晶该买谁
·近期几款热卖MP3大推荐
·四大即将退市经典MP3选购
·06年最火七大DC缺点曝光
·六百万像素超值机型推荐
·诺基亚推出随身小音箱
·LG直板巧克力KG99评测
·MOTO新机即将国内上市
·超低价蓝牙手机导购
·130万像素一样拍出好照片
·诺基亚两款蓝牙耳机新品
·索爱纯美折叠机Z558评测

软件下载
·豪杰大眼睛 V2.5
·Foxmail V6.5
·天网防火墙Athena
·极品五笔 V6.8
·PPS网络电视
·超级兔子魔法设置
中华网搜索
站内搜索
全网搜索




热门搜索
耳机 印刷 手机 拖鞋
减速机 钟表 成人用品
减肥 枸杞 T恤 升降机
心理 健康 彩票 招聘
礼品 旅游 猎头 培训

产品服务
·机会!机会不容错过
·中华商机,搜索创新
·准确快捷,搜你所搜
·¥来¥往,尽在中华邮
·中华搜索,贴心搜索




科技频道主编信箱