没有合适的资源?快使用搜索试试~ 我知道了~
VB备份还原数据库
5星 · 超过95%的资源 需积分: 2 174 下载量 70 浏览量
2007-06-09
15:00:01
上传
评论
收藏 3KB TXT 举报
温馨提示
试读
3页
VB备份还原数据库
资源推荐
资源详情
资源评论
一、数据备份
备份有两中形式完全备份和差异备份
完全备份:是对数据库进行完整备份,周期比较长,如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
备份有两中形式完全备份和差异备份
完全备份:是对数据库进行完整备份,周期比较长,如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
资源评论
- rfly9992013-06-27可以参考的东西
- gewen_19882015-07-10提供了一个思路,感谢分享
- lengyff2019-01-19非常感谢提供资源。
- jiangchaolang2018-08-06提供了一个思路,感谢分享!
- bb123and4562014-06-06相对简单了。
hackwolf2007
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功