ADO 记录集在创建 16 次后开始建立新连接答案

【问题标题】：ADO record sets start making new connections after 16 creationsADO 记录集在创建 16 次后开始建立新连接
【发布时间】：2017-10-09 18:22:06
【问题描述】：

这可能是我遇到过的最困惑的错误了。

这里有一些会产生错误的 VB 代码。我对不必创建新记录集这一事实不感兴趣，这是故意触发错误的。

Public Module ConnectionSetup

Public ActiveTDConnection As ADODB.Connection

Public Sub ConnectToTD(ByVal userName As String, ByVal Password As String, ByVal dsn As String)

    ActiveTDConnection = New ADODB.Connection

    ActiveTDConnection.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=True;" & _

              "User ID=" & userName & ";Password=" & Password & ";" & _

              "Data Source=" & dsn & ";Mode=Read;" & _

              "UID=" & userName & ";AUTHENTICATION=LDAP;Initial Catalog=(Default)"

    ActiveTDConnection.CommandTimeout = 0

    ActiveTDConnection.Open(ActiveTDConnection.ConnectionString)

End Sub

End Module

Module Module1

 Sub Main()

    ConnectionSetup.ConnectToTD("XXX", "XXX", "XXX")


    Dim DB_qry As String

    Dim sessionQry As String

    Dim i As Integer = 1

    Dim sessionRS As New ADODB.Recordset


    DB_qry = "SELECT TOP 1 * FROM dbc.databases"

    sessionQry = "SELECT COUNT(*) FROM dbc.SessionInfo WHERE userName = 'MyUserName'"


    Do While i <= 18

        Dim DB_rs As New ADODB.Recordset

        DB_rs.Open(DB_qry, ActiveTDConnection)

        sessionRS.Open(sessionQry, ActiveTDConnection)

        ' This starts going up by 1 on each loop, after 16.
        Debug.Print(sessionRS.Fields.Item(0).Value)

        Do While Not DB_rs.EOF

            MsgBox(i)

            i += 1

            DB_rs.MoveNext()

        Loop

        DB_rs.Close()

        DB_rs = Nothing

        sessionRS.Close()

     Loop

 End Sub

第 16 次迭代后，每个新打开的记录集都会产生一个新连接。所以我的代码随机开始冒着最大化会话限制的风险。

1.) 为什么会这样？

2.) 我该如何预防？

【问题讨论】：

没有遇到您的错误。您可以尝试删除对 sessionRS 的引用 - id est - 在连接 (DB_rs) 内一次打开一个记录集吗？您的 TD 客户端版本是多少？
我知道这是一种愚蠢的写法，但这是最简单的情况，会触发我的问题。我正在使用 14.10.05.10
您可以将其运行为： DB_qry = "SELECT SESSION" - 而不是 MsgBox(i) - 输出 - MsgBox( DB_qry.Fields.Item(0).Value ) - 看看你是否是实际使用不同的连接？
很抱歉要求“为我编码”，但我没有关注
查看答案中的示例（允许代码格式化）

标签： vb.net teradata ado

【解决方案1】：

 Sub Main()

    ConnectionSetup.ConnectToTD("XXX", "XXX", "XXX")


    Dim DB_qry As String
    Dim sessionQry As String

    Dim i As Integer = 1

    Dim sessionRS As New ADODB.Recordset

    DB_qry = "SELECT SESSION"

    sessionQry = "SELECT COUNT(*) FROM dbc.SessionInfo WHERE userName = 'MyUserName'"


    Do While i <= 18

        Dim DB_rs As New ADODB.Recordset

        DB_rs.Open(DB_qry, ActiveTDConnection)

        sessionRS.Open(sessionQry, ActiveTDConnection)

        ' This starts going up by 1 on each loop, after 16.
        'Debug.Print(sessionRS.Fields.Item(0).Value)

        Do While Not DB_rs.EOF

            MsgBox("Sessions: " & sessionRS.Fields.Item(0).Value & " Cnt: " & i & " SID: " & DB_rs.Fields.Item(0).Value)

            i += 1

            DB_rs.MoveNext()

        Loop

        DB_rs.Close()
        DB_rs = Nothing
        sessionRS.Close()

     Loop

 End Sub

【讨论】：