Access 프로젝트의 연결을 프로그래밍 방식으로 변경하는 방법

  • 아티클
  • 적용 대상:
    Access 2007, Access 2003, Access 2002

고급: 전문 코딩, 상호 운용성 및 다중 사용자 기술이 필요합니다.

이 문서는 Microsoft Access 프로젝트(.adp)에만 적용됩니다.

요약

이 문서에서는 프로그래밍 방식으로 ADP(Microsoft Access 프로젝트) 파일의 연결을 변경하는 방법을 보여 줍니다.

추가 정보

ADP의 연결을 변경하는 가장 쉬운 방법은 수동으로 수행하는 것입니다. Access 2002 또는 Access 2003에서 다음과 같이 현재 프로젝트의 연결 속성에 액세스할 수 있습니다. 파일 메뉴에서 연결을 클릭합니다. 표시되는 대화 상자는 다른 속성 중에서 서버 이름 및 보안 모드를 변경하는 옵션을 제공합니다.

참고 Access 2007에서 다음 단계에 따라 데이터 링크 속성 대화 상자의 연결 탭을 엽니다.

  1. Microsoft Office 단추를 클릭한 다음 액세스 옵션을 클릭합니다.
  2. 사용자 지정 탭의 명령 선택 목록에서 모든명령을 클릭합니다.
  3. 왼쪽 창에서 연결을 클릭하고 추가를 클릭한 다음 확인을 클릭합니다.
  4. 빠른 실행 도구 모음에서 연결을 클릭합니다.

그러나 경우에 따라 프로세스를 자동화할 수 있습니다. 사용자가 애플리케이션의 특정 섹션에 대해 다른 SQL Server에 연결하도록 하거나 시작 시 연결 프로세스를 제어하여 오류를 찾고 다른 서버로 라우팅하여 적절하게 처리할 수 있습니다.

다음 단계에서는 Access 개체 모델을 사용하여 ADP의 기존 연결을 변경하는 방법을 보여 주는 함수를 사용합니다. 이 함수는 성공하면 True를 반환하고 성공하지 않으면 False를 반환합니다.

  1. Access를 시작한 다음 샘플 Access 프로젝트 NorthwindCS.adp를 엽니다.

  2. Access 2002 또는 Access 2003에서 데이터베이스 창의 개체 아래에서 모듈을 클릭한 다음 새로 만들기를 클릭하여 새 모듈을 엽니다.

    Access 2007에서 만들기 탭의 기타 그룹에서 매크로 아래의 아래쪽 화살표를 클릭한 다음 모듈을 클릭합니다.

  3. 새 모듈에 다음 코드를 추가한 다음 모듈을 저장합니다.

Function ChangeADPConnection(strServerName As String, strDBName As _
   String, Optional strUN As String, Optional strPW As String) As Boolean
Dim strConnect As String
On Error GoTo EH:
Application.CurrentProject.CloseConnection
'The Provider, Data Source, and Initial Catalog arguments are required.
strConnect = "Provider=SQLOLEDB.1" & _
";Data Source=" & strServerName & _
";Initial Catalog=" & strDBName
If strUN <> "" Then
    strConnect = strConnect & ";user id=" & strUN
    If strPW <> "" Then
        strConnect = strConnect & ";password=" & strPW
    End If
Else  'Try to use integrated security if no username is supplied.
    strConnect = strConnect & ";integrated security=SSPI"
End If
Application.CurrentProject.OpenConnection strConnect
ChangeADPConnection = True
Exit Function
EH:
MsgBox Err.Number & ": " & Err.Description, vbCritical, "Connection Error"
ChangeADPConnection = False
End Function

  1. Access 2002 또는 Access 2003에서 데이터베이스 창의 개체 아래에서 폼을 클릭하고 새로 만들기를 클릭한 다음 확인을 클릭하여 디자인 보기에서 새 양식을 엽니다.

    Access 2007의 만들기 탭에서 폼을 클릭합니다.

  2. 양식에 명령 단추를 추가합니다.

  3. 명령 단추의 OnClick 속성을 다음 이벤트 프로시저로 설정합니다.

Dim bCheckConnection As Boolean
   'You must specify the correct parameters for your following server.
   'username and password parameters are optional.
bCheckConnection=ChangeADPConnection("ServerName","DBName","UserName","PW")
MsgBox bCheckConnection

  1. Visual Basic 환경을 닫고 양식으로 돌아갑니다.

  2. 양식을 저장한 다음 양식을 양식 보기로 전환합니다.

  3. 명령 단추를 클릭하여 기본 코드를 실행합니다.

    6단계에서 연결에 대한 올바른 매개 변수를 제공한 경우 True라는 메시지 상자가 표시됩니다.

    -또는-

    올바른 매개 변수를 제공하지 않으면 오류 메시지가 표시됩니다. 오류 메시지로 확인을 클릭하면 False가 표시되는 메시지 상자가 표시됩니다.