知识大全在Delphi中如何维护COM+的状态信息[1]

Posted 2022-07-22 数据库

篇首语：学习如钻探石油，钻得愈深，愈能找到知识的精髓。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全在Delphi中如何维护COM+的状态信息[1]相关的知识，希望对你有一定的参考价值。

在Delphi中如何维护COM+的状态信息[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　问题是这样开始的我需要写一个+ 用来连接不同的数据库有的朋友可能会说应该为每个数据库建立一个+ 但是在我的系统里不能这样我们在做一个教育辅助系统用户是学校（当然包括学校里的老师学生家长）我们为每个学校建一个数据库这些数据库的结构是相同当然我们还有管理数据库用于协调各数据库的关系每增加一个学校用户我们就激活一个新的数据库给客户使用也就是说我们的数据库的个数是不断增加的而我们的客户端只有一个我们不会为每个学校开发不同的客户端我们的+也只有一组而不是为每个数据库开发一组所以我必须在+中根据用户的身份让它去连接不同的数据库

　　很显然这个+应当提供一个方法让其调用者（可以是客户端应用程序也可以是其它的中间件）去选择连接的数据库在实际中我们是根据用户的ID在管理库中查到它的数据库名然后连接用户数据库在这里为了简化问题我们认为调用者已经知道了数据库的名字而直接要求调用这个数据库

　　在+的类中增加一个私有成员DBName:string 用于保存要连接的数据库名称还应该提供这样一个方法来设置它的值我开始是这样写的

　　procedure TmtsDBConn ConnectTo(sDBName:string)

　　begin

　　 try

　　 DBName:=sDBName;

　　 SetComplete;

　　 Except

　　 SetAbort;

　　 end;

　　然后在其中放入ADOConnection ADODataSet 和DataSetProvider控件分别取名为adoc adods dsp 设置好它们之间的连接关系把adoc的连接字符串设为连接数据库 DB 这是默认值然后在adoc的BeforeConnect事件中

　　adoc ConnectionString:=ConnectStringA+´Initial Catalog=´+DBName+´;´+ConnectStringC;

　　这里的ConnectStringA和ConnectStringC是为了动态构建连接字符串预先设置好的字符串常量如下

　　const

　　ConnectStringA=´Provider=SQLOLEDB ;Password= ;Persist Security Info=True;User ID=sa;´;

　　ConnectStringB=´Initial Catalog=DB ;´;

　　ConnectStringC=´Data Source=server ;Use Procedure for Prepare= ;Auto 　　Translate=True;Packet Size= ;Workstation ID=LXM;Use Encryption for　Data=False;Tag with column collation when possible=False´;

　　编译安装这个+ 然后编写客户端程序调用它

　　在客户端程序中放一个DConnection 连接到上面编写+服务器再放一个ClientDataSet 设置它的RemoteServer和Provider属性然后在它的CommandText中写入SQL语句然后放入DataSource控件和DBGrid控件建立好它们之间的连接关系最后放一个按钮在它的Click事件中

　　Dconnection Connected:=true;

　　Dconnection AppServer connect(´DB ´);

　　ClientDataset Active:=true;

　　Dconnection Connected:=false;

　　这段代码是想测试一下能不能访问到DB 数据库的数据可是结果是点下按钮时总是报错这是什么原因呢？

cha138/Article/program/Delphi/201311/24837

知识大全 在Delphi中如何维护COM+的状态信息[1]

知识大全在Delphi中如何维护COM+的状态信息[1]