恢复从 Access 2000、 Access 2002 或 Access 2003 中数据库删除表的方法
2018-10-12 14:09
483 查看
注意 : 本文示例代码使用 Microsoft 数据访问对象。 为此代码才能正常运行, 您必须引用 Microsoft DAO 3.6 对象库。 可以进行, 单击 工具 菜单中 VisualBasic 编辑器, 上 引用 并确保选中 Microsoft DAO 3.6 对象库 复选框。
1. 在 MicrosoftAccess 中打开数据库。
2. 在数据库窗口, 单击下 对象 , 模块 , 然后单击 新建 。
3. 键入或粘贴以下代码, 您只有创建模块中:
4. 在 调试 菜单上, 单击 编译 数据库名称 数据库名称 。
5. 保存为 RecoverTable 模块。 要测试此函数, 首先创建两个表, 添加行, 并删除这两个表。
6. 在即时窗口, 键入以下行, 然后按 ENTER 键:
RecoverDeletedTable
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
相关文章推荐
- SQL SERVER 2000中,当示例数据库NorthWind被错误删除时的恢复方法
- ACCESS误删除了某条含有自动编号字段的记录的恢复方法
- Windows 2000/XP/2003中删除隐藏网卡 设置IP方法
- 在Outlook Web Access中恢复已经删除的邮件
- SQL Server简单模式下误删除堆表记录恢复方法(绕过页眉校验)
- SqlServer2005 恢复数据库时出现Exclusive access could not be obtained because the database is in use 的解决方法
- linux下rm误删除数据库文件的恢复方法
- 非正常删除日志文件(ldf)恢复方法
- 用SQL脚本将Access导入到MS SQL 2000/2005的方法
- oracle误删除数据的恢复方法
- Access 2003 中ADO Recordset 调用 AddNew 或 Delete 方法时收到错误信息
- mysql 误删除ibdata1之后的恢复方法
- 误删除 Oracle 数据库数据的恢复方法
- SQLServer2000 中危险存储过程删除及恢复方法
- 求助Exchange 2003 用恢复组单用户删除邮件问题?
- Linux系统文件误删除恢复方法;宿主机windows与Linux文件共享!
- Access 2003 与 MS SQL 2000 [sql]
- ubuntu常用命令及双系统下删除ubuntu的正确方法及字体的恢复
- 详述Windows 2000系统日志及其删除方法
- 手机中删除的照片如何恢复的五大解决方法