Unanswered: Using OraOLEDB.Oracle Provider in VB - connections persisting in Database
I'm using the OraOLEDB.Oracle provider to connect to an Oracle database via ADODB in VB 6.0. After I've successfully written a record to the DB, I close my recordset object (rst), set recordset object = nothing, close my connection object (con) and then set connection object = nothing. After doing this, I can verify that rst.state and con.state both = 0 (closed). However, both the recordset object and the
con object are NOT Nothing (they still persist). However, my real problem is that the connection I opened to the database and that VB tells me is closed still persists in the Oracle Database.
Here is the code. If anyone has any adivce, I'd appreciate any help I can get. TIA!
Dim con As New adodb.Connection
Dim rst As New adodb.Recordset
Dim LogFileName As String
Dim LogFileNum As Integer
Dim sql As String ' SELECT statement
Dim vardata As Variant ' data retrieved from clob data in chunks
Dim recipeStream As adodb.Stream
Dim paramStream As adodb.Stream
Dim traceStream As adodb.Stream
Dim oFSO As Scripting.FileSystemObject
Dim strEquipmentName As String
On Error GoTo ErrorHandler
'create the ADODB.Stream objects
Set recipeStream = New adodb.Stream
Set paramStream = New adodb.Stream
Set traceStream = New adodb.Stream
Set con = New adodb.Connection
Set oFSO = New FileSystemObject
'read in the recipe data
recipeStream.Type = adTypeBinary
recipeStream.LoadFromFile strFileNameRoot & "_rcp.zip"
'read in the configuration data
paramStream.Type = adTypeBinary
paramStream.LoadFromFile strFileNameRoot & "_prm.zip"
'read in the trace data
traceStream.Type = adTypeBinary
traceStream.LoadFromFile strFileNameRoot & ".bin"
strAfterStreamReadDateTime = CStr(Now())
'set equipment name
strEquipmentName = strMeasurementBenchType & CStr(intMeasurementBenchNumber)