用VB和MTS开发多层数据库应用系统_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

用VB和MTS开发多层数据库应用系统

作者：闵涛文章来源：闵涛的学习笔记点击数：925 更新时间：2009/4/23 16:40:14

用VB和MTS开发多层数据库应用系统
（作者：于华　2001年03月14日 11:30）

　　MTS（Microsoft Transaction Server）是微软为其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

　　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文件，再安装客户端程序即可运行。

[VB.NET程序]MTS开发多层数据库应用系统

教程录入：mintao 责任编辑：mintao

上一篇教程：像星际争霸开头由大到小的字幕特效

下一篇教程：实现浮动按钮

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……