用VB如何备份和还原SQL Server数据库????

2003-01-20 04:33:58 73 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

在vb.net中使用程序备份sql server数据库在界面上使用button按钮触发备份过程如下： Private Sub Button_backup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_backup.Click 执行备份过程 Try‘备份数据库 Me.backupDb() 阅读详情

...全文

用VB备份和恢复SQLServer数据库的方法对于关键应用的数据库学习应根据具体环境和条件制订一个完善可行确保系统安全的备份计划,没有备份的系统是不可靠、危险的，后果将是严重的，破坏性病毒、误操作、自然灾害等等都可能会对数据库系统造成难以估量的破坏。尤其对一个信息化程度较高的企业来说，最有价值的财产或许就是企业数据库中的数据。一个系统中最重要的是大量的实时数据,没有备份功能显然是不安全和不完善的。经过实践摸索出Visual Basic 6 阅读详情

cjwcyc

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

xks 2003-03-25

打赏
举报

Dim cn As New ADODB.Connection
Dim s_path, s_dataexport As String
s_path = App.path
Me.MousePointer = 11
s_dataexport = "backup database database_name to disk='" + s_path + "\backup\" + Format(Now(), "YY-MM-DD") + userinfo.Depname + "backup.dat'"
cn.Open gs_conn_string
cn.BeginTrans
cn.Execute s_dataexport
Err.Number = 0
If Err.Number = 0 Then
cn.CommitTrans
MsgBox "数据备份成功！", vbInformation, "提示"
Else
cn.RollbackTrans
MsgBox "数据备份失败！", vbCritical, "提示"
End If
cn.Close
Set cn = Nothing
Me.MousePointer = 1

Dim ret As Integer
If Text1.Text = "" Then
MsgBox "请选择要恢复的数据文件！", vbInformation, "提示"
Exit Sub
Else
ret = MsgBox("数据恢复操作将会覆盖以前的所有数据并且覆盖后无法恢复，您确定要进行恢复操作吗？", vbQuestion + vbOKCancel + "提示")
If ret = vbOK Then
Me.MousePointer = 11
Dim cn As New ADODB.Connection
Dim s_restore As String
'Debug.Print gs_conn_string
'此时需要连接master数据库才能完成数据恢复操作
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=7;Initial Catalog=master;Data Source=127.0.0.1 "
'同上student1为需要恢复的数据库
s_restore = "restore database student1 from disk='" + Trim(Text1.Text) + "'"
'text1一个用于记录需要恢复文件的地址的textbox
cn.Execute s_restore
cn.BeginTrans
If Err.Number = 0 Then
cn.CommitTrans
MsgBox "数据恢复成功！", vbInformation, "提示"
Else
cn.RollbackTrans
MsgBox "数据恢复失败！", vbCritical, "提示"
End If
cn.Close
Set cn = Nothing
Me.MousePointer = 1
Else
Exit Sub
End If
End If

jiang_nan 2003-01-20

打赏
举报

建议备份文件的文件名带上当时的系统日期：db & format("yyyy-mm-dd",date) & "-" & format("hh-mm-ss",time)

nik_Amis 2003-01-20

打赏
举报

sSQL = "RESTORE DATABASE " & sDatabaseName & " FROM DISK=" & Wrap(sDatabaseFile) & " WITH REPLACE "
sSQL = "BACKUP DATABASE " & sDatabaseName & " TO DISK=" & Wrap(sDatabaseFile) & " WITH INIT"

maoqingfeng 2003-01-20

打赏
举报

用 backup restore sql语句

antshome 2003-01-20

打赏
举报

强烈建议参考SQLDMO的例子，在SQL 2000安装盘里DEVTOOLS\SAMPLES\目录下

用VB如何备份和还原SQL Server数据库????

相关推荐