关于连接池（VB.net)

 

 

前些天看了一些有关连接池的资料，自己也做了一下测试，现在把结果和大家分享一下。

先看下面的例子：

  Imports System.Data.SqlClient

     Dim cnSqlsvr As SqlConnection
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try

            Dim strSqlsvr As String
            strSqlsvr = "Server=.;database=Northwind;Integrated Security=True;pooling=true;max pool size=2"

            '         pooling=true;      打开连接池（其实 默认是打开的  ） 

           '         max pool size=2   将连接池连接数设置为2 （默认最大是100）
            cnSqlsvr = New SqlConnection(strSqlsvr)

            cnSqlsvr.Open()‘打开连接，不关闭
      
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

运行后点击两次 button1 后，再点第三次，呵呵， 有提示了吧

弹出 连接数已到最大，

这样可以通过设置连接数防止过多的用户连接而导致服务器性能的降低，

待续..