Dim myServer AsNew Server() Dim conn As ServerConnection '##### Add connection code here ##### conn = myServer.ConnectionContext conn.ServerInstance ="localhost" conn.Connect()
3、设置必要的属性,包括:备份动作、备份名称 、要备份的数据库和备份设备。然后开始备份.
Dim MyBackup AsNew Backup MyBackup.Action = BackupActionType.Database MyBackup.BackupSetName = dbName &"Backup" MyBackup.Database = dbName '备份的数据库名称 Dim deviceItem As BackupDeviceItem =New BackupDeviceItem("", DeviceType.File) deviceItem.Name ="C:\"& dbName &".bak" MyBackup.Devices.Add(deviceItem) MyBackup.SqlBackup(myServer)
posted on
2005-09-14 11:12编写人生
阅读(1275)
评论(1)
编辑收藏举报