Access 2000, Access 2002 또는 Access 2003에서 데이터베이스에서 테이블을 삭제하는 방법을 복원합니다.

참고: 이 예제 코드는 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

좋은 웹페이지 즐겨찾기