请帮忙解决SQL Server2000的备份问题（使用VB和sqldmo）,急急

[helenawa]

各位大虾：

请指点如何在VB中利用sqldmo写明sql server2000的备份、恢复，我写了如下：
Dim DMOServer As SQLDMO.SQLServer
Dim DMOBackup As SQLDMO.BackUp

DMOBackup.Database = "tr"
DMOBackup.Devices = "ac"
DMOBackup.BackupSetName = "tr_Log_" & Date '& "_" & Mid(Time, 1, 2) & Mid(Time, 4, 2) '& Mid(Time, 6, 2)
DMOBackup.BackupSetDescription = "Backup of tr database transaction log."
' DMOBackup.Files = "D:\Sql_bak\Tr " & Date & ".bak" '& Mid(Time, 1, 2) & Mid(Time, 4, 2)
DMOBackup.SQLBackup DMOServer

但在最后一行出问题：提示应该指明：SQL Server2000有两个备份集，用哪一个备份集 ??多谢!!

[jakenIT]

我现在也要这个，关注！

[zhangwenhua]

不一定要指定：DMOBackup.Devices = "ac"


Examples
A. Performing a Complete Database Backup
This example illustrates using SQL-DMO to perform a complete database backup.

' Create a Backup object and set action and source database properties.
Dim oBackup As New SQLDMO.Backup
oBackup.Action = SQLDMOBackup_Database
oBackup.Database = "Northwind"

' Example illustrates a striped backup using two target devices. Note:
' Device creation is not illustrated in this example.
oBackup.Devices = "[NorthDev1],[NorthDev2]"

' Optional. Backup set name and description properties provide
' descriptive text when backup header is displayed for the device(s).
oBackup.BackupSetName = "Northwind_Full"
oBackup.BackupSetDescription = "Full backup of Northwind sample."

' Call SQLBackup method to perform the backup. In a production
' environment, consider wrapping the method call with a wait pointer
' or use Backup object events to provide feedback to the user.
'
' Note: Create and connect of SQLServer object used is not
' illustrated in this example.
oBackup.SQLBackup oSQLServer

[pengdali]

用SQL Server的SQLDMO编程

’服务器
Dim gSQLServer As SQLDMO.SQLServer
'备分
Dim WithEvents oBackupEvent As SQLDMO.Backup
’还原
Dim WithEvents oRestoreEvent As SQLDMO.Restore

VB示例如下：
’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 Sub

ErrHandler:
MsgBox "Error " & Err.Description
Resume Next
End Sub

[Jingxh]

up