zoukankan      html  css  js  c++  java
  • [轉]使用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 
  • 相关阅读:
    软件开发人员的简历项目经验怎么写?
    mapreduce 多种输入
    lnmp如何实现伪静态,默认目录伪静态
    LNMP环境中WordPress程序伪静态解决方案
    wordpress必装的插件 wp最常用的十个插件
    debian系统下改语言设置
    Centos7 开启端口
    EventProcessor与WorkPool用法--可处理多消费者
    Disruptor入门
    Disruptor初级入门
  • 原文地址:https://www.cnblogs.com/Athrun/p/ASP_SQLDMO_BACKUP.html
Copyright © 2011-2022 走看看