数据库备份与恢复

Question

请编写一个通过ADO连接SQL Server中的数据库，使用Bakup语句进行数据库备份的示例程序。数据库服务器IP地址为61.139.105.130，数据库名称为TeachInfo，用户名为sa，密码为test123.备份文件为：d:\bak\TeachInfoBak.bak

Answer 1

参考示例：
Dim conn As New adodb.Connection 
Dim rec As New adodb.Recordset 
Dim backupfilename As String '备份数据库存放地址以及名称 
db = "Driver={SQL Server};Server=127.0.0.1;Database=NorthWind;uid=sa ;pwd=abc" 
conn.Open db '打开数据库连接 
b = "backup database NorthWind to disk='" & backupfilename & "'" 
conn.Execute (b) 
conn.close  
不是答案哦

Answer 2

例. 备份整个 MyNwind 数据库（SQL语句）
-- Create a logical backup device for the full MyNwind backup.
USE master
EXEC sp_addumpdevice 'disk', 'MyNwind_1', 
   DISK ='c:\Program Files\Microsoft SQL Server\MSSQL\BACKUP\MyNwind_1.dat'-- Back up the full MyNwind database.
BACKUP DATABASE MyNwind TO MyNwind_1

Answer 3

'*******************************************************************
'功    能：备份数据库
'参    数：
'         pDataSourceName 数据源名称
'         pDataBaseName 数据库名称
'         pUserID 用户名
'         pPassWord 密码
'         pTargetPath 文件路径 
'创 建 者:zuoxingyu
'创建日期:2008/11/28
'*******************************************************************
Public Function BackDatabase(ByVal pDataSourceName As String, ByVal pDataBaseName As String, ByVal pUserId As String, _
    ByVal pPassWord As String, ByVal pTargetPath As String) As Boolean
    On Error GoTo errh
    
    BackDatabase = False
    Dim strCon As String
    strCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & pUserId & ";PassWord=" & pPassWord & ";Initial Catalog=" & pDataBaseName & ";Data Source=" & pDataSourceName
    
    Dim cn As New ADODB.Connection
    cn.ConnectionString = strCon
    cn.Open
    
    Dim strSQL As String
    strSQL = "Backup DATABASE " & pDataBaseName & " TO Disk='" & pTargetPath & "'"
    cn.Execute strSQL
    
    
    
    Set cn = Nothing
    
    BackDatabase = True
    Exit Function
errh:
    BackDatabase = False
    Err.Raise Err.Number, Err.Source, Err.Description
'    MsgBox "备份数据库发生错误！" & vbCrLf & Err.Description, vbExclamation, "备份数据库错误"
End Function