如何用DELPHI 7.0创建MSSQL2000连接池（ADO连接）

Question

如何用DELPHI 7.0创建MSSQL2000连接池（ADO连接）

Answer 1

是不是  Create database XXXX

Answer 2

delphi demos 里有例子,可以参考一下

Answer 3

就是ADO的问题
我的程序中只有一个连接，所有的数据库连接都是用这一个，可是老是提示连接占线
又不想创建多个连接，我就问了一下朋友，查了一下资料，都说到连接池可以解决，可
是我很蠢，不知道怎么建，发此贴
请问高手有好的办法解决么

Answer 4

新建一个DataModule，在DataModule中放入一个TADOConnection，然后放入别的ADO组件（TADOCommand，TADODataSet，TADOTable等），所有组件的Connection属性都指向TADOConnection,这样设置后连接数据库的连接就只剩下TADOConnection的一个了。
procedure TDM.DataModuleCreate(Sender: TObject);
begin
  if ADOConnection1.Connected then ADOConnection1.Connected:=false;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库.mdb;Persist Security Info=False';
  ADOConnection1.Connected:=true;
end;procedure TDM.DataModuleDestroy(Sender: TObject);
begin
  if ADOConnection1.Connected then ADOConnection1.Connected:=false;
end;

Answer 5

是不是和 lihong7313(蜗牛) 说的那样？

Answer 6

lihong7313(蜗牛) 说的其实是静态连接池概念，而且需要在建立中间层服务器的时候线程模型选择Apartment，这样的话，每个客户端连接上来，中间层服务器都会单独开一个线程（相当于新建一个数据模块对象）来服务，这样可以达到目的，但是还不能达到动态连接池的功能，楼主如果要达到动态连接池的功能的话，则要在中间层的代码做文章，我这里有实现代码，但是不能给你，只能给你提供一个思路，中间层先定义一个数据库连接池，然后客户端如果有需要访问数据库的话，首先获得数据库连接池中的一个连接，然后使用，使用完毕后把该数据库连接释放回连接池（要注意处理线程之间的互斥问题）。

Answer 7

顶，连接池好象在DEPHI里很少使用吧
具体我也没有使用过~！哈哈