SQLDMO备份，还原数据库--请SQLDMO的高手讲解

Question

’服务器
Dim gSQLServer As SQLDMO.SQLServer
'备分
Dim WithEvents oBackupEvent  As SQLDMO.Backup
’还原
Dim WithEvents oRestoreEvent As SQLDMO.RestoreVB示例如下：
’COMMAND CLICK 事件Private Sub cmdBack_Click()
    On Error GoTo ErrHandler:
    
    Dim oBackup As SQLDMO.Backup
    
    gDatabaseName = "Business"   ‘数据库名字
    Set oBackup = New SQLDMO.Backup
    Set oBackupEvent = oBackup ' enable events
    
    oBackup.Database = gDatabaseName
    gBkupRstrFileName = txtDataFileName.Text   ‘要备份的文件名
    oBackup.Files = gBkupRstrFileName
    
    If Len(Dir(gBkupRstrFileName)) > 0 Then
        Kill (gBkupRstrFileName)
    End If
    
    Screen.MousePointer = vbHourglass
    ‘备份
    oBackup.SQLBackup gSQLServer
    
    Screen.MousePointer = vbDefault
   
    Set oBackupEvent = Nothing ' disable events
    Set oBackup = Nothing
    
    Exit SubErrHandler:
    MsgBox "Error " & Err.Description
    Resume Next
End Sub

Answer 1

还有如何备份每个表，或一段选中的记录，如我想备份一段时间的数据该如何使用。------------------------------------------------------EXEC master..xp_cmdshell 'bcp test.dbo.P_Aspect in c:\temp1.txt -c -q -S"servername" -U"sa" -P""'
//导入 EXEC master..xp_cmdshell 'bcp test.dbo.P_Aspect out c:\temp1.txt -c -q -S"servername" -U"sa" -P""'
//导出