断开TADOConnection

Question

我使用单一的一个TADOConnection连接SQL2000，没有其他任何ADO控件.
代码如下：
procedure TForm1.Button2Click(Sender: TObject);
begin
    ADOConnection1.Connected := true;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
    ADOConnection1.Connected := false;
    ADOConnection1.KeepConnection := false;
end；我发现根本没有断开连接。可以看到有数据库还是有一个连接。我想知道怎样释放掉这个连接。

Answer 1

ADOConnection1.connectionstring:=' ';

Answer 2

ADOConnection1.connectionstring:='';肯定没有用，ADO本身有缓冲池的。如果赋值为空，你再进行ADOCon.Connected := true, 就会有两个连接。我很迷惑，空连接到底连接上了什么。很可能是缓冲池再一次根据上次的连接方式分配了资源。如果这时候连接到另一个库上，这两个库都连接上的。