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 
  • 相关阅读:
    CORS跨域漏洞学习
    CVE-2020-0796漏洞复现(RCE)
    Wfuzz使用学习
    DNSlog注入学习
    一些CTF练习记录
    数据结构与算法(十三):赫夫曼树
    数据结构与算法(十二):堆排序
    博客园自定义代码块样式
    Nginx入门(二):常用功能配置
    数据结构与算法(十一):二叉树
  • 原文地址:https://www.cnblogs.com/Athrun/p/ASP_SQLDMO_BACKUP.html
Copyright © 2011-2022 走看看