谁在delphi中用过连接池

做一个共享的连接池，程序初始化的时候把连接池连好，每次需要连接时创见个连接，从池子取出需要的连接

复制给新建连接，用完释放新建连接即可。我见过别人写的共享酣绩丰啃莶救奉寻斧默的连接池应用在数据库+客户端这种结构上，支持多线程！

ADOConnection1.ConnectionString := 'DSN=MS Access DatabaseDBQ=mdb文件名DefaultDir=缺省工作路径DriverId=25FIL=MS AccessMaxBufferSize=2048PageTimeout=5PWD=密码UID=admin'

例如:Access文件为db.mdb,设置密码为:hello,则:

ADOConnection1.ConnectionString := 'DSN=MS Access DatabaseDBQ=db.mdbDefaultDir=DriverId=25FIL=MS AccessMaxBufferSize=2048PageTimeout=5PWD=helloUID=admin'

无密码则为:

ADOConnection1.ConnectionString := 'DSN=MS Access DatabaseDBQ=db.mdbDefaultDir=DriverId=25FIL=MS AccessMaxBufferSize=2048PageTimeout=5PWD=UID=admin'

---