程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> 更多關於編程 >> 恢復從Access數據庫刪除表的方法

恢復從Access數據庫刪除表的方法

編輯:更多關於編程

       注意 : 本文示例代碼使用 Microsoft 數據訪問對象。 為此代碼才能正常運行, 您必須引用 Microsoft DAO 3.6 對象庫。 可以進行, 單擊 工具 菜單中 VisualBasic 編輯器, 上 引用 並確保選中 Microsoft DAO 3.6 對象庫 復選框。

      1. 在 MicrosoftAccess 中打開數據庫。

      2. 在數據庫窗口, 單擊下 對象 , 模塊 , 然後單擊 新建 。

      3. 鍵入或粘貼以下代碼, 您只有創建模塊中:

      復制代碼 代碼如下:

      Function RecoverDeletedTable()

      On Error GoTo ExitHere

      '*Declarations*

      Dim db As DAO.Database

      Dim strTableName As String

      Dim strSQL As String

      Dim intCount As Integer

      Dim blnRestored As Boolean

      '*Init*

      Set db = CurrentDb()

      '*Procedure*

      For intCount = 0 To db.TableDefs.Count - 1

      strTableName = db.TableDefs(intCount).Name

      If Left(strTableName, 4) = "~tmp" Then

      strSQL = "SELECT DISTINCTROW [" & strTableName & "].* INTO " & Mid(strTableName, 5) & " FROM [" & strTableName & "];"

      DoCmd.SetWarnings False

      DoCmd.RunSQL strSQL

      MsgBox "A deleted table has been restored, using the name '" & Mid(strTableName, 5) & "'", vbOKOnly, "Restored"

      blnRestored = True

      End If

      Next intCount

      If blnRestored = False Then

      MsgBox "No recoverable tables found", vbOKOnly

      End If

      '*EXIT/ERROR*

      ExitHere:

      DoCmd.SetWarnings True

      Set db = Nothing

      Exit Function

      ErrorHandler:

      MsgBox Err.Description

      Resume ExitHere

      End Function

      4. 在 調試 菜單上, 單擊 編譯 數據庫名稱 數據庫名稱 。

      5. 保存為 RecoverTable 模塊。 要測試此函數, 首先創建兩個表, 添加行, 並刪除這兩個表。

      6. 在即時窗口, 鍵入以下行, 然後按 ENTER 鍵:

      RecoverDeletedTable

            :更多精彩教程請關注三聯設計教程 欄目,

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved