********************************************************* '* 名称：BackupDatabase '* 功能：备份数据库 '* 控件：一个文本框和两个按钮（备份到和确定） '********************************************************* Public Sub BackupDatabase() Dim cn As New ADODB.Connection Dim s_path, s_dataexport As String s_path = App.Path Me.MousePointer = 11 '设置鼠标指针形状 'student1是需要备份的数据库名称 s_dataexport = "backup database student1 to disk='" + CommonDialog1.FileName + "'" cn.Open "driver={sql server};server=" & d1 & ";database=student1;persist security info=false; userid=sa" '数据库连接字符串 '这里不需要连接master数据库，即可完成备份 cn.BeginTrans cn.Execute s_dataexport Err.Number = 0 If Err.Number = 0 Then cn.CommitTrans MsgBox "数据备份成功！", vbInformation, "提示" MsgBox "数据备份文件存放路径:" & CommonDialog1.FileName, vbOKOnly, "提示" Unload Me Else cn.RollbackTrans MsgBox "数据备份失败！请检查数据库是否正在打开！", vbCritical, "提示" End If cn.Close Set cn = Nothing Me.MousePointer = 1 End Sub'********************************************************* '* 名称：RestoreDataBase '* 功能：还原数据库 '* 控件：一个文本框和两个按钮（ 打开和确定） '********************************************************* Public Sub RestoreDataBase() If Text1.Text = "" Then MsgBox "请选择要恢复的数据文件！", vbInformation, "提示" Exit Sub Else ret = MsgBox("数据恢复操作将会覆盖以前的所有数据并且覆盖后无法恢复，您确定要进行恢复操作吗？", vbQuestion + vbOKCancel, "提示") If ret = vbOK Then Dim cn As New ADODB.Connection Dim sn As New ADODB.Recordset Dim s_restore As String Me.MousePointer = 11 cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;server=" & d1 & ";Initial Catalog=master;Data Source=127.0.0.1;user id=sa;password=" & d3 & "" sn.Open "select spid from sysprocesses where dbid=db_id('student1')", cn Do While Not sn.EOF cn.Execute "kill " & sn("spid") sn.MoveNext Loop sn.Close s_restore = "restore database student1 from disk='" + Trim(Text1.Text) + "' with REPLACE" cn.Execute s_restore 'Debug.Print gs_conn_string '此时需要连接master数据库才能完成数据恢复操作 '同上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, "提示" Command1.Enabled = True Label1.Visible = False Else cn.RollbackTrans MsgBox "数据恢复失败！", vbCritical, "提示" Command1.Enabled = True End If cn.Close Set cn = Nothing Me.MousePointer = 1 Else Exit Sub End If ''''''''''''''''''''''''''''''''''''''''' On Error Resume Next Dim DBC As New DataBaseConnection If db.State = 1 Then db.Close End If db.ConnectionString = DBC.SqlConnectString(d1, d2, d3) rs.CursorType = adOpenDynamic rs.CursorLocation = adUseClient rs.LockType = adLockOptimistic db.CursorLocation = adUseClient db.Open Set cmd.ActiveConnection = db If Err.Number Then MsgBox Err.Description, 16 + vbOKOnly, Err.Number Exit Sub End If db.DefaultDatabase = "student1" If Err.Number Then MsgBox Err.Description, 16 + vbOKOnly, Err.Number Exit Sub End If End If End Sub '''''''''''''''''''''''''''''''''''''''''''''如果当前没有与要恢复的数据库立连接，则不需要加单引号中的内容。如果希望恢复数据库之后继续建立连接，则需要写这部分代码。我要恢复数据库名称为student1，备份数据库的时候是在连接状态下进行的，但是恢复数据库不可以在数据库存在连接的状态下进行操作！代码的解决方法是：先连接SQL Server中主库master 库，在该库中的sysprocesses表中存放着所有连接到此数据库的连接信息，将这些连接信息用Kill语句删除。然后再恢复数据库student1，由于用Kill语句后，数据库已经被断开，所以在恢复完成后，再用系统最初的连接数据库代码连接上数据库student1。
2:'------------------------------------------------------------------ ' 代码描述：SQL Server数据库的备份与恢复 ' ' 注意事项：1.需要在工程中引用Microsoft SQLDMO Object Library ' 2.备份/恢复数据库时，要保证没有其它用户连接到SQL Server ' ' 窗体控件：2个Command，名称分别为cmdBackup,cmdRestore ' 1个Label,名称为lblProgress,用于显示备份/恢复进程。'------------------------------------------------------------------ ' Option ExplicitPrivate WithEvents objBackup As SQLDMO.Backup Private WithEvents objRestore As SQLDMO.RestorePrivate Sub cmdBackup_Click() Dim objSQLServer As New SQLDMO.SQLServer Dim strServer As String Dim strUserID As String Dim strPassword As String Dim strDatabase As String Dim strFile As String
Set objBackup = New SQLDMO.Backup With objBackup .PercentCompleteNotification = 1 .Database = strDatabase .Files = strFile .SQLBackup objSQLServer End With Set objBackup = Nothing
objSQLServer.Close Set objSQLServer = Nothing
Screen.MousePointer = 0 Exit Sub
ErrorHandler: Screen.MousePointer = 0 MsgBox Err.Description, vbCritical End SubPrivate Sub cmdRestore_Click() Dim objSQLServer As New SQLDMO.SQLServer Dim strServer As String Dim strUserID As String Dim strPassword As String Dim strDatabase As String Dim strFile As String
Set objRestore = New SQLDMO.Restore With objRestore .PercentCompleteNotification = 1 .Database = strDatabase .ReplaceDatabase = True .Files = strFile .SQLRestore objSQLServer End With Set objRestore = Nothing
objSQLServer.Close Set objSQLServer = Nothing
Screen.MousePointer = 0 Exit Sub
ErrorHandler: Screen.MousePointer = 0 MsgBox Err.Description, vbCritical End SubPrivate Sub objBackup_Complete(ByVal Message As String) lblProgress.Caption = "备份成功！" Set objBackup = Nothing End SubPrivate Sub objBackup_PercentComplete(ByVal Message As String, ByVal Percent As Long) lblProgress.Caption = "备份进度： " & Percent & "%" DoEvents End SubPrivate Sub objRestore_Complete(ByVal Message As String) lblProgress.Caption = "恢复成功！" Set objRestore = Nothing End SubPrivate Sub objRestore_PercentComplete(ByVal Message As String, ByVal Percent As Long) lblProgress.Caption = "恢复进度： " & Percent & "%" DoEvents End Sub'备份数据库'需要添加一个commoldialog控件 Sub backDataBase() On Error GoTo errnum dlg.CancelError = True Cn1.Execute "use master" dlg.Filter = "(*.bak)|*.bak" dlg.ShowSave MousePointer = 11 Cn1.Execute "BACKUP DATABASE kffgl TO DISK = '" & dlg.FileName & "'" '备份数据库 MousePointer = 0 Set Cn1 = Nothing '重新建立连接 errnum:
Call dbint Set Cn1 = New ADODB.Connection Cn1.Open "Driver={SQL Server};Server=" & SQL_SRV & ";Uid=" & SA & ";Pwd=" & PA & ";Database=" & SJK & "" End Sub
'* 名称：BackupDatabase
'* 功能：备份数据库
'* 控件：一个文本框和两个按钮（备份到和确定）
'*********************************************************
Public Sub BackupDatabase()
Dim cn As New ADODB.Connection
Dim s_path, s_dataexport As String
s_path = App.Path
Me.MousePointer = 11 '设置鼠标指针形状
'student1是需要备份的数据库名称
s_dataexport = "backup database student1 to disk='" + CommonDialog1.FileName + "'"
cn.Open "driver={sql server};server=" & d1 & ";database=student1;persist security info=false; userid=sa" '数据库连接字符串
'这里不需要连接master数据库，即可完成备份
cn.BeginTrans
cn.Execute s_dataexport
Err.Number = 0
If Err.Number = 0 Then
cn.CommitTrans
MsgBox "数据备份成功！", vbInformation, "提示"
MsgBox "数据备份文件存放路径:" & CommonDialog1.FileName, vbOKOnly, "提示"
Unload Me
Else
cn.RollbackTrans
MsgBox "数据备份失败！请检查数据库是否正在打开！", vbCritical, "提示"
End If
cn.Close
Set cn = Nothing
Me.MousePointer = 1
End Sub'*********************************************************
'* 名称：RestoreDataBase
'* 功能：还原数据库
'* 控件：一个文本框和两个按钮（ 打开和确定）
'*********************************************************
Public Sub RestoreDataBase()
If Text1.Text = "" Then
MsgBox "请选择要恢复的数据文件！", vbInformation, "提示"
Exit Sub
Else
ret = MsgBox("数据恢复操作将会覆盖以前的所有数据并且覆盖后无法恢复，您确定要进行恢复操作吗？", vbQuestion + vbOKCancel, "提示")
If ret = vbOK Then
Dim cn As New ADODB.Connection
Dim sn As New ADODB.Recordset
Dim s_restore As String
Me.MousePointer = 11
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;server=" & d1 & ";Initial Catalog=master;Data Source=127.0.0.1;user id=sa;password=" & d3 & ""
sn.Open "select spid from sysprocesses where dbid=db_id('student1')", cn
Do While Not sn.EOF
cn.Execute "kill " & sn("spid")
sn.MoveNext
Loop
sn.Close
s_restore = "restore database student1 from disk='" + Trim(Text1.Text) + "' with REPLACE"
cn.Execute s_restore
'Debug.Print gs_conn_string
'此时需要连接master数据库才能完成数据恢复操作
'同上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, "提示"
Command1.Enabled = True
Label1.Visible = False
Else
cn.RollbackTrans
MsgBox "数据恢复失败！", vbCritical, "提示"
Command1.Enabled = True
End If
cn.Close
Set cn = Nothing
Me.MousePointer = 1
Else
Exit Sub
End If '''''''''''''''''''''''''''''''''''''''''
On Error Resume Next
Dim DBC As New DataBaseConnection
If db.State = 1 Then
db.Close
End If
db.ConnectionString = DBC.SqlConnectString(d1, d2, d3)
rs.CursorType = adOpenDynamic
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
db.CursorLocation = adUseClient
db.Open
Set cmd.ActiveConnection = db
If Err.Number Then
MsgBox Err.Description, 16 + vbOKOnly, Err.Number
Exit Sub
End If
db.DefaultDatabase = "student1"
If Err.Number Then
MsgBox Err.Description, 16 + vbOKOnly, Err.Number
Exit Sub
End If
End If
End Sub '''''''''''''''''''''''''''''''''''''''''''''如果当前没有与要恢复的数据库立连接，则不需要加单引号中的内容。如果希望恢复数据库之后继续建立连接，则需要写这部分代码。我要恢复数据库名称为student1，备份数据库的时候是在连接状态下进行的，但是恢复数据库不可以在数据库存在连接的状态下进行操作！代码的解决方法是：先连接SQL Server中主库master 库，在该库中的sysprocesses表中存放着所有连接到此数据库的连接信息，将这些连接信息用Kill语句删除。然后再恢复数据库student1，由于用Kill语句后，数据库已经被断开，所以在恢复完成后，再用系统最初的连接数据库代码连接上数据库student1。
' 代码描述：SQL Server数据库的备份与恢复
'
' 注意事项：1.需要在工程中引用Microsoft SQLDMO Object Library
' 2.备份/恢复数据库时，要保证没有其它用户连接到SQL Server
'
' 窗体控件：2个Command，名称分别为cmdBackup,cmdRestore
' 1个Label,名称为lblProgress,用于显示备份/恢复进程。'------------------------------------------------------------------
'
Option ExplicitPrivate WithEvents objBackup As SQLDMO.Backup
Private WithEvents objRestore As SQLDMO.RestorePrivate Sub cmdBackup_Click()
Dim objSQLServer As New SQLDMO.SQLServer
Dim strServer As String
Dim strUserID As String
Dim strPassword As String
Dim strDatabase As String
Dim strFile As String
strServer = "Developer"
strUserID = "SA"
strPassword = ""
strDatabase = "Test"
strFile = "c:\test.bak"
If Dir(strFile) <> "" Then
If MsgBox("文件" & strFile & "已存在，是否删除？", vbQuestion + vbYesNo) = vbYes Then
Kill strFile
Else
Exit Sub
End If
End If
lblProgress.Caption = "备份进度： 0%"
Screen.MousePointer = 11
On Error GoTo ErrorHandler
objSQLServer.Connect strServer, strUserID, strPassword
Set objBackup = New SQLDMO.Backup
With objBackup
.PercentCompleteNotification = 1
.Database = strDatabase
.Files = strFile
.SQLBackup objSQLServer
End With
Set objBackup = Nothing
objSQLServer.Close
Set objSQLServer = Nothing
Screen.MousePointer = 0
Exit Sub
ErrorHandler:
Screen.MousePointer = 0
MsgBox Err.Description, vbCritical
End SubPrivate Sub cmdRestore_Click()
Dim objSQLServer As New SQLDMO.SQLServer
Dim strServer As String
Dim strUserID As String
Dim strPassword As String
Dim strDatabase As String
Dim strFile As String
strServer = "Developer"
strUserID = "SA"
strPassword = ""
strDatabase = "Test"
strFile = "c:\test.bak"
If Dir(strFile) = "" Then
MsgBox "文件" & strFile & "不存在！", vbExclamation
Exit Sub
End If
lblProgress.Caption = "恢复进度： 0%"
Screen.MousePointer = 11
On Error GoTo ErrorHandler
objSQLServer.Connect strServer, strUserID, strPassword
Set objRestore = New SQLDMO.Restore
With objRestore
.PercentCompleteNotification = 1
.Database = strDatabase
.ReplaceDatabase = True
.Files = strFile
.SQLRestore objSQLServer
End With
Set objRestore = Nothing
objSQLServer.Close
Set objSQLServer = Nothing
Screen.MousePointer = 0
Exit Sub
ErrorHandler:
Screen.MousePointer = 0
MsgBox Err.Description, vbCritical
End SubPrivate Sub objBackup_Complete(ByVal Message As String)
lblProgress.Caption = "备份成功！"
Set objBackup = Nothing
End SubPrivate Sub objBackup_PercentComplete(ByVal Message As String, ByVal Percent As Long)
lblProgress.Caption = "备份进度： " & Percent & "%"
DoEvents
End SubPrivate Sub objRestore_Complete(ByVal Message As String)
lblProgress.Caption = "恢复成功！"
Set objRestore = Nothing
End SubPrivate Sub objRestore_PercentComplete(ByVal Message As String, ByVal Percent As Long)
lblProgress.Caption = "恢复进度： " & Percent & "%"
DoEvents
End Sub'备份数据库'需要添加一个commoldialog控件
Sub backDataBase()
On Error GoTo errnum
dlg.CancelError = True
Cn1.Execute "use master"
dlg.Filter = "(*.bak)|*.bak"
dlg.ShowSave
MousePointer = 11
Cn1.Execute "BACKUP DATABASE kffgl TO DISK = '" & dlg.FileName & "'" '备份数据库
MousePointer = 0
Set Cn1 = Nothing
'重新建立连接
errnum:
Call dbint
Set Cn1 = New ADODB.Connection
Cn1.Open "Driver={SQL Server};Server=" & SQL_SRV & ";Uid=" & SA & ";Pwd=" & PA & ";Database=" & SJK & ""
End Sub
关键字 扩展存储过程，远程，备份，恢复
标题很长，但内容简单。。这是小弟的第一篇习作，写的不好，望大家海涵。 最近我在为公司的框架程序（以数据应用为导向的应用体系）做数据管理模块，这个模块的需求比较简单：备份、恢复和清理日志。我公司的软件基本上以C/S为基本架构，所以数据管理模块中两个主要的功能‘备份与恢复’都可能会在Client端操作，备份与恢复’的文件也都有可能存储在client端，因而这个数据管理模块就必须能够实现在远程备份与恢复数据库。 文章的前提阐述完了，就该说说如何具体实现吧。其实都很简单，我想写个远程备份的测试实例
给大家看,就能够很清楚的描述吧！
实例说明：
环境：win2k+sqlserver 2K+查询分析器
SQLSERVER服务实例名称:mainserver
需要备份的数据库名称: msdb
本地机器名称（Client端）：david
本地用户:zf 密码：123
本地域名：domain
本地提供备份需求的文件夹:e:\test 第一步: 建立共享文件夹
在程序代码中调用（或者CMD窗口） net share test=e:\test
或者用NetShareAdd这个API
简要说明：
net share : 是WINDOWS内部的网络命令。
作用：建立本地的共享资源，显示当前计算机的共享资源信息。
语法：参见 net share /?
第二步: 建立共享信用关系
master..xp_cmdshell 'net use \\david\test 123 /user:domain\zf'
简要说明：
1：xp_cmdshell ：是SQLSERVER的扩展存储过程。
作用，以操作系统命令行解释器的方式执行给定的命令字符串，
并以文本行方式返回任何输出。
语法：参见SQLSERVER联机帮助
2:net use : 是WINDOWS内部的网络命令。
作用，将计算机与共享资源连接或断开，或者显示关于计算机
连接的信息。该命令还控制持久网络连接。
语法：参见 net use /? 第三步:备份数据库
backup database msdb to disk='\\david\test\msdb.bak'
这个不需要说明吧，语法参见SQLSERVER联机帮助 第四步: 删除共享文件夹
在程序代码中调用（或者CMD窗口） net share test /delete
或者用NetShareDel这个API
结果:
已处理 1376 页，这些页属于数据库 'msdb' 的文件 'MSDBData'（位于文件 1 上）。
已处理 1 页，这些页属于数据库 'msdb' 的文件 'MSDBLog'（位于文件 1 上）。
BACKUP DATABASE 操作成功地处理了 1377 页，花费了 3.653 秒（3.086 MB/秒）。 这样mainserver服务器上的msdb就备份到了david机器的E:\test\msdb.bak文件了，使用起来很简单吧？恢复数据库操作也是一样，只要将第三个步骤的语句改为'restore database msdb from disk='\\david\test\msdb.bak'就可以啦。。你看完了也可以试试呀？！（最简单的测试工具查询分析器+CMD窗口）备注：xp_cmdshell 这个扩展存储过程只能SA级别的用户调用，而且是SQLSERVER的安全隐患之
一，许多DBA都喜欢将其删除或者禁用，所以开发人员使用时要倍加小心哦。
文章中的例子只是简要的说明了应如何利用扩展存储过程实现远程备份与恢复，没有涉及安全以及其他方面的考虑，希望读者在代码中自行完善。
/**************************************************
SQL异地备份失败，归根结底是权限问题！！！
如：
SQLServer备到FileServer上
那你的SQLServer的启动用户必须在FileServer上有足够的权限!
--------------------^^^---------------------------------
1、SQLServer上新建一SQLUser用户权限大一点。
2、FileServer上建同一用户对某一文件夹有足够权限。
3、两机的SQLUser密码相同(方便一点)
4、将SQLServer改为SQLUser启动
(管理工具-->服务-->mssql项-->属性-->指定用户及密码)
5、\\192.168.*.*\文件夹\ShareBak.Bak就可以了
-----------------------------------------------------------
简单一点就是：
如果你两台都是windows2ks
你的机器也用同样的Administrator密码,且sql服务器用administrator启动
那你写设备时就可以写:\\ip\.......如果对方是98那你要完全共享一下！
你写设备时就可以写:\\ip\.......