MTS，Microsoft Transaction Server缩写，用于在程序级进行事务操作多线程程序能够使程序的不同部分同时运行。

Windows*.Net*和XP*等操作系统和许多科学应用都是多线程程序。当创建应用时，开发人员必须创建代码，以便线程能够独立运行，不互相干扰。

是微软为其Windows NT操作系统推出的一个中间件产品，由于它具有强大的分布事务支持、安全管理、资源管理和多线程并发控制等特性，使其成为在Windows平台上开发大型数据库应用系统的首选产品

由于MTS屏蔽了底层实现的复杂性，极大地简化了这类应用的开发，程序员可以将精力集中在业务逻辑上，因而有效地提高了软件的开发效率。本文将通过实例介绍用VB和MTS开发多层数据库应用系统的方法和步骤。

基于MTS开发多层数据库应用系统的步骤是：第一步，开发MTS组件提供服务，程序员可以用任何一种支持COM的语言编写MTS组件，如VB、VC、Delphi和COBOL等；第二步，分发MTS组件到MTS软件包中，并且把MTS软件包安装到MTS环境之中；第三步，编写客户端程序调用执行在MTS环境之中的MTS组件，以取得服务。详细开发过程如下：

1. 创建MTS组件

本例中我们将编写一个MTS组件，运行于中间层的应用服务器上，由它建立与数据库服务器的连接，完成对某课程的授课教师信息的查询。

启动Visual Basic，新建一ActiveX DLL项目。选择工程选单，在引用窗口中选中Microsoft ActiveX Object Library 和Microsoft Transaction Sever Type Library。按“确定”将这两项加到项目中。

从工程选单中选择工程属性，在通用选项中将项目名称改为MtsDemo。线程模块选择分部线程DLL，将类模块名称改为Course，将下列程序加入类模块的通用声明中：

Option Explicit

Public Function ListCourses( ByVal mcourse as String) As ADODB.Recordset

On Error GoTo ErrorHandle

Dim strSQL As String

Dim objContext As.ObjectContext

Set objContext = GetObjectContext()

' 建立事务性组件

Dim objADOConn As ADODB.Connection

' 利用ADO访问数据库

Dim objRS As ADODB.Recordset

Set objADOConn = New ADODB.Connection

With objADOConn

.connectiontimeout=10

' 通过OLEDB建立与数据库的连接

.Open

End with

Set ObjRS = New ADODB.Recordset

and TeacherCourse.course_no=Courses.course_no

'“like”关键字可实现模糊查询

ObjRS.Open strSQL, ObjADOConn

' 进行数据库查询

Set ListCourses = ObjRS

ObjContext.SetComplte

' 若事务成功完成，则提交该事务

objADOConn.Close

Set objADOConn = Nothing

Set objRS=Nothing

'关闭数据库连接，释放所有对象

Exit Function

ErrorHandle:

ObjContext. SetAbort

Set ListCourses=Nothing

' 若事务失败，则回滚事务

End Function

2. 注册MTS组件

所有运行于服务器端的ActiveX DLL都应在MTS中注册，这是通过Transaction Server Explorer完成的。其过程如下：

(1)创建软件包

软件包是在同一进程中运行的组件集合，不同软件包中的组件以进程隔离的方式运行在隔离的进程中。在创建软件包时，开发者应尽量把共享资源的组件分配在同一软件包内；考虑到软件包中各个组件所共享的资源类型，可以把那些共享“昂贵”资源（如对某个特定数据库的连接）的组件编为一组。

(2)向软件包添加组件

在想安装组件的包中选择Component文件夹，单击Install New Component(s) 按钮，当提示添加文件时找到新生成的MtsDemo.dll文件将其加入。

3. 编写客户端程序

创建一个标准EXE项目。选择工程选单，接着选择引用，在引用窗口中选中刚才创建的MtsDemo，加入到项目中。

向窗体中添加如下内容：

名称 标题

标签 label1 请输入课程名：

文本框 txtcourse

命令按扭 cmdok 查询

数据网格dgresult

再将下列程序加入通用声明中：

Private Sub cmdOK_Click()

Dim rsResult As ADODB.Recordset

Dim objMts As Object

Dim mCourse As String

mCourse = Trim(txtCourse.Text)

Set objMts = CreateObject(mtsDemo.Course)

Set rsResult = objCourse.ListCourses(mCourse)

If rsResult.EOF Then

Exit Sub

End If

Set dgResult.DataSource = rsResult

DgResult.Refresh

Set objMts = Nothing

End Sub

4. 运行客户端