心想既然.net、java里面都有不错的连接池，那delphi应该也有吧，可是找了老半天都没能找到比较理想的。最后网上找到一个ADO的连接池实现，经过改进已在公司服务器上使用，经过半年的考验，没发现什么异常，性能可靠。希望对大家有所帮助。 注： 1.ADOConnectionPool.pas为连接池实现单元。DbHelper.pas为为了方便访问数据库操作的实用单元，里面有关于连接池的用法。

一个可自动回收的数据库连接池 发生连接错误后自动销毁当前连接 数据库重启，网络重连接无需重启动系统 使用： //读取连接池大小,数据库连接 PoolSize:=10; ConnectionString:='Provider=SQLOLEDB.1;Password=myPassword;Persist Security Info=True;User ID=sa;Initial Catalog=DBName;Data Source=myserver'; ADOConnectionPool:=TAD