[轉]使用SQLDMO备份和恢复数据库(VB & ASP)
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
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
申明
非源创博文中的内容均收集自网上,若有侵权之处,请及时联络,我会在第一时间内删除.再次说声抱歉!!!
博文欢迎转载,但请给出原文连接。