问题

Question

使用SQLDMO备份和恢复数据库(VB & ASP)
2001-04-03 14:00:53 已有25人阅读VB: 
引用Microsoft SQLDMO Object Library先 
Private objSQLServer As New SQLDMO.SQLServer Private Sub cmdBackup_Click() 
Dim objBackup As New SQLDMO.backup objBackup.Database = "pubs" 
objBackup.MediaName = "C:\Mssql7\Backup\pubs.bak" 
'If you backup to tape, you can use 
'objBackup.MediaName = "\\.\TAPE0" 
objBackup.MediaDescription = "Back of pubs" 
objBackup.SQLBackup (objSQLServer) 
End Sub Private Sub cmdRestore_Click() 
Dim objRestore As New SQLDMO.Restore 
objRestore.Database = "pubs" 
objRestore.MediaName = "C:\Mssql7\Backup\pubs.bak" 
objRestore.ReplaceDatabase = True 
objRestore.SQLRestore (objSQLServer) 
End Sub Private Sub Form_Load() 
objSQLServer.Connect "Localhost", "sa", "" 
End Sub 
[hr] 
ASP: 
Dim objSQLServer 
Set objSQLServer = Server.CreateObject("SQLDMO.SQLServer") 
objSQLServer.Connect "Localhost", "sa", "" 
Private Sub Backup() 
Dim objBackup 
Set objBackup = Server.CreateObject("SQLDMO.Backup") 
objBackup.Database = "pubs" 
objBackup.MediaName = "C:\Mssql7\Backup\pubs.bak" 
objBackup.MediaDescription = "Back of pubs" 
objBackup.SQLBackup (objSQLServer) 
End Sub Private Sub cmdRestore_Click() 
Dim objRestore 
Set objRestore = Server.CreateObject("SQLDMO.Restore") 
objRestore.Database = "pubs" 
objRestore.MediaName = "C:\Mssql7\Backup\pubs.bak" 
objRestore.ReplaceDatabase = True 
objRestore.SQLRestore (objSQLServer) 
End Sub