转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 软件开发 >> VB.NET程序 >> 正文
利用VB进行SQL2000的数据备份和恢复         ★★★★

利用VB进行SQL2000的数据备份和恢复

作者:闵涛 文章来源:闵涛的学习笔记 点击数:681 更新时间:2009/4/23 15:03:32

 

一、数据备份

  备份有两中形式完全备份和差异备份

  完全备份:是对数据库进行完整备份,周期比较长,如1周等

  差异备份:是对更新备份的数据进行备份,周期比较短,如1小时

  命令介绍: Backup Database [数据库名] To Disk=[保存路径和名称] With [其他属性]


  代码注释:ServerIP SQLServer所在机器的 IP
       jtsgSQLServer中数据的名称

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


[VB.NET程序]浅谈用VB6.0编写“特洛伊木马”程序  
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台