VB, MTS를 사용하여 3계층 응용 프로그램을 만드는 법

HOWTO: VB, mts 및 SQL Server를 사용하여 3계층 응용 프로그램을 만드는 방법

요약

본 문서에서는 Microsoft Transaction Server(mts) 하에서 설치되어 있는 구성 요소를 사용하는 Visual Basic 데이터베이스 응용 프로그램을 만드는 방법을 설명합니다. "추가 정보" 절에서는 Visual Basic(VB)과 mts를 사용하여 데이터베이스 응용 프로그램을 설치하는 데 필요한 단계를 설명합니다.

본 문서에서는 응용 프로그램을 개발하는 컴퓨터에서 mts 2.0과 SQL Server 6.5를 실행하는 것으로 간주합니다.

추가 정보

mts의 제어 하에 실행되는 원격 구성 요소를 사용하는 응용 프로그램을 설치하려면 다음 네 개의 기본 단계를 수행합니다.

1. 서버 구성 요소를 만듭니다. 서버 구성 요소는 Visual Basic으로 작성된 ActiveX DLL입니다.
2. 클라이언트 응용 프로그램을 만듭니다. 클라이언트 응용 프로그램은 Visual Basic으로 작성된 표준 EXE 파일입니다.
3. 서버 구성 요소를 mts 패키지에 설치합니다.
4. 필요하면 클라이언트 컴퓨터를 설치합니다.

아래에서 각 단계를 자세히 설명합니다.

1단계: 원격 구성 요소 만들기

1. 새 Visual Basic ActiveX DLL 프로젝트를 만듭니다.
2. 프로젝트 메뉴에서 참조를 선택하고 Microsoft ActiveX Data Objects 1.5 Library 및 Microsoft Transaction Server Type Library의 참조를 추가합니다.
3. 프로젝트 메뉴에서 프로젝트 속성을 선택합니다. 일반 탭을 누르고 프로젝트 이름을 mtsTest로 바꿉니다. 스레딩 모델(Threading Model)이 아파트 스레딩(Apartment Threaded)인지 확인해야 합니다.
4. 기본 클래스 모듈의 GENERAL DECLARATIONS 섹션에 아래 코드를 추가합니다.

Option Explicit

Public Function Database_Test_Method( _

  ByVal szConnect As String) As String

  On Error GoTo errhandler

  Dim ctxObject As ObjectContext

  Set ctxObject = GetObjectContext()

  Dim cn As ADODB.Connection

  Dim rs As ADODB.Recordset

  Set cn = New ADODB.Connection

  With cn

    .ConnectionTimeout = 10

    .ConnectionString = szConnect

    .Open

  End With

  Set rs = New ADODB.Recordset rs.Open "SELECT * FROM Authors", cn, adOpenForwardOnly, _

  adLockReadOnly Database_Test_Method = "First value from database: " _

  & rs(0).Value

  rs.Close

  cn.Close

  Set rs = Nothing

  Set cn = Nothing

  ctxObject.SetComplete

  Exit Function

errhandler:

  ctxObject.SetAbort

  Err.Raise vbObjectError, "mtsTest.Class1.Database_Test_Method", _

  Err.Description

  Exit Function

End Function

 

Public Function General_Test_Method() As String

  On Error GoTo errhandler

  Dim ctxObject As ObjectContext

  Set ctxObject = GetObjectContext()

  General_Test_Method = "String from General_Test_Method"

  ctxObject.SetComplete

  Exit Function

errhandler:

  ctxObject.SetAbort

  Err.Raise

  vbObjectError, "mtsTest.Class1.General_Test_Method", _

  Err.Description

  Exit Function

End Function

1. 프로젝트를 컴파일하여 .DLL 파일을 만듭니다.

2단계: 클라이언트 응용 프로그램 만들기

1. Visual Basic 표준 EXE 프로젝트를 새로 만듭니다.
2. 두 개의 명령 단추를 표준 폼에 추가합니다.
3. 폼의 GENERAL DECLARATIONS 섹션에 아래 코드를 추가합니다.

Private Sub Command1_Click()

Dim obj As Object

  Set obj = CreateObject("mtsTest.Class1") 

  MsgBox obj.General_Test_Method

  Set obj = Nothing

End Sub

 

Private Sub Command2_Click()

Dim szConnect As String

  szConnect = "Driver={SQL Server};" & _

  "Server=YourServerName;Uid=sa;Pwd=;Database=pubs" '(NOTE: You may need to change the connection ' information to connect to your database.) Dim obj As Object

Set obj = CreateObject("mtsTest.Class1") MsgBox obj.Database_Test_Method(szConnect) Set obj = Nothing End Sub Private Sub Form_Load() Command1.Caption = "Call General_Test_Method" Command2.Caption = "Call Database_Test_Method" End Sub

3단계: 구성 요소를 mts에 설치

1. Microsoft Management Console(MMC) 트랜잭션 서버 탐색기를 시작합니다. Windows 2000 시작 메뉴에서 프로그램, 관리 도구를 차례로 가리킨 다음 구성 요소 서비스를 누릅니다.
2. 왼쪽 창의 트리 보기에서 각 폴더 옆의 더하기(+) 기호를 눌러 폴더를 확장합니다. 먼저 Microsoft Transaction Server를 선택하여 확장한 다음 컴퓨터, 내 컴퓨터를 차례로 확장하고 마지막에 설치된 패키지를 확장합니다. Windows 2000에서 이것은 Com+ 응용 프로그램입니다.
3. 설치된 패키지(Com+ 응용 프로그램)를 마우스 오른쪽 단추로 누른 다음 새로 만들기를 선택하고 패키지를 선택합니다.
4. 패키지 마법사 화면이 나타나면 Create and Empty Package를 선택합니다. 패키지 이름을 mtsTest로 지정하고 대화형 사용자로 실행되게 합니다.
5. 새로 생성한 패키지에서 Components 폴더를 선택한 후 마우스 오른쪽 단추를 누르고 새로 만들기를 누른 다음 "구성 요소"를 선택합니다.
6. 이미 등록된 구성 요소를 가져옵니다를 선택하고 표시된 목록에서 mtsTest.Class1을 선택합니다.

참고: 이제 서버 컴퓨터에서 성공적으로 클라이언트를 실행할 수 있습니다. 원격 클라이언트를 설치하려면 4단계에서 설명하는 방법을 따르십시오.

4단계(옵션): 원격 클라이언트 설치

이 단계는 실제로 두 부분으로 구성됩니다. 첫 번째 부분에서는 Visual Basic 응용 프로그램 설치 마법사를 사용하여 Visual Basic 클라이언트 설치 프로그램을 만듭니다. 두 번째 부분에서는 mts에서 생성된 클라이언트 설치 프로그램을 만들고 사용합니다.

mts에서 생성된 클라이언트 설치 프로그램을 만들고 사용하는 자세한 방법을 아래에서 설명합니다.

Visual Basic 설치 마법사를 사용하여 VB 클라이언트를 배포하는 방법에 대한 자세한 내용은 "참조" 절에 나온 문서를 참조하십시오.

참고: 문서의 "Distribute the Client(클라이언트 분산)" 절에 나온 8단계는 무시하십시오. mts가 제공하는 클라이언트 설치 프로그램을 사용할 때는 VBR 파일에 참조를 추가할 필요가 없습니다. Visual Basic 클라이언트를 설치하는 동안 원격 구성 요소의 참조를 모두 제거합니다.

mts 설치 프로그램을 만드는 단계

1. Microsoft Management Console을 시작합니다.
2. 왼쪽 창의 트리 보기에서 각 폴더 옆의 더하기(+) 기호를 눌러 폴더를 확장합니다. 먼저 Microsoft Transaction Server를 확장한 다음 컴퓨터, 내 컴퓨터를 차례로 확장하고 mtsTest Package 폴더를 확장합니다.
3. mtsTest 패키지를 마우스 오른쪽 단추로 누르고 내보내기를 선택한 다음 패키지를 내보낼 디렉터리를 선택합니다.
4. 패키지를 내보낸 디렉터리로 이동하여 clients 디렉터리를 엽니다. 내보내기에 의해 만들어진 실행 파일을 이 디렉터리에서 찾을 수 있습니다. 이 EXE 파일을 CLIENT 컴퓨터로 옮긴 다음 실행합니다. 이 파일을 서버에서 실행하지 마십시오. 이 프로그램은 원격 구성 요소를 클라이언트 컴퓨터에 올바르게 등록합니다.
5. 2단계에서 만든 클라이언트 응용 프로그램을 위한 클라이언트 설치 EXE를 클라이언트 컴퓨터에서 실행합니다.

사용자가 만들어 mts에 설치한 구성 요소를 대상으로 이제 원격으로 클라이언트를 실행할 수 있습니다. 문제가 발생하면 "참조" 절에 나온 문서에서 문제 해결 방법과 응용 프로그램을 만들어 배포하는 방법에 대한 자세한 내용을 참조하십시오.

참조

mts 2.0 온라인 도움말

Visual Basic 설치 마법사를 사용하여 Visual Basic 클라이언트를 배포하는 방법에 대한 자세한 내용은 Microsoft 기술 자료의 다음 문서를 참조하십시오.

161837 HOWTO: Create a DCOM Client/Server Application

177394 HOWTO: Troubleshoot Run-Time Error '429' in DCOM Applications

172869 HOWTO: Debug a Component Written with Visual Basic 5.0