Excel после каждого SELECT-а растет размер в памяти

[Avtopic]

Здравствуйте все!

Читаю данные из книги, с помощью запроса.

Код: Выделить всё

SELECT * FROM [Main$A7:B5000] IN '" & ... & "'[Excel 8.0;HDR=NO;IMEX=1]

Только читаю, а размер в памяти, занимаемая Excel-ем растет, после каждого чтения на 2-5M.
Кончается все тем, что не хватает ресурсов.
Читал вот это, но мне кажется это про Update и про размер на диске:
http://support.microsoft.com/default.aspx?scid=kb;en-us;293828

В маем же случае растет размер в памяти, и при чтении данных.
Если сохранить файл, то размер на диске прежний.
Вроде ничего не оставляю откритим, проверял
и Recordsets.Count и Databases.Count.
Явно баг какой-то.

Кто не будь имеет такой опит?
Спасибо заранее.

[bi-lya]

А если после очередной читки память чистить?

[GSerg]

Предложишь способ сделать это, bi-lya?

[bi-lya]

Посмотрите это. Как-будто требуемое

Idle Method Example

This example uses the Idle method to ensure that an output procedure is accessing the most current data available from the database. The IdleOutput procedure is required for this procedure to run.

Код: Выделить всё

Sub IdleX()

    Dim dbsNorthwind As Database
    Dim strCountry As String
    Dim strSQL As String
    Dim rstOrders As Recordset

    Set dbsNorthwind = OpenDatabase("Northwind.mdb")

    ' Get name of country from user and build SQL statement
    ' with it.
    strCountry = Trim(InputBox("Enter country:"))
    strSQL = "SELECT * FROM Orders WHERE ShipCountry = '" & _
        strCountry & "' ORDER BY OrderID"

    ' Open Recordset object with SQL statement.
    Set rstOrders = dbsNorthwind.OpenRecordset(strSQL)

    ' Display contents of Recordset object.
    IdleOutput rstOrders, strCountry

    rstOrders.Close
    dbsNorthwind.Close

End Sub

Sub IdleOutput(rstTemp As Recordset, strTemp As String)

    ' Call the Idle method to release unneeded locks, force
    ' pending writes, and refresh the memory with the current
    ' data in the .mdb file.
    DBEngine.Idle dbRefreshCache

    ' Enumerate the Recordset object.
    With rstTemp
        Debug.Print "Orders from " & strTemp & ":"
        Debug.Print , "OrderID", "CustomerID", "OrderDate"
        Do While Not .EOF
            Debug.Print , !OrderID, !CustomerID, !OrderDate
            .MoveNext
        Loop
    End With

End Sub



[Avtopic]

Насколько я понял, соль всего этого кода DBEngine.Idle dbRefreshCache
А Idle только снимает блокировки и принудительно обновляет память последними данными выборки.
И как результат, ничего не изменил в объеме памяти.

[bi-lya]

Avtopic, если проблема еще актуальна - а не пробовали явно помечать на удаление для "уборщика"

Код: Выделить всё

object=Nothing

?