Question

vb 求sql备份还原例子

我在学习如何做sql数据库备份还原，书上配套的光盘里面有程序,但是不提供源代码...
我没做过,请各位做过大侠把思路或者最好有源代码发给我,也给正在学习的朋友们一同学习学习,谢谢!

样式图片这里有！
http://www.vbgood.com/viewthread.php?tid=79704&extra=page%3D1

我的邮箱是：241952914@qq.com
源代码发到邮箱再给50分
sql数据库，不是access

Answer 1

Private Sub mnuDBBackUp_Click() '------------------备份数据库
Dim cnbak As New ADODB.Connection
If cnbak.State <> 0 Then cnbak.Close
cnbak.Open "provider=sqloledb;server=" & strSQLServer & ";user id=" & strSQLUser & ";password=" & strSQLPW
Dim backupSQL As String
backupSQL = "USE master " + Chr(10) + Chr(13)
backupSQL = backupSQL & "exec sp_addumpdevice 'disk','bak1'," & "'" & App.Path & "\bak1.bak" & "'"'bak1为备份设备
backupSQL = backupSQL + Chr(10) + Chr(13) + "BACKUP DATABASE SuperMarketdb TO bak1 WITH INIT"
cnbak.Execute backupSQL
MsgBox "数据库备份成功!", vbInformation
cnbak.Close
Set cnbak = Nothing
End Sub

Private Sub mnuDBResume_Click() '-------------------还原数据库
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
If Dir(App.Path & "\bak1.bak") <> vbNullString Then
If cnMain.State <> 0 Then cnMain.Close
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & strSQLUser & ";Password=" & strSQLPW & ";Initial Catalog=master;Data Source=" & strSQLServer '借助master数据库来恢复strSQLUser是SQL登录名，Password是密码，strSQLServer是服务器名
cn.CursorLocation = adUseClient
cn.Open
rs.Open "select spid from sysprocesses where dbid=db_id('SuperMarketdb')", cn
Do While Not rs.EOF
cn.Execute "kill " & rs("spid") '杀掉sql服务器的所有连接，否则会出现：数据库正在使用，无法完成排它操作等等，很重要
rs.MoveNext
Loop
cn.Execute ("restore database SuperMarketdb from disk='" & App.Path & "\bak1.bak" & "' with replace")
cn.Close
cnMain.Open "Provider=SQLOLEDB.1;User ID=" & strSQLUser & ";Password=" & strSQLPW & ";Initial Catalog=master;Data Source=" & strSQLServer
MsgBox "数据库恢复成功!", vbInformation
Else
MsgBox "请先备份数据库！", vbInformation, "提示:"
End If
Set cn = Nothing
End Sub

Answer 2

建立一个access数据库,备份的时候把数据写入到access,还原的时候,读取access数据库,先删除sql中的数据,再写入