测试 Microsoft SQL Server 2008 R2 Express 连接数

zhuyiwen

今日测试 Microsoft SQL Server 2008 R2 Express (下载链接: http://www.microsoft.com/zh-cn/download/details.aspx?id=23650) 连接数：
测试代码：

1. Option Explicit
   
2. 
   
3. Const CONNSTR = "Provider=SQLOLEDB;Data Source=192.168.33.2,1435;User ID=sa;Password=******;Initial Catalog=master"
   
4. Const POOL = ";Pooling=true;Max Pool Size=40000;Min Pool Size=0;"
   
5. Dim i As Long
   
6. 
   
7. Dim col As New Collection
   
8. 
   
9. 
   
10. Private Sub Command1_Click()
    
11.     On Error GoTo err_handle
    
12.     Dim conn As ADODB.Connection
    
13.     Dim cs As String
    
14.     cs = Me.Text2
    
15.    
    
16.     If Me.Check1.Value = 1 Then
    
17.         cs = cs & POOL
    
18.     End If
    
19.    
    
20.     i = 0
    
21.    
    
22.     Do While True
    
23.         DoEvents
    
24.         Set conn = New ADODB.Connection
    
25.         conn.Open cs
    
26.         col.Add conn
    
27.         i = i + 1
    
28.         
    
29.         Me.Text1 = i
    
30.     Loop
    
31.     Exit Sub
    
32.    
    
33. err_handle:
    
34.     MsgBox "Down!" & vbNewLine & vbNewLine & Err.Number & " -- " & Err.Description
    
35.     Err.Clear
    
36. End Sub
    
37. 
    
38. Private Sub Command2_Click()
    
39.     Dim c As ADODB.Connection
    
40.     For Each c In col
    
41.         c.Close
    
42.         Set c = Nothing
    
43.     Next
    
44.    
    
45.     Dim i As Long
    
46.     Dim t As Long
    
47.     t = col.Count
    
48.     For i = t To 1 Step -1
    
49.         col.Remove i
    
50.     Next
    
51. End Sub
    
52. 
    
53. Private Sub Form_Load()
    
54.     Me.Text2 = CONNSTR
    
55. End Sub

复制代码

远程连接数：62个




本地TCP/IP连接数：3960个




本地Share Memory 连接数：14771个（受内存限制）

zhuyiwen

由此可见，如果一个企业少于60个连接SQL Server 2008 R2 Express用户的话，以SQL Server 2008 R2 Express支持 10G 数据库容量的能力，完全能够胜任应用（1 个 ADP 应用程序 1 个 ADO SQL 连接）。

从目前软件版权日趋重要的情况看来，最重要的是它是免费的。

风中漫步

免费的东西越来越少了

李力军2

{:soso_e179:}

jlf001

学习

jlf001

学习