<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. 在access中,如何備份與還原SQL數據庫-李雙軍
      Access軟件網QQ交流學習群(群號碼198465573),歡迎您的加入!
      首頁 >技術文章> Access數據庫-模塊/函數/VBA


      在access中,如何備份與還原SQL數據庫

      發表時間:2008/7/1 15:50:31 評論(0) 瀏覽(9786)  評論 | 加入收藏 | 復制
         
      摘 要:
      正 文:

      '′*************************************************************************
      '′**模 塊 名:fBackupDatabase_a
      '′**描    述:備份數據庫,返回出錯信息,正?;謴?返回""
      '′**調    用:fBackupDatabase_a "備份文件名","數據庫名"
      '′**參數說明:
      '′**          sBackUpfileName  恢復后的數據庫存放目錄
      '′**          sDataBaseName    備份的數據名
      '′**          sIsAddBackup     是否追加到備份文件中
      '′**說    明:引用Microsoft ActiveX Data Objects 2.x Library
      '′*************************************************************************
      Public Function fBackupDatabase_a(ByVal sBackUpfileName$ _
                                      , ByVal sDataBaseName$ _
                                      , Optional ByVal sIsAddBackup As Boolean = False _
                                      ) As String
                                     
          Dim iDb As ADODB.Connection
          Dim iConcStr$, iSql$, iReturn$
         
          On Error GoTo lbErr
         
         ' ′創建對象
          Set iDb = New ADODB.Connection
         
          '′連接數據庫服務器 , 根據你的情況修改連接字符串
          iConcStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=(local)"
          iDb.Open iConcStr
         
          '′生成數據庫備份語句
          iSql = "backup database [" & sDataBaseName & "]" & vbCrLf & _
                  "to disk='" & sBackUpfileName & "'" & vbCrLf & _
                  "with description='" & "zj-backup at:" & Date & "(" & Time & ")'" & vbCrLf & _
                  IIf(sIsAddBackup, "", ",init")
                 
          iDb.Execute iSql
          MsgBox "備份成功!", , "提示"
          GoTo lbExit
         
      lbErr:
          iReturn = Error
      lbExit:
          fBackupDatabase_a = iReturn
      End Function

      '′*************************************************************************
      '′**模 塊 名:frestoredatabase_a
      '′**描    述:恢復數據庫,返回出錯信息,正?;謴?返回""
      '′**調    用:frestoredatabase_a "備份文件名","數據庫名"
      '′**參數說明:
      '′**          sDataBasePath  恢復后的數據庫存放目錄
      '′**          sBackupNumber  是從那個備份號恢復
      '′**     &n


      Access軟件網交流QQ群(群號:198465573)
       
       相關文章
      在access中,如何備份與還原SQL數據庫  【李雙軍  2008/7/1】
      常用的SQL數據庫語句總結  【收藏文章  2011/9/28】
      Sql數據庫的sa密碼忘記了怎么辦?  【風行  2012/7/6】
      ACCESS轉SQL2000\把ACCESS轉成SQL數據庫的方法  【Access軟件網整理  2013/5/2】
      把ACCESS數據導入到SQL數據庫  【宏鵬(轉載)  2013/7/24】
       
       訪客評論
      總記錄:0篇  頁次:0/0 9 1 :
       
       發表評論
      評論內容 (必填)

      常見問答
      技術分類
      相關資源
      文章搜索
      關于作者

      李雙軍

      文章分類

      文章存檔

      友情鏈接
       
         
      湖北11选5