Глобальная временная таблица удаляется после открытия другого набора записей

Question

Я в настоящее время открываю и заполняю глобальную таблицу с именем ##GlobalTableMain через макрос на данный момент. Таблица создается следующим образом:

Public Sub ExecuteSQLQuery(sQuery As String)
Dim cn As New ADODB.Connection

cn.Open strConnection
cn.Execute "SET NOCOUNT ON;" & sQuery
cn.Close
End Sub

Запрос выглядит примерно так:

CREATE TABLE ##GlobalTableMain (Columns here);
INSERT INTO ##GlobalTableMain (Columns) VALUES
BUNCH OF ROWS

Все это работало очень хорошо, пока я не попытался добавить другой макрос, который стал необходимым из-за другого фактора.

Вопрос в вопросе:

Sub AggregateSQLTempTable(sTempTable As String, sAggClm As String)
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, sQuery As String
Dim selectClms As String, groupClms As String

cn.Open strConnection
sQuery = "SET NOCOUNT ON; SELECT tempdb.sys.columns.name FROM tempdb.sys.columns WHERE tempdb.sys.columns.object_id = Object_Id('tempdb.." & sTempTable & "')"
rs.Open sQuery, cn


sQuery = vbNullString
selectClms = vbNullString
groupClms = vbNullString

If Not (rs.EOF Or rs.BOF) Then
    rs.MoveFirst
    Do While Not (rs.EOF Or rs.BOF)
        selectClms = selectClms & IIf(Len(selectClms) > 0, ", ", "") & IIf(rs!Name = sAggClm, "SUM(" & rs!Name & ") " & rs!Name, rs!Name)
        groupClms = groupClms & IIf(rs!Name = sAggClm, "", IIf(Len(groupClms) > 0, ", ", "") & rs!Name)
        rs.MoveNext
    Loop

    sQuery = vbNullString
    sQuery = "SELECT * INTO #aggTempTable FROM (SELECT " & selectClms & " FROM " & sTempTable & " GROUP BY " & groupClms & ") a;"
    sQuery = sQuery & Chr(10) & "TRUNCATE TABLE " & sTempTable & ";"
    sQuery = sQuery & Chr(10) & "INSERT INTO " & sTempTable & " SELECT * FROM #aggTempTable;"
    sQuery = sQuery & Chr(10) & "DROP TABLE #aggTempTable;"

    cn.Execute sQuery
End If

rs.Close
cn.Close
End Sub

предположительно SET NOCOUNT ON должен предотвратить это, но это не работает для меня, к сожалению.

Answer 1

Я нашел решение, которое помогает мне сделать это.
Я пошел вперед и сделал соединение public переменная и добавил следующие два макроса. Вот все новые макросы:

Public cn As New ADODB.Connection

Public Sub OpenSQLConnection()
If Not cn.State = adStateOpen Then cn.Open strConnection
End Sub

Public Sub CloseSQLConnection()
If Not cn.State = adStateClosed Then cn.Close
End Sub

Public Sub ExecuteSQLQuery(sQuery As String)
OpenSQLConnection
cn.Execute "SET NOCOUNT ON;" & sQuery
End Sub

Sub AggregateSQLTempTable(sTempTable As String, sAggClm As String)
Dim rs As New ADODB.Recordset, sQuery As String
Dim selectClms As String, groupClms As String

OpenSQLConnection
sQuery = "SET NOCOUNT ON; SELECT tempdb.sys.columns.name FROM tempdb.sys.columns WHERE tempdb.sys.columns.object_id = Object_Id('tempdb.." & sTempTable & "')"
rs.Open sQuery, cn

sQuery = vbNullString
selectClms = vbNullString
groupClms = vbNullString

If Not (rs.EOF Or rs.BOF) Then
    rs.MoveFirst
    Do While Not (rs.EOF Or rs.BOF)
        selectClms = selectClms & IIf(Len(selectClms) > 0, ", ", "") & IIf(rs!Name = sAggClm, "SUM(" & rs!Name & ") " & rs!Name, rs!Name)
        groupClms = groupClms & IIf(rs!Name = sAggClm, "", IIf(Len(groupClms) > 0, ", ", "") & rs!Name)
        rs.MoveNext
    Loop

    sQuery = vbNullString
    sQuery = "SELECT * INTO #aggTempTable FROM (SELECT " & selectClms & " FROM " & sTempTable & " GROUP BY " & groupClms & ") a;"
    sQuery = sQuery & Chr(10) & "TRUNCATE TABLE " & sTempTable & ";"
    sQuery = sQuery & Chr(10) & "INSERT INTO " & sTempTable & " SELECT * FROM #aggTempTable;"
    sQuery = sQuery & Chr(10) & "DROP TABLE #aggTempTable;"

    cn.Execute sQuery
End If

rs.Close
End Sub