- Код: Выделить всё
Public Sub OpenDB()
Set RecSet = New ADODB.Recordset
Set OraDB = New ADODB.Connection
Set OraCMD = New ADODB.Command
RecSet.CursorLocation = adUseClient
If OraDB.State <> 1 Then
OraDB.Open "otchet", LO, PW
OraCMD.ActiveConnection = OraDB
End If
If RecSet.State <> 1 Then
RecSet.ActiveConnection = OraDB
End If
End Sub
'***************************************
Public Sub CloseDB()
If OraDB.State = 1 Then
OraCMD.ActiveConnection = Nothing
OraDB.Close
End If
If RecSet.State = 1 Then
RecSet.ActiveConnection = Nothing
RecSet.Close
End If
Set RecSet = Nothing
Set OraDB = Nothing
Set OraCMD = Nothing
End Sub
Выполняются полседовательно по таймеру каждые 5 секунд. Сначала открытие, потом закрытие. Утекает где-то 1 мег за 5 минут
