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
.connectionstring="Provider=SQLOLEDB.1;UserID=sa;Initial Catalog=DBcourse"
' 通过OLEDB建立与数据库的连接
.Open
End with
Set ObjRS = New ADODB.Recordset
StrSQL="SELECT
Teacher.name,Teacher.sex,Techer.age,Teacher.edu_level,Teacher.tiltle"
strSQL=strSQL&&" From Teacher,TeacherCourse,Courses "
strSQL=strSQL&& "Where Teacher.teacher_NO=TeacherCourse.teacher_no
and TeacherCourse.course_no=Courses.course_no
and Courses.course like'" && mCourse && "'"
'“like”关键字可实现模糊查询
ObjRS.Open strSQL, ObjADOConn
' 进行数据库查询
Set ListCourses = ObjRS
ObjContext.SetComplte
' 若事务成功完成，则提交该事务
objADOConn.Close
Set objADOConn = Nothing
Set objRS=Nothing
strSQL = ""
'关闭数据库连接，释放所有对象
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
MsgBox ("无满足条件的记录!")
Exit Sub
End If
Set dgResult.DataSource = rsResult
Dgresult.Columns(0).Caption = "姓名"
Dgresult.Columns(1).Caption = "性别"
DgResult.Columns(2).Caption = "年龄"
Dgresult.Columns(3).Caption = "学历"
DgResult.Columns(4).Caption = "职称"
DgResult.Refresh
Set objMts = Nothing
End Sub
4. 运行客户端
首先将编写好的客户端程序进行编译发布，然后在Microsoft Management Console中找到新的软件包，击右键选择导出，将它导出到c:\Program File\Packages中，在该文件夹的Client下自动生成了MtsDemo的客户端安装程序。在客户机上运行Client文件夹下的Setup.exe文件，再安装客户端程序即可运行。
