delphi sqlserver数据库连接池查询

Delphi 中连接 SQL Server 数据库可以使用 ADO (ActiveX Data Objects) 组件，而连接池则可以使用 ADO Connection 对象的 ConnectionString 属性来实现。

以下是一个简单的示例代码，演示如何连接 SQL Server 数据库并使用连接池查询数据：

uses
  ADODB;

procedure TForm1.Button1Click(Sender: TObject);
var
  conn: TADOConnection;
  rs: TADOQuery;
begin
  conn := TADOConnection.Create(nil);
  try
    conn.ConnectionString := 'Provider=SQLOLEDB;Data Source=server_name;Initial Catalog=database_name;Integrated Security=SSPI;Pooling=True;';
    conn.LoginPrompt := False;
    conn.Open;

    rs := TADOQuery.Create(nil);
    try
      rs.Connection := conn;
      rs.SQL.Text := 'SELECT * FROM table_name';
      rs.Open;
      while not rs.Eof do
      begin
        // 处理查询结果
        rs.Next;
      end;
    finally
      rs.Free;
    end;
  finally
    conn.Free;
  end;
end;

上面的代码中，Connection 对象的 ConnectionString 属性中指定了连接字符串，其中包括服务器名、数据库名和是否启用连接池等信息。在 Connection 对象的 Open 方法被调用后，就可以使用 TADOQuery 对象来执行 SQL 查询语句，查询结果保存在 TADOQuery 对象的 Recordset 属性中，可以通过遍历 Recordset 来获取查询结果。

注意，在使用连接池时，应该尽量减少创建和释放 Connection 对象的次数，以提高性能。可以使用一个全局的 Connection 对象，并在程序启动时创建它，然后在程序退出时释放它。在程序运行期间，可以重复使用这个 Connection 对象来连接数据库。