MTS是什么文件?如何运行?

最佳答案 - 由投票者2009-07-28 13:42:01选出

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
　　.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